| Class TMainForm (unit Main) |
TForm
| Constructors |
| Functions |
procedure ButtonAbourClick(Sender: TObject);
procedure ButtonAutoCopyClick(Sender: TObject);
procedure ButtonCopyFilesClick(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);
procedure ButtonHelpClick(Sender: TObject);
procedure ButtonMkDirClick(Sender: TObject);
procedure cbExt1Click(Sender: TObject);
procedure cbExt2Click(Sender: TObject);
procedure cbExt3Click(Sender: TObject);
procedure cbExt4Click(Sender: TObject);
procedure DestinationDirectoryChange(Sender: TObject);
procedure DestinationDriveChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MenuCustomizeClick(Sender: TObject);
procedure MenuDeleteDestFileClick(Sender: TObject);
procedure PopupItemDeleteSrcFileClick(Sender: TObject);
procedure PopupItemLinktosourcedirectoryClick(Sender: TObject);
procedure PopupItemRemovefromlistClick(Sender: TObject);
procedure PopupItemShowHintsClick(Sender: TObject);
procedure SetDefaultExtClick(Sender: TObject);
procedure SourceDirectoryChange(Sender: TObject);
procedure SourceDriveChange(Sender: TObject);
procedure SourceFilesDblClick(Sender: TObject);
procedure CheckForEqualPath;
procedure FilterFileList;
procedure ShowFreeBytes;
procedure WMAutoCopy(var Message: TMessage);| Properties |
| Events |
| Variables |
ButtonAbour : TButton;
ButtonAutoCopy : TButton;
ButtonCopyFiles : TButton;
ButtonExit : TButton;
ButtonHelp : TButton;
ButtonMkDir : TButton;
cbExt1 : TCheckBox;
cbExt2 : TCheckBox;
cbExt3 : TCheckBox;
cbExt4 : TCheckBox;
DestinationDirectory : TDirectoryListBox;
DestinationDrive : TDriveComboBox;
DestinationFiles : TFileListBox;
DestinationPath : TLabel;
FIleCount : TLabel;
FilesLength : TLabel;
Free : TLabel;
GaugeCounter : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
MenuCustomize : TMenuItem;
MenuDeleteDestFile : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
PanelDestination : TPanel;
PopupItemDeleteSrcFile : TMenuItem;
PopupItemLinktosourcedirectory : TMenuItem;
PopupItemRemovefromlist : TMenuItem;
PopupItemShowHints : TMenuItem;
PopupMenuDest : TPopupMenu;
PopupMenuDestFiles : TPopupMenu;
PopupMenuExclude : TPopupMenu;
PopupMenuMain : TPopupMenu;
PopupMenuSrcFiles : TPopupMenu;
RadioGroupOverwrite : TRadioGroup;
SetDefaultExt : TMenuItem;
SourceDirectory : TDirectoryListBox;
SourceDrive : TDriveComboBox;
SourceFiles : TFileListBox;
SourcePath : TLabel;
AccessDenied : Boolean;
AutoCopyFlag : Boolean;
FreeBytes : Longint;
IniFilename : String;
SourceFilesLength : Longint;| Constructors |
| Functions |
procedure ButtonAbourClick(Sender: TObject);userdef
procedure ButtonAutoCopyClick(Sender: TObject);
procedure ButtonCopyFilesClick(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);for i
procedure ButtonHelpClick(Sender: TObject);
procedure ButtonMkDirClick(Sender: TObject);
procedure cbExt1Click(Sender: TObject);
procedure cbExt2Click(Sender: TObject);
procedure cbExt3Click(Sender: TObject);
procedure cbExt4Click(Sender: TObject);
procedure DestinationDirectoryChange(Sender: TObject);
procedure DestinationDriveChange(Sender: TObject);TMainForm.SourceDriveChange
procedure FormCreate(Sender: TObject);, DEBUGGER
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MenuCustomizeClick(Sender: TObject);
procedure MenuDeleteDestFileClick(Sender: TObject);
procedure PopupItemDeleteSrcFileClick(Sender: TObject);Remove source file from the list
procedure PopupItemLinktosourcedirectoryClick(Sender: TObject);enough space on destination drive ?
procedure PopupItemRemovefromlistClick(Sender: TObject);
procedure PopupItemShowHintsClick(Sender: TObject);with FormMkDir
procedure SetDefaultExtClick(Sender: TObject);if(Key=VK_F2) then Confirm.ExecuteP('aaaaaaaaaa','bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb','ccccccc');
procedure SourceDirectoryChange(Sender: TObject);try copy selected files from source to destination
procedure SourceDriveChange(Sender: TObject);
procedure SourceFilesDblClick(Sender: TObject);
procedure CheckForEqualPath;
procedure FilterFileList;
procedure ShowFreeBytes;
procedure WMAutoCopy(var Message: TMessage);TMainForm.FormCreate
| Properties |
| Events |
| Variables |
ButtonAbour : TButton;
ButtonAutoCopy : TButton;
ButtonCopyFiles : TButton;
ButtonExit : TButton;
ButtonHelp : TButton;
ButtonMkDir : TButton;
cbExt1 : TCheckBox;
cbExt2 : TCheckBox;
cbExt3 : TCheckBox;
cbExt4 : TCheckBox;
DestinationDirectory : TDirectoryListBox;
DestinationDrive : TDriveComboBox;
DestinationFiles : TFileListBox;
DestinationPath : TLabel;
FIleCount : TLabel;
FilesLength : TLabel;
Free : TLabel;
GaugeCounter : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
MenuCustomize : TMenuItem;
MenuDeleteDestFile : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
PanelDestination : TPanel;
PopupItemDeleteSrcFile : TMenuItem;
PopupItemLinktosourcedirectory : TMenuItem;
PopupItemRemovefromlist : TMenuItem;
PopupItemShowHints : TMenuItem;
PopupMenuDest : TPopupMenu;
PopupMenuDestFiles : TPopupMenu;
PopupMenuExclude : TPopupMenu;
PopupMenuMain : TPopupMenu;
PopupMenuSrcFiles : TPopupMenu;
RadioGroupOverwrite : TRadioGroup;
SetDefaultExt : TMenuItem;
SourceDirectory : TDirectoryListBox;
SourceDrive : TDriveComboBox;
SourceFiles : TFileListBox;
SourcePath : TLabel;
AccessDenied : Boolean;
AutoCopyFlag : Boolean;
FreeBytes : Longint;
IniFilename : String;Private-Deklarationen
SourceFilesLength : Longint;