Class TMainForm (unit Main)

Inherits from

TForm

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.

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.

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;



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;