Class TForm1 (unit MainForm)

Inherits from

TForm

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


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