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

Qt5: implemented GetDetailSizeForPPI().

Browse Source
This commit is contained in:
zeljan1 2022-11-18 14:29:57 +01:00
parent 8b8ac1696f
commit 3d0419bb74
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,6 +64,7 @@ type
procedure DrawText(ACanvas: TPersistent; Details: TThemedElementDetails; const S: String; R: TRect; Flags, Flags2: Cardinal); overload; override;
procedure DrawText(DC: HDC; Details: TThemedElementDetails; const S: String; R: TRect; Flags, Flags2: Cardinal); overload; override;
function GetDetailSize(Details: TThemedElementDetails): TSize; override;
function GetDetailSizeForPPI(Details: TThemedElementDetails; PPI: Integer): TSize; override;
function GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean; override;
function ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect; override;
@ -962,6 +963,16 @@ begin
end;
end;
function TQtThemeServices.GetDetailSizeForPPI(Details: TThemedElementDetails;
PPI: Integer): TSize;
begin
Result := GetDetailSize(Details);
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, PPI, 96);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, PPI, 96);
end;
function TQtThemeServices.GetStockImage(StockID: LongInt; out Image,
Mask: HBitmap): Boolean;
var