| Class TForm1 (unit test) |
TForm
| Constructors |
| Functions |
procedure BtnScanClick(Sender: TObject);
procedure DiskSearch1DirFound(Sender: TObject; Directory: String);
procedure DiskSearch1FileFound(Sender: TObject; FileName: String);| Properties |
| Events |
| Variables |
BtnScan : TButton;
DiskSearch1 : TDiskSearch;
LabelDir : TLabel;
LabelFile : TLabel;
StatusBarProgress : TStatusBar;
DirectoryCount : Integer;
FileCount : Integer;
StartTime : TDateTime;| Constructors |
| Functions |
procedure BtnScanClick(Sender: TObject);
procedure DiskSearch1DirFound(Sender: TObject; Directory: String);
procedure DiskSearch1FileFound(Sender: TObject; FileName: String);| Properties |
| Events |
| Variables |
BtnScan : TButton;
DiskSearch1 : TDiskSearch;
LabelDir : TLabel;
LabelFile : TLabel;
StatusBarProgress : TStatusBar;
DirectoryCount : Integer;
FileCount : Integer;
StartTime : TDateTime;