| Class TFTest (unit Test) |
TForm
| Constructors |
| Functions |
procedure BiSwitch1Off(Sender: TObject);
procedure BiSwitch1On(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DirectoryListBox2Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure DriveComboBox2Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit5Enter(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);| 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;