paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 11:02:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

clean up

Browse Source 
git-svn-id: trunk@5460 -
This commit is contained in:
mattias 2004-05-12 15:09:47 +00:00
parent b8c82bc41f
commit 65faba3c10
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/toolbar.pp
View File

@ -81,23 +81,16 @@ with ToolButton1 do
OnClick := @Button1Click; OnClick := @Button1Click;
Show; Show;
end; end;
writeln('AAA1');
Toolbutton2 := TToolButton.Create(Toolbar1); Toolbutton2 := TToolButton.Create(Toolbar1);
with ToolButton2 do with ToolButton2 do
Begin Begin
Name:='Toolbutton2'; Name:='Toolbutton2';
writeln('AAA2');
Parent := Toolbar1; Parent := Toolbar1;
writeln('AAA3');
Caption := '2'; Caption := '2';
writeln('AAA3');
Style := tbsButton; Style := tbsButton;
writeln('AAA4');
OnClick := @Button2Click; OnClick := @Button2Click;
writeln('AAA5');
Show; Show;
end; end;
writeln('AAA2');
Toolbutton3 := TToolButton.Create(Toolbar1); Toolbutton3 := TToolButton.Create(Toolbar1);
with ToolButton3 do with ToolButton3 do
Begin Begin