| Class TForm1 (unit MainForm) |
TForm
| Constructors |
| Functions |
procedure ButtonExitClick(Sender: TObject);
procedure ButtonMultClick(Sender: TObject);
procedure ButtonScanClick(Sender: TObject);
procedure chkHiddenFilesClick(Sender: TObject);
procedure chkHiddenFoldersClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeScanner1DirectoryDone(Sender: TObject);
procedure TreeScanner1DirectoryFound(Sender: TObject);
procedure TreeScanner1FileFound(Sender: TObject);
procedure TreeScanner1SearchDone(Sender: TObject);
procedure ScanTree;| Properties |
| Events |
| Variables |
ButtonExit : TButton;
ButtonMult : TButton;
ButtonScan : TButton;
chkHiddenFiles : TCheckBox;
chkHiddenFolders : TCheckBox;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LabelFiles : TLabel;
LabelFolders : TLabel;
ListBoxFiles : TListBox;
ListBoxFolders : TListBox;
Panel1 : TPanel;
TreeScanner1 : TTreeScanner;
file_count : integer;
folder_count : integer;| Constructors |
| Functions |
procedure ButtonExitClick(Sender: TObject);
procedure ButtonMultClick(Sender: TObject);restore the visual elements which were changed
procedure ButtonScanClick(Sender: TObject);
procedure chkHiddenFilesClick(Sender: TObject);
procedure chkHiddenFoldersClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeScanner1DirectoryDone(Sender: TObject);
procedure TreeScanner1DirectoryFound(Sender: TObject);
procedure TreeScanner1FileFound(Sender: TObject);
procedure TreeScanner1SearchDone(Sender: TObject);
procedure ScanTree;| Properties |
| Events |
| Variables |
ButtonExit : TButton;
ButtonMult : TButton;
ButtonScan : TButton;
chkHiddenFiles : TCheckBox;
chkHiddenFolders : TCheckBox;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LabelFiles : TLabel;
LabelFolders : TLabel;
ListBoxFiles : TListBox;
ListBoxFolders : TListBox;
Panel1 : TPanel;
TreeScanner1 : TTreeScanner;
file_count : integer;
folder_count : integer;Private declarations