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