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;