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

win32: themes: scale sizes for High-DPI

Browse Source 
git-svn-id: trunk@54226 -
This commit is contained in:
ondrej 2017-02-21 17:42:16 +00:00
parent 6f5693f5ff
commit d8902074d4
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32themes.pas
View File

@ -171,7 +171,7 @@ begin
if ThemesEnabled then
begin
if (Details.Element = teToolBar) and (Details.Part = TP_SPLITBUTTONDROPDOWN) then
Result.cx := 12
Result.cx := MulDiv(12, ScreenInfo.PixelsPerInchX, 96)
else
if ((Details.Element = teTreeview) and (Details.Part in [TVP_GLYPH, TVP_HOTGLYPH])) or
((Details.Element = teWindow) and (Details.Part in [WP_SMALLCLOSEBUTTON])) then
@ -180,10 +180,18 @@ begin
GetThemePartSize(GetTheme(Details.Element), 0, Details.Part, Details.State, @R, TS_TRUE, Result);
end
else
begin
Result := inherited GetDetailSize(Details);
Result.cx := MulDiv(Result.cx, ScreenInfo.PixelsPerInchX, 96);
Result.cy := MulDiv(Result.cy, ScreenInfo.PixelsPerInchY, 96);
end;
end
else
begin
Result := inherited GetDetailSize(Details);
Result.cx := MulDiv(Result.cx, ScreenInfo.PixelsPerInchX, 96);
Result.cy := MulDiv(Result.cy, ScreenInfo.PixelsPerInchY, 96);
end;
end;
function TWin32ThemeServices.GetDetailRegion(DC: HDC;