| Class TForm1 (unit Test1) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
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;