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

add note show scrollbars

Browse Source 
git-svn-id: trunk@5458 -
This commit is contained in:
micha 2004-05-12 09:18:32 +00:00
parent 965624865b
commit b21d97fc01
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -4175,6 +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 }
ShowScrollBar(Handle, SB_HORZ, True); ShowScrollBar(Handle, SB_HORZ, True);
{$ENDIF} {$ENDIF}
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
@ -4203,6 +4204,7 @@ begin
ScrollInfo.nPos := MulDiv(MAX_SCROLL, TopLine, nMaxScroll); ScrollInfo.nPos := MulDiv(MAX_SCROLL, TopLine, nMaxScroll);
end; end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
{ for win32 target, need to call showscrollbar before setscrollinfo }
ShowScrollBar(Handle, SB_VERT, True); ShowScrollBar(Handle, SB_VERT, True);
{$ENDIF} {$ENDIF}
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);