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

LCL: grids: initialize scrollbar visibility info with correct values

Browse Source 
git-svn-id: branches/fixes_1_8@55195 -
This commit is contained in:
mattias 2017-06-04 05:51:13 +00:00
parent 2b2ca33631
commit 1520ef45ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -4698,8 +4698,8 @@ procedure TCustomGrid.CreateWnd;
begin begin
//DebugLn('TCustomGrid.CreateWnd ',DbgSName(Self)); //DebugLn('TCustomGrid.CreateWnd ',DbgSName(Self));
inherited CreateWnd; inherited CreateWnd;
FVSbVisible := -1; FVSbVisible := Ord(GetScrollbarvisible(Handle, SB_Vert));
FHSbVisible := -1; FHSbVisible := Ord(GetScrollbarvisible(Handle, SB_Horz));
CheckPosition; CheckPosition;
VisualChange; VisualChange;
end; end;