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

LCL-GTK2: Fix icon scaling in menuitems. Patch from Ondrej.

Browse Source 
git-svn-id: trunk@59325 -
This commit is contained in:
juha 2018-10-19 16:13:03 +00:00
parent 71dbce1d30
commit c8beaba5c1
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/interfaces/gtk2/gtk2winapi.inc
View File

@ -4723,10 +4723,10 @@ begin
//we will also have to add internal support for Papersizes etc..
LOGPIXELSX : { Logical pixels per inch in X }
Result := RoundToInt(gdk_screen_width / (GetScreenWidthMM / 25.4));
Result := ScreenInfo.PixelsPerInchX;
LOGPIXELSY : { Logical pixels per inch in Y }
Result := RoundToInt(gdk_screen_height / (GetScreenHeightMM / 25.4));
Result := ScreenInfo.PixelsPerInchY;
SIZEPALETTE: { number of entries in color palette }
if GetVisual then