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

LCL themes: GetDetailSizeForPPI & GetDetailSizeForWindow

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-15 23:41:12 +01:00
parent 6a48c90712
commit 1163a2fcea
2 changed files with 34 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,7 +45,8 @@ type
public
destructor Destroy; override;
function GetDetailSize(Details: TThemedElementDetails): TSize; override;
function GetDetailSizeForWindow(Details: TThemedElementDetails; const AWindow: HWND): TSize; override;
function GetDetailSizeForPPI(Details: TThemedElementDetails; PPI: Integer): TSize; override;
function GetDetailRegion(DC: HDC; Details: TThemedElementDetails; const R: TRect): HRGN; override;
function GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean; override;
function GetStockImage(StockID: LongInt; const AWidth, AHeight: Integer; out Image, Mask: HBitmap): Boolean; override;
@ -184,7 +185,7 @@ begin
FreeThemeLibrary;
end;
function TWin32ThemeServices.GetDetailSize(Details: TThemedElementDetails): TSize;
function TWin32ThemeServices.GetDetailSizeForPPI(Details: TThemedElementDetails; PPI: Integer): TSize;
var
R: TRect;
begin
@ -200,13 +201,26 @@ begin
(Details.Element = teTrackBar) or (Details.Element = teHeader) then
begin
R := Rect(0, 0, 800, 800);
GetThemePartSize(GetTheme(Details.Element), 0, Details.Part, Details.State, @R, TS_TRUE, Result);
GetThemePartSize(GetThemeForPPI(Details.Element, PPI), 0, Details.Part, Details.State, @R, TS_TRUE, Result);
end
else
Result := inherited GetDetailSize(Details);
Result := inherited GetDetailSizeForPPI(Details, PPI);
end
else
Result := inherited GetDetailSize(Details);
Result := inherited GetDetailSizeForPPI(Details, PPI);
end;
function TWin32ThemeServices.GetDetailSizeForWindow(Details: TThemedElementDetails; const AWindow: HWND): TSize;
var
PPI: UINT;
begin
if (AWindow<>0) and AreDpiAwarenessContextsEqual(GetThreadDpiAwarenessContext, DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2) then
PPI := GetDpiForWindow(AWindow)
else
PPI := 0;
if PPI=0 then
PPI := ScreenInfo.PixelsPerInchX;
Result := GetDetailSizeForPPI(Details, PPI);
end;
function TWin32ThemeServices.GetImageAndMaskFromIcon(const Icon: HICON; out Image, Mask: HBITMAP): Boolean;

18
lcl/themes.pas
View File

@ -477,7 +477,9 @@ type
function GetElementDetails(Detail: TThemedTreeview): TThemedElementDetails; overload;
function GetElementDetails(Detail: TThemedWindow): TThemedElementDetails; overload;
function GetDetailSize(Details: TThemedElementDetails): TSize; virtual;
function GetDetailSize(Details: TThemedElementDetails): TSize; virtual; deprecated 'use GetDetailSizeForPPI';
function GetDetailSizeForWindow(Details: TThemedElementDetails; const AWindow: HWND): TSize; virtual;
function GetDetailSizeForPPI(Details: TThemedElementDetails; PPI: Integer): TSize; virtual;
function GetDetailRegion(DC: HDC; Details: TThemedElementDetails; const R: TRect): HRGN; virtual;
function GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean; virtual;
function GetStockImage(StockID: LongInt; const AWidth, AHeight: Integer; out Image, Mask: HBitmap): Boolean; virtual;
@ -1874,6 +1876,11 @@ begin
end;
function TThemeServices.GetDetailSize(Details: TThemedElementDetails): TSize;
begin
Result := GetDetailSizeForPPI(Details, ScreenInfo.PixelsPerInchX);
end;
function TThemeServices.GetDetailSizeForPPI(Details: TThemedElementDetails; PPI: Integer): TSize;
begin
// default values here
// -1 mean that we do not know size of detail
@ -1905,9 +1912,14 @@ begin
Result := Size(8, 5);
end;
if (Result.cx>0) then
Result.cx := MulDiv(Result.cx, ScreenInfo.PixelsPerInchX, 96);
Result.cx := MulDiv(Result.cx, PPI, 96);
if (Result.cy>0) then
Result.cy := MulDiv(Result.cy, ScreenInfo.PixelsPerInchY, 96);
Result.cy := MulDiv(Result.cy, PPI, 96);
end;
function TThemeServices.GetDetailSizeForWindow(Details: TThemedElementDetails; const AWindow: HWND): TSize;
begin
Result := GetDetailSizeForPPI(Details, ScreenInfo.PixelsPerInchX);
end;
function TThemeServices.GetDetailRegion(DC: HDC;