paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:19:47 +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
//DebugLn('TCustomGrid.CreateWnd ',DbgSName(Self));
inherited CreateWnd;
FVSbVisible := -1;
FHSbVisible := -1;
FVSbVisible := Ord(GetScrollbarvisible(Handle, SB_Vert));
FHSbVisible := Ord(GetScrollbarvisible(Handle, SB_Horz));
CheckPosition;
VisualChange;
end;