paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 18:42:50 +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;
Show;
end;
writeln('AAA1');
Toolbutton2 := TToolButton.Create(Toolbar1);
with ToolButton2 do
Begin
Name:='Toolbutton2';
writeln('AAA2');
Parent := Toolbar1;
writeln('AAA3');
Caption := '2';
writeln('AAA3');
Style := tbsButton;
writeln('AAA4');
OnClick := @Button2Click;
writeln('AAA5');
Show;
end;
writeln('AAA2');
Toolbutton3 := TToolButton.Create(Toolbar1);
with ToolButton3 do
Begin