| Class TCopyForm (unit Copyin) |
TForm
copy times
| Constructors |
| Functions |
procedure CheckResult;
procedure CopiesBtnClick(Sender: TObject);
procedure CopyMove;
procedure DirectoryListBox1Change(Sender: TObject);
procedure DirectoryListBox2Change(Sender: TObject);
procedure DisableButtons;
procedure EnableButtons;
procedure ExitBtnClick(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FileListBox2Click(Sender: TObject);
procedure FileListBox2DblClick(Sender: TObject);
procedure FileListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FileListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
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 FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MoveBtnClick(Sender: TObject);
procedure OptionBtnClick(Sender: TObject);
procedure SDriveBtnClick(Sender: TObject);
procedure SwapBtnClick(Sender: TObject);| Properties |
| Events |
| Variables |
CopiesBtn : TBitBtn;
CopyBtn : TBitBtn;
DestBox : TGroupBox;
DirectoryListBox1 : TDirectoryListBox;
DirectoryListBox2 : TDirectoryListBox;
DirLabel1 : TLabel;
DirLabel2 : TLabel;
Drive2Btn : TBitBtn;
ExitBtn : TBitBtn;
FileListBox1 : TFileListBox;
FileListBox2 : TFileListBox;
Gauge1 : TGauge;
MoveBtn : TBitBtn;
OptionBtn : TBitBtn;
Panel1 : TPanel;
SDriveBtn : TBitBtn;
SourceBox : TGroupBox;
StatPanel : TPanel;
SwapBtn : TBitBtn;
aMove : boolean;
cancel : boolean;
CntrlDown : boolean;
confirm : boolean;
ElapsedTime : LongInt;
FD : TSearchRec;
FT : TFileTransfer;
N : Integer;
ProcessActive : boolean;| Constructors |
| Functions |
procedure CheckResult;get N
procedure CopiesBtnClick(Sender: TObject);The copy test
procedure CopyMove;
procedure DirectoryListBox1Change(Sender: TObject);
procedure DirectoryListBox2Change(Sender: TObject);let's try again
procedure DisableButtons;calc elapsed time
procedure EnableButtons;
procedure ExitBtnClick(Sender: TObject);TCopyForm methods
procedure FileListBox1Click(Sender: TObject);-Swap source and dest
procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);drag / drop stuff
procedure FileListBox2Click(Sender: TObject);-Get name of file to copy/move
procedure FileListBox2DblClick(Sender: TObject);file data
procedure FileListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FileListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
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 FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MoveBtnClick(Sender: TObject);
procedure OptionBtnClick(Sender: TObject);Dest drive button was pressed
procedure SDriveBtnClick(Sender: TObject);show its presence
procedure SwapBtnClick(Sender: TObject);| Properties |
| Events |
| Variables |
CopiesBtn : TBitBtn;
CopyBtn : TBitBtn;
DestBox : TGroupBox;
DirectoryListBox1 : TDirectoryListBox;
DirectoryListBox2 : TDirectoryListBox;
DirLabel1 : TLabel;
DirLabel2 : TLabel;
Drive2Btn : TBitBtn;
ExitBtn : TBitBtn;
FileListBox1 : TFileListBox;
FileListBox2 : TFileListBox;
Gauge1 : TGauge;
MoveBtn : TBitBtn;
OptionBtn : TBitBtn;
Panel1 : TPanel;
SDriveBtn : TBitBtn;
SourceBox : TGroupBox;
StatPanel : TPanel;
SwapBtn : TBitBtn;
aMove : boolean;for drag/drop
cancel : boolean;True if confirm copy
CntrlDown : boolean;Time to copy file
confirm : boolean;True if Move
ElapsedTime : LongInt;copy file data
FD : TSearchRec;
FT : TFileTransfer;Private declarations
N : Integer;for copy test
ProcessActive : boolean;for copy test