paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Added layout to check

Browse Source 
git-svn-id: trunk@5466 -
This commit is contained in:
marc 2004-05-13 00:18:18 +00:00
parent b49e3f1952
commit cb5c7a3f36
1 changed files with 144 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

165
examples/bitbtnform.pp
View File

@ -37,11 +37,17 @@ type
public
button1 : TBitBtn;
Label1 : TLabel;
GroupBox1 : TGroupBox;
Radio1 : TRadioButton;
Radio2 : TRadioButton;
Radio3 : TRadioButton;
Radio4 : TRadioButton;
Groupbox2 : TGroupbox;
Radio5 : TRadioButton;
Radio6 : TRadioButton;
Radio7 : TRadioButton;
Radio8 : TRadioButton;
Label2 : TLabel;
constructor Create(AOwner: TComponent); override;
procedure button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
@ -54,6 +60,10 @@ type
procedure Radio2Click(Sender : TObject);
procedure Radio3Click(Sender : TObject);
procedure Radio4Click(Sender : TObject);
procedure Radio5Click(Sender : TObject);
procedure Radio6Click(Sender : TObject);
procedure Radio7Click(Sender : TObject);
procedure Radio8Click(Sender : TObject);
end;
var
@ -65,8 +75,8 @@ constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption := 'TBitBtn Verify';
Width := 200;
Height := 150;
Width := 335;
Height := 170;
Left := 200;
Top := 200;
@ -80,10 +90,10 @@ begin
OnMouseDown := @button1MouseDown;
OnMouseMove := @button1MouseMove;
Parent := Self;
width := 80;
height := 32;
left := 25;
top := 25;
width := 120;
height := 120;
left := 15;
top := 15;
layout := blGlyphLeft;
kind := bkClose;
caption := 'Close';
@ -95,24 +105,47 @@ begin
begin
Parent := Self;
width := 80;
left := 25;
top := 80;
left := 15;
top := 150;
Caption := 'bkClose';
Autosize := True;
Show;
end;
Label2 := TLabel.Create(Self);
With Label2 do
begin
Parent := Self;
width := 80;
left := 150;
top := 150;
Caption := 'blGlyphLeft';
Autosize := True;
Show;
end;
GroupBox1 := TGroupbox.Create(Self);
with GroupBox1 do
begin
Parent := Self;
width := 80;
height := 125;
left := 150;
top := 15;
Caption := 'Kind';
end;
Radio1 := TRadioButton.Create(Self);
with Radio1 do
begin
OnClick := @Radio1Click;
Parent := Self;
top := 25;
left := 125;
Parent := GroupBox1;
top := 8;
left := 8;
caption := 'Close';
Checked := True;
Height := 15;
Width := 60;
Width := 60;
Show;
end;
@ -120,9 +153,9 @@ begin
with Radio2 do
begin
OnClick := @Radio2Click;
Parent := Self;
top := 50;
left := 125;
Parent := GroupBox1;
top := 32;
left := 8;
caption := 'Ok';
Checked := False;
Height := 15;
@ -134,9 +167,9 @@ begin
with Radio3 do
begin
OnClick := @Radio3Click;
Parent := Self;
top := 75;
left := 125;
Parent := GroupBox1;
top := 56;
left := 8;
caption := 'Cancel';
Checked := False;
Height := 15;
@ -148,9 +181,9 @@ begin
with Radio4 do
begin
OnClick := @Radio4Click;
Parent := Self;
top := 100;
left := 125;
Parent := GroupBox1;
top := 80;
left := 8;
caption := 'Help';
Checked := False;
Height := 15;
@ -158,6 +191,72 @@ begin
Show;
end;
GroupBox2 := TGroupbox.Create(Self);
with GroupBox2 do
begin
Parent := Self;
width := 80;
height := 125;
left := 240;
top := 15;
Caption := 'Layout';
end;
Radio5 := TRadioButton.Create(Self);
with Radio5 do
begin
OnClick := @Radio5Click;
Parent := GroupBox2;
top := 8;
left := 8;
caption := 'Left';
Checked := True;
Height := 15;
Width := 60;
Show;
end;
Radio6 := TRadioButton.Create(Self);
with Radio6 do
begin
OnClick := @Radio6Click;
Parent := GroupBox2;
top := 32;
left := 8;
caption := 'Top';
Checked := False;
Height := 15;
Width := 50;
Show;
end;
Radio7 := TRadioButton.Create(Self);
with Radio7 do
begin
OnClick := @Radio7Click;
Parent := GroupBox2;
top := 56;
left := 8;
caption := 'Right';
Checked := False;
Height := 15;
Width := 65;
Show;
end;
Radio8 := TRadioButton.Create(Self);
with Radio8 do
begin
OnClick := @Radio8Click;
Parent := GroupBox2;
top := 80;
left := 8;
caption := 'Bottom';
Checked := False;
Height := 15;
Width := 55;
Show;
end;
end;
procedure TForm1.FormDestroy(Sender : TObject);
@ -211,5 +310,29 @@ begin
Label1.Caption := 'bkHelp';
end;
procedure TForm1.Radio5Click(Sender : TObject);
begin
button1.Layout := blGlyphLeft;
Label2.Caption := 'blGlyphLeft';
end;
procedure TForm1.Radio6Click(Sender : TObject);
begin
button1.Layout := blGlyphTop;
Label2.Caption := 'blGlyphTop';
end;
procedure TForm1.Radio7Click(Sender : TObject);
begin
button1.Layout := blGlyphRight;
Label2.Caption := 'blGlyphRight';
end;
procedure TForm1.Radio8Click(Sender : TObject);
begin
button1.Layout := blGlyphBottom;
Label2.Caption := 'blGlyphBottom';
end;
end.