paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 09:22:40 +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.nPage := CharsInWindow;
ScrollInfo.nPos := LeftChar; ScrollInfo.nPos := LeftChar;
{$IFDEF SYN_LAZARUS} {$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); ShowScrollBar(Handle, SB_HORZ, True);
{$ENDIF} {$ENDIF}
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);

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