Inherits from
TForm
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
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;
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
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;