Class TMainForm (unit ICOVIEW1)
Inherits from
TForm
Constructors
Functions
procedure ABout(Sender: TObject);
procedure CloseApp(Sender: TObject);
procedure CopyFile(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure InvertSelection(Sender: TObject);
procedure IteratorActivate(Sender: TObject);
procedure IteratorAddFile(Sender: TObject; const FileName: string; const FileInfo: TFileInfo);
procedure IteratorAddFileQuery(Sender: TObject; const FileName: string; const FileInfo: TFileInfo; var CanAdd: Boolean);
procedure IteratorTerminate(Sender: TObject);
procedure ListChange(Sender: TObject; Item: TListItem; Change: TItemChange);
procedure Refresh(Sender: TObject);
procedure SaveFile(Sender: TObject);
procedure SelectAll(Sender: TObject);
procedure UpdateEditMenu(Sender: TObject);
procedure UpdateFileMenu(Sender: TObject);
procedure UpdatePopupMenu(Sender: TObject);
procedure UpdatePPViewMenu(Sender: TObject);
procedure UpdateViewMenu(Sender: TObject);
procedure ViewAsIcons(Sender: TObject);
procedure ViewAsList(Sender: TObject);
procedure ViewAsSmallIcons(Sender: TObject);
procedure ViewDetails(Sender: TObject);
procedure UpdateControls;
procedure CreateDriveButtons;
procedure DriveButtonClick( Sender :TObject );
function GetDetails :string;
function GetStatusPanel( index :integer ):TStatusPanel;
procedure SetCount( Value :Integer );
procedure SetDetails( const Value :String );
procedure ShowHint( Sender :TObject );
procedure UpdateDrivePanel;
Properties
property CountPanel : TStatusPanel
property Details : string
property DetailsPanel : TStatusPanel
property DrivePanel : TStatusPanel
property HintPanel : TStatusPanel
property IconCount : Integer
Events
Variables
AboutItem : TMenuItem;
AppConfigKey : TAppConfigKey;
ButtonPanel : TPanel;
CopyEvent : TSoundEvent;
DoneScanEvent : TSoundEvent;
DriveList : TDriveList;
EditCopyItem : TMenuItem;
EditInvertSelectionItem : TMenuItem;
EditItem : TMenuItem;
EditSelectAllItem : TMenuItem;
FileExitItem : TMenuItem;
FileItem : TMenuItem;
FileSaveItem : TMenuItem;
FormRestorer1 : TFormRestorer;
Help1 : TMenuItem;
Icons : TImageList;
Iterator : TFileIterator;
List : TListView;
ListPopupMenu : TPopupMenu;
MainMenu : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
Options : TRegKey;
ppCopy : TMenuItem;
ppDetails : TMenuItem;
ppInvertSelection : TMenuItem;
ppLargeIcons : TMenuItem;
ppList : TMenuItem;
ppRefresh : TMenuItem;
ppSave : TMenuItem;
ppSelectAll : TMenuItem;
ppSmallIcons : TMenuItem;
ppViewItem : TMenuItem;
SaveDialog : TSaveDialog;
SaveEvent : TSoundEvent;
SelectAllEvent : TSoundEvent;
SmallIcons : TImageList;
StatusBar : TStatusBar;
ViewAsListItem : TMenuItem;
ViewDetailsItem : TMenuItem;
ViewIconsItem : TMenuItem;
ViewItem : TMenuItem;
ViewRefreshItem : TMenuItem;
ViewSmallIconsItem : TMenuItem;
ViewStyle : TVariantProfile;
FDrive : String;
FFileList : TStringList;
FIconCount : Integer;
FOldViewStyle : TViewStyle;
FSaveData : TSaveData;
FTempIcon : TIcon;
Constructors
Functions
procedure ABout(Sender: TObject);
procedure CloseApp(Sender: TObject);
procedure CopyFile(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure InvertSelection(Sender: TObject);
procedure IteratorActivate(Sender: TObject);
procedure IteratorAddFile(Sender: TObject; const FileName: string; const FileInfo: TFileInfo);
procedure IteratorAddFileQuery(Sender: TObject; const FileName: string; const FileInfo: TFileInfo; var CanAdd: Boolean);
procedure IteratorTerminate(Sender: TObject);
procedure ListChange(Sender: TObject; Item: TListItem; Change: TItemChange);
procedure Refresh(Sender: TObject);
procedure SaveFile(Sender: TObject);
procedure SelectAll(Sender: TObject);
procedure UpdateEditMenu(Sender: TObject);
procedure UpdateFileMenu(Sender: TObject);
procedure UpdatePopupMenu(Sender: TObject);
procedure UpdatePPViewMenu(Sender: TObject);
procedure UpdateViewMenu(Sender: TObject);
procedure ViewAsIcons(Sender: TObject);
procedure ViewAsList(Sender: TObject);
procedure ViewAsSmallIcons(Sender: TObject);
procedure ViewDetails(Sender: TObject);
procedure UpdateControls;
procedure CreateDriveButtons;
procedure DriveButtonClick( Sender :TObject );
function GetDetails :string;
function GetStatusPanel( index :integer ):TStatusPanel;
procedure SetCount( Value :Integer );
procedure SetDetails( const Value :String );
procedure ShowHint( Sender :TObject );
procedure UpdateDrivePanel;
Properties
property CountPanel : TStatusPanel
property Details : string
property DetailsPanel : TStatusPanel
property DrivePanel : TStatusPanel
property HintPanel : TStatusPanel
property IconCount : Integer
Events
Variables
AboutItem : TMenuItem;
AppConfigKey : TAppConfigKey;
ButtonPanel : TPanel;
CopyEvent : TSoundEvent;
DoneScanEvent : TSoundEvent;
DriveList : TDriveList;
EditCopyItem : TMenuItem;
EditInvertSelectionItem : TMenuItem;
EditItem : TMenuItem;
EditSelectAllItem : TMenuItem;
FileExitItem : TMenuItem;
FileItem : TMenuItem;
FileSaveItem : TMenuItem;
FormRestorer1 : TFormRestorer;
Help1 : TMenuItem;
Icons : TImageList;
Iterator : TFileIterator;
List : TListView;
ListPopupMenu : TPopupMenu;
MainMenu : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
Options : TRegKey;
ppCopy : TMenuItem;
ppDetails : TMenuItem;
ppInvertSelection : TMenuItem;
ppLargeIcons : TMenuItem;
ppList : TMenuItem;
ppRefresh : TMenuItem;
ppSave : TMenuItem;
ppSelectAll : TMenuItem;
ppSmallIcons : TMenuItem;
ppViewItem : TMenuItem;
SaveDialog : TSaveDialog;
SaveEvent : TSoundEvent;
SelectAllEvent : TSoundEvent;
SmallIcons : TImageList;
StatusBar : TStatusBar;
ViewAsListItem : TMenuItem;
ViewDetailsItem : TMenuItem;
ViewIconsItem : TMenuItem;
ViewItem : TMenuItem;
ViewRefreshItem : TMenuItem;
ViewSmallIconsItem : TMenuItem;
ViewStyle : TVariantProfile;
FDrive : String;
FFileList : TStringList;
FIconCount : Integer;
FOldViewStyle : TViewStyle;
FSaveData : TSaveData;
FTempIcon : TIcon;