Class TfrmTrafficMain (unit TrafficM)

Inherits from

TForm

Constructors



Functions

procedure btnAddClick(Sender: TObject);


procedure btnDelClick(Sender: TObject);


procedure btnDisplayClick(Sender: TObject);


procedure btnEditClick(Sender: TObject);


procedure btnStartClick(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormShow(Sender: TObject);


procedure lbTrafficClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties

Events

Variables

Bag1 : TBag32;


btnAdd : TButton;


btnDel : TButton;


btnDisplay : TButton;


btnEdit : TButton;


btnStart : TButton;


edTraffic : TEdit;


L1 : TShape;


L2 : TShape;


L3 : TShape;


L4 : TShape;


L5 : TShape;


L6 : TShape;


lbTraffic : TListBox;


Panel2 : TPanel;


Panel3 : TPanel;


pnlTraffic : TPanel;


SpeedButton1 : TSpeedButton;


Timer1 : TTimer;



Constructors


Functions


procedure btnAddClick(Sender: TObject);


procedure btnDelClick(Sender: TObject);


procedure btnDisplayClick(Sender: TObject);


procedure btnEditClick(Sender: TObject);


procedure btnStartClick(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormShow(Sender: TObject);


procedure lbTrafficClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Properties


Events


Variables


Bag1 : TBag32;


btnAdd : TButton;


btnDel : TButton;


btnDisplay : TButton;


btnEdit : TButton;


btnStart : TButton;


edTraffic : TEdit;


L1 : TShape;


L2 : TShape;


L3 : TShape;


L4 : TShape;


L5 : TShape;


L6 : TShape;


lbTraffic : TListBox;


Panel2 : TPanel;


Panel3 : TPanel;


pnlTraffic : TPanel;


SpeedButton1 : TSpeedButton;


Timer1 : TTimer;