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;