paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 03: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

2
components/synedit/synedit.pp
View File

@ -4175,7 +4175,7 @@ begin
ScrollInfo.nPage := CharsInWindow;
ScrollInfo.nPos := LeftChar;
{$IFDEF SYN_LAZARUS}
{ for win32 target, need to call showscrollbar before setscrollinfo }
{ for win32 target, need to call showscrollbar before setscrollinfo }
ShowScrollBar(Handle, SB_HORZ, True);
{$ENDIF}
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);

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