| Class TFdemo (unit Test) |
TForm
| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DirectoryListBox2Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure DriveComboBox2Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel10 : TBevel;
Bevel11 : TBevel;
Bevel12 : TBevel;
Bevel13 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Bevel8 : TBevel;
Bevel9 : TBevel;
Button1 : TButton;
Button10 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
CheckBox5 : TCheckBox;
DirectoryListBox1 : TDirectoryListBox;
DirectoryListBox2 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
DriveComboBox2 : TDriveComboBox;
Edit1 : TEdit;
FileListBox1 : TFileListBox;
FileListBox2 : TFileListBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Memo1 : TMemo;
Memo2 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel9 : TPanel;
PanelBill : TPanel;
PanelList1 : TPanelList;
PanelList2 : TPanelList;
PanelList3 : TPanelList;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
TabbedNotebook1 : TTabbedNotebook;
bill : integer;| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);--------------------------King---------------
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);--Note that PanelBill remains unchanged, so we reset its properties
procedure Button8Click(Sender: TObject);--self explained--
procedure Button9Click(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DirectoryListBox2Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);------------------------Files-----------------------------
procedure DriveComboBox2Change(Sender: TObject);------------------------Images-----------------------------
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);add needed panels
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel10 : TBevel;
Bevel11 : TBevel;
Bevel12 : TBevel;
Bevel13 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
Bevel7 : TBevel;
Bevel8 : TBevel;
Bevel9 : TBevel;
Button1 : TButton;
Button10 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
CheckBox5 : TCheckBox;
DirectoryListBox1 : TDirectoryListBox;
DirectoryListBox2 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
DriveComboBox2 : TDriveComboBox;
Edit1 : TEdit;
FileListBox1 : TFileListBox;
FileListBox2 : TFileListBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Memo1 : TMemo;
Memo2 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel9 : TPanel;
PanelBill : TPanel;
PanelList1 : TPanelList;
PanelList2 : TPanelList;
PanelList3 : TPanelList;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
TabbedNotebook1 : TTabbedNotebook;
bill : integer;