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

Qt5,Qt6: Fixed TQtThemeServices.GetDetailSizeForPPI double-scaling Result

Browse Source
This commit is contained in:
Zoë Peterson 2024-05-09 18:59:22 +00:00 committed by Maxim Ganetsky
parent b2c74fa967
commit 6297d5b089
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt5/qtthemes.pas
View File

@ -933,18 +933,18 @@ begin
Result.cy := QStyle_pixelMetric(Style, QStylePM_IndicatorHeight, nil, nil);
Result.cx := QStyle_pixelMetric(Style, QStylePM_IndicatorWidth, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, PPI, 96);
Result.cy := MulDiv(Result.cy, PPI, ScreenInfo.PixelsPerInchY);
end else
if Details.Part = BP_RADIOBUTTON then
begin
Result.cy := QStyle_pixelMetric(Style, QStylePM_ExclusiveIndicatorHeight, nil, nil);
Result.cx := QStyle_pixelMetric(Style, QStylePM_ExclusiveIndicatorWidth, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, PPI, 96);
Result.cy := MulDiv(Result.cy, PPI, ScreenInfo.PixelsPerInchY);
end else
Result := inherited;
end;
@ -968,7 +968,7 @@ begin
Result.cy := -1;
Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
end else
Result := inherited;
else

10
lcl/interfaces/qt6/qtthemes.pas
View File

@ -937,18 +937,18 @@ begin
Result.cy := QStyle_pixelMetric(Style, QStylePM_IndicatorHeight, nil, nil);
Result.cx := QStyle_pixelMetric(Style, QStylePM_IndicatorWidth, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, PPI, 96);
Result.cy := MulDiv(Result.cy, PPI, ScreenInfo.PixelsPerInchY);
end else
if Details.Part = BP_RADIOBUTTON then
begin
Result.cy := QStyle_pixelMetric(Style, QStylePM_ExclusiveIndicatorHeight, nil, nil);
Result.cx := QStyle_pixelMetric(Style, QStylePM_ExclusiveIndicatorWidth, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, PPI, 96);
Result.cy := MulDiv(Result.cy, PPI, ScreenInfo.PixelsPerInchY);
end else
Result := inherited;
end;
@ -972,7 +972,7 @@ begin
Result.cy := -1;
Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
Result.cx := MulDiv(Result.cx, PPI, ScreenInfo.PixelsPerInchX);
end else
Result := inherited;
else