| Class TMainForm (unit TEST_B1) |
TForm
| Constructors |
| Functions |
procedure ExitItemClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure IteratorActivate(Sender: TObject);
procedure IteratorAddFile(Sender: TObject; const FileName: string;
const FileInfo: TFileInfo);
procedure IteratorTerminate(Sender: TObject);
procedure RefreshList(Sender: TObject);
procedure UpdateFileMenu(Sender: TObject);
procedure UpdateViewMenu(Sender: TObject);
procedure ClearFileList;
procedure FindDuplicates;
procedure SBtnClick( Sender :TObject );
procedure UpdateControls;| Properties |
| Events |
| Variables |
DriveList : TDriveList;
ExitItem : TMenuItem;
FileItem : TMenuItem;
Iterator : TFileIterator;
List : TListView;
MainMenu : TMainMenu;
Panel1 : TPanel;
RefreshItem : TMenuItem;
StatusBar : TStatusBar;
ViewItem : TMenuItem;
FCounter : Integer;
FFileList : TStringList;| Constructors |
| Functions |
procedure ExitItemClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure IteratorActivate(Sender: TObject);
procedure IteratorAddFile(Sender: TObject; const FileName: string;
const FileInfo: TFileInfo);
procedure IteratorTerminate(Sender: TObject);
procedure RefreshList(Sender: TObject);
procedure UpdateFileMenu(Sender: TObject);
procedure UpdateViewMenu(Sender: TObject);
procedure ClearFileList;
procedure FindDuplicates;
procedure SBtnClick( Sender :TObject );
procedure UpdateControls;| Properties |
| Events |
| Variables |
DriveList : TDriveList;
ExitItem : TMenuItem;
FileItem : TMenuItem;
Iterator : TFileIterator;
List : TListView;
MainMenu : TMainMenu;
Panel1 : TPanel;
RefreshItem : TMenuItem;
StatusBar : TStatusBar;
ViewItem : TMenuItem;
FCounter : Integer;
FFileList : TStringList;