paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 07:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: object inspector: use font for default row height calculation

Browse Source 
git-svn-id: trunk@63968 -
This commit is contained in:
ondrej 2020-10-08 06:41:08 +00:00
parent a87befd71c
commit 999954fab8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/objectinspector.pp
View File

@ -1464,7 +1464,7 @@ function TOICustomPropertyGrid.RealDefaultItemHeight: integer;
begin
Result := FDefaultItemHeight;
if (Result<=0) then
Result := Scale96ToForm(22);
Result := Canvas.TextHeight('Hg')*5 div 4 + 2;
end;
function TOICustomPropertyGrid.GetRowByPath(const PropPath: string): TOIPropertyGridRow;