Class TMainForm (unit TEST_B1)
Inherits from
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;