Class TCopyForm (unit Copyin)

Inherits from

TForm

copy times

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


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