paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 13:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: grids: fix compilation with FPC 3.0.x

Browse Source 
git-svn-id: trunk@57764 -
This commit is contained in:
ondrej 2018-05-01 20:27:49 +00:00
parent a97c137b1b
commit 9fae8f17bf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -4147,7 +4147,7 @@ begin
s := ThemeServices.GetDetailSize(Details); s := ThemeServices.GetDetailSize(Details);
end else end else
s := Size(-1, -1); s := Size(-1, -1);
if s.Width>0 then // theme services support sorted arrows if s.cx>0 then // theme services support sorted arrows
begin begin
w := Scale96ToFont(s.cx); w := Scale96ToFont(s.cx);
h := Scale96ToFont(s.cy); h := Scale96ToFont(s.cy);