paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/grids: Fix misplaced horizontal grid scrollbar after form maximize. Issue #35472, patch by Pavol S.

Browse Source 
git-svn-id: trunk@62031 -
This commit is contained in:
wp 2019-10-11 10:21:52 +00:00
parent 04138e9fe7
commit 9cad1b3feb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -7932,14 +7932,17 @@ end;
procedure TCustomGrid.UpdateHorzScrollBar(const aVisible: boolean; procedure TCustomGrid.UpdateHorzScrollBar(const aVisible: boolean;
const aRange,aPage,aPos: Integer); const aRange,aPage,aPos: Integer);
var
NeedUpdate: Boolean;
begin begin
{$ifdef DbgScroll} {$ifdef DbgScroll}
DebugLn('TCustomGrid.UpdateHorzScrollbar: Vis=%s Range=%d Page=%d aPos=%d', DebugLn('TCustomGrid.UpdateHorzScrollbar: Vis=%s Range=%d Page=%d aPos=%d',
[dbgs(aVisible),aRange, aPage, aPos]); [dbgs(aVisible),aRange, aPage, aPos]);
{$endif} {$endif}
if FHSbVisible<>Ord(aVisible) then NeedUpdate := FHSbVisible <> Ord(AVisible);
if NeedUpdate then
ScrollBarShow(SB_HORZ, aVisible); ScrollBarShow(SB_HORZ, aVisible);
if aVisible then if aVisible or NeedUpdate then
ScrollBarRange(SB_HORZ, aRange, aPage, aPos); ScrollBarRange(SB_HORZ, aRange, aPage, aPos);
end; end;