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

IdeIntf: OI: High-DPI: restricted tab. Patch by AlexeyT, Issue #31778

Browse Source 
git-svn-id: trunk@54904 -
This commit is contained in:
ondrej 2017-05-14 07:22:36 +00:00
parent e6c01afbe1
commit 83b005e1fc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/objectinspector.pp
View File

@ -1433,7 +1433,7 @@ function TOICustomPropertyGrid.RealDefaultItemHeight: integer;
begin begin
Result := FDefaultItemHeight; Result := FDefaultItemHeight;
if (Result<=0) then if (Result<=0) then
Result := MulDiv(22, Screen.PixelsPerInch, 96); Result := ScaleCoord96(22);
end; end;
function TOICustomPropertyGrid.GetRowByPath(const PropPath: string): TOIPropertyGridRow; function TOICustomPropertyGrid.GetRowByPath(const PropPath: string): TOIPropertyGridRow;
@ -5252,8 +5252,8 @@ begin
IDEImages.Images_16.Draw( IDEImages.Images_16.Draw(
ABox.Canvas, X, Y, ABox.Canvas, X, Y,
IDEImages.LoadImage(16, 'issue_' + LCLPlatformDirNames[lclPlatform])); IDEImages.LoadImage(16, 'issue_' + LCLPlatformDirNames[lclPlatform]));
Inc(X, 16); Inc(X, ScaleCoord96(16));
Inc(X, OutVertCentered(X, IntToStr(ARestrictions[lclPlatform])).CX); Inc(X, ScaleCoord96(OutVertCentered(X, IntToStr(ARestrictions[lclPlatform])).CX));
end; end;
if None then if None then