paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:19:10 +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.nPage := CharsInWindow;
ScrollInfo.nPos := LeftChar; ScrollInfo.nPos := LeftChar;
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
{$IFnDEF SynScrollBarWorkaround} {$IFNDEF LCLWin32} {$IFnDEF SynScrollBarWorkaround}
ShowScrollBar(Handle, SB_Horz, sfHorizScrollbarVisible in fStateFlags); if not (sfHorizScrollbarVisible in fStateFlags) then
{$ENDIF} ShowScrollBar(Handle, SB_Horz, False);
{$ENDIF} {$ENDIF}
//DebugLn('[TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin,' nMax=',ScrollInfo.nMax, //DebugLn('[TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin,' nMax=',ScrollInfo.nMax,
//' nPage=',ScrollInfo.nPage,' nPos=',ScrollInfo.nPos,' ClientW=',ClientWidth); //' nPage=',ScrollInfo.nPage,' nPos=',ScrollInfo.nPos,' ClientW=',ClientWidth);
@ -4432,9 +4433,10 @@ begin
ScrollInfo.nPage := LinesInWindow; ScrollInfo.nPage := LinesInWindow;
ScrollInfo.nPos := FFoldedLinesView.TextIndexToViewPos(TopLine-1); ScrollInfo.nPos := FFoldedLinesView.TextIndexToViewPos(TopLine-1);
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);
{$IFnDEF SynScrollBarWorkaround} {$IFNDEF LCLWin32} {$IFnDEF SynScrollBarWorkaround}
ShowScrollBar(Handle, SB_Vert, sfVertScrollbarVisible in fStateFlags); if not (sfVertScrollbarVisible in fStateFlags) then
{$ENDIF} ShowScrollBar(Handle, SB_Vert, False);
{$ENDIF} {$ENDIF}
end; end;
end; end;