Class TFTest (unit Test)

Inherits from

TForm

Constructors



Functions

procedure BiSwitch1Off(Sender: TObject);


procedure BiSwitch1On(Sender: TObject);


procedure Button10Click(Sender: TObject);


procedure Button11Click(Sender: TObject);

--- Some events are not inherited from Tcontrol or TWincontrol, so we have to clone them separately

procedure Button1Click(Sender: TObject);

--------------Pass directory contents to one listbox item -----

procedure Button2Click(Sender: TObject);

--------------------Create new directory ------------

procedure Button3Click(Sender: TObject);

------------Copy selected files in several listboxes to one directory-----} {------------Uses the component TCopyFile for copying ---------------------

procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

-----------------------------------------------------------} {-----------------------------Designer --------------------} {-----------------------------------------------------------

procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Button9Click(Sender: TObject);

-----------------------------------------------------------} {------------------------Simple cloners --------------------} {-----------------------------------------------------------

procedure CheckBox3Click(Sender: TObject);

-- each control added to the list has its TAG property set to it's list index

procedure DirectoryListBox1Change(Sender: TObject);


procedure DirectoryListBox2Change(Sender: TObject);


procedure DriveComboBox1Change(Sender: TObject);

---------------------------------------------------------------------------} {$R *.

procedure DriveComboBox2Change(Sender: TObject);

--------------------Standar management for disk browse ------------

procedure Edit1Change(Sender: TObject);


procedure Edit5Enter(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

be friendly

Properties

Events

Variables

BiSwitch1 : TBiSwitch;


Button1 : TButton;


Button10 : TButton;


Button11 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


Cloner2 : TControlCloneList;


ComboBox1 : TComboBox;


ControlCloneList1 : TControlCloneList;


ControlCloneList2 : TControlCloneList;


ControlCloneList3 : TControlCloneList;


ControlCloneList4 : TControlCloneList;


ControlCloneList5 : TControlCloneList;


DirectoryListBox1 : TDirectoryListBox;


DirectoryListBox2 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DriveComboBox2 : TDriveComboBox;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


Edit5 : TEdit;


FileListBox1 : TFileListBox;


FileListBox2 : TFileListBox;


FontDialog1 : TFontDialog;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


ListBox1 : TListBox;


ListBox2 : TListBox;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


RadioGroup1 : TRadioGroup;


TabbedNotebook1 : TTabbedNotebook;



Constructors


Functions


procedure BiSwitch1Off(Sender: TObject);


procedure BiSwitch1On(Sender: TObject);


procedure Button10Click(Sender: TObject);


procedure Button11Click(Sender: TObject);

--- Some events are not inherited from Tcontrol or TWincontrol, so we have to clone them separately


procedure Button1Click(Sender: TObject);

--------------Pass directory contents to one listbox item -----


procedure Button2Click(Sender: TObject);

--------------------Create new directory ------------


procedure Button3Click(Sender: TObject);

------------Copy selected files in several listboxes to one directory-----} {------------Uses the component TCopyFile for copying ---------------------


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

-----------------------------------------------------------} {-----------------------------Designer --------------------} {-----------------------------------------------------------


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Button9Click(Sender: TObject);

-----------------------------------------------------------} {------------------------Simple cloners --------------------} {-----------------------------------------------------------


procedure CheckBox3Click(Sender: TObject);

-- each control added to the list has its TAG property set to it's list index


procedure DirectoryListBox1Change(Sender: TObject);


procedure DirectoryListBox2Change(Sender: TObject);


procedure DriveComboBox1Change(Sender: TObject);

---------------------------------------------------------------------------} {$R *.DFM} {--------------------------------------------------------------------------} {--------------------------MULTICOPY FILES---------------------------------} {--------------------------------------------------------------------------} {--------------------Standar management for disk browse ------------


procedure DriveComboBox2Change(Sender: TObject);

--------------------Standar management for disk browse ------------


procedure Edit1Change(Sender: TObject);


procedure Edit5Enter(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

be friendly


Properties


Events


Variables


BiSwitch1 : TBiSwitch;


Button1 : TButton;


Button10 : TButton;


Button11 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


Cloner2 : TControlCloneList;


ComboBox1 : TComboBox;


ControlCloneList1 : TControlCloneList;


ControlCloneList2 : TControlCloneList;


ControlCloneList3 : TControlCloneList;


ControlCloneList4 : TControlCloneList;


ControlCloneList5 : TControlCloneList;


DirectoryListBox1 : TDirectoryListBox;


DirectoryListBox2 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DriveComboBox2 : TDriveComboBox;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


Edit5 : TEdit;


FileListBox1 : TFileListBox;


FileListBox2 : TFileListBox;


FontDialog1 : TFontDialog;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


ListBox1 : TListBox;


ListBox2 : TListBox;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


RadioGroup1 : TRadioGroup;


TabbedNotebook1 : TTabbedNotebook;