Class TForm1 (unit Test1)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);

Button1Click(self);

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

il1:= TILB2.

procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);


Properties

Events

Variables

BitBtn1 : TBitBtn;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Edit1 : TEdit;


FontDialog1 : TFontDialog;


il1 : TILB;


Memo1 : TMemo;


Memo2 : TMemo;


RadioGroup1 : TRadioGroup;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);

Button1Click(self);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

il1:= TILB2.Create(self); with il1 do begin parent:=self; Left := 264; Top := 64; Width := 170; Height := 93; ItemHeight := 16; Style := lbOwnerDrawVariable; TabOrder := 10; Indent := itab; PosIndent := 48; DrawLines:=true; font.color:=clblack; FontHeader.Color:=clRed; FontHeader.Style:=[fsItalic]; DrawLineColor:=clYellow; color:=claqua; end;


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);


Properties


Events


Variables


BitBtn1 : TBitBtn;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Edit1 : TEdit;


FontDialog1 : TFontDialog;


il1 : TILB;


Memo1 : TMemo;


Memo2 : TMemo;


RadioGroup1 : TRadioGroup;