Class TFdemo (unit Test)

Inherits from

TForm

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;



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;