paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Limited effect of widgetset specific workaround for scrollbar updating

Browse Source 
git-svn-id: trunk@27016 -
This commit is contained in:
martin 2010-08-05 11:32:25 +00:00
parent ac45fa24d3
commit 5e807711c8
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/synedit.pp
View File

@ -4407,9 +4407,10 @@ begin
ScrollInfo.nPage := CharsInWindow;
ScrollInfo.nPos := LeftChar;
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
{$IFnDEF SynScrollBarWorkaround}
ShowScrollBar(Handle, SB_Horz, sfHorizScrollbarVisible in fStateFlags);
{$ENDIF}
{$IFNDEF LCLWin32} {$IFnDEF SynScrollBarWorkaround}
if not (sfHorizScrollbarVisible in fStateFlags) then
ShowScrollBar(Handle, SB_Horz, False);
{$ENDIF} {$ENDIF}
//DebugLn('[TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin,' nMax=',ScrollInfo.nMax,
//' nPage=',ScrollInfo.nPage,' nPos=',ScrollInfo.nPos,' ClientW=',ClientWidth);
@ -4432,9 +4433,10 @@ begin
ScrollInfo.nPage := LinesInWindow;
ScrollInfo.nPos := FFoldedLinesView.TextIndexToViewPos(TopLine-1);
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);
{$IFnDEF SynScrollBarWorkaround}
ShowScrollBar(Handle, SB_Vert, sfVertScrollbarVisible in fStateFlags);
{$ENDIF}
{$IFNDEF LCLWin32} {$IFnDEF SynScrollBarWorkaround}
if not (sfVertScrollbarVisible in fStateFlags) then
ShowScrollBar(Handle, SB_Vert, False);
{$ENDIF} {$ENDIF}
end;
end;