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

LCL/TCustomCheckbox and descendants: Measure size of checkbox/radiobutton symbol from ThemeServices rather than from SystemMetrics. Fixes issue #39398.

Browse Source
This commit is contained in:
wp_xyz 2021-09-25 22:08:25 +02:00
parent 736e71078e
commit d33a33921c
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -1988,17 +1988,33 @@ end;
class procedure TWin32WSCustomCheckBox.GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
var
dx: Integer; // pixel spacing between checkbox and text
iconHeight: integer;
iconWidth: Integer;
details: TThemedElementDetails;
begin
if MeasureText(AWinControl, AWinControl.Caption, PreferredWidth, PreferredHeight) then
begin
Inc(PreferredWidth, GetSystemMetrics(SM_CXMENUCHECK));
// pixels spacing between checkbox and text
if ThemeServices.ThemesEnabled then
Inc(PreferredWidth, 4)
else
Inc(PreferredWidth, 6);
iconHeight := GetSystemMetrics(SM_CYMENUCHECK);
begin
dx := 4;
if AWinControl is TRadioButton then
details := ThemeServices.GetElementDetails(tbRadioButtonCheckedNormal)
else
// ToDo: Handle TToggleBox separately from TCheckbox
details := ThemeServices.GetElementDetails(tbCheckBoxCheckedNormal);
with ThemeServices.GetDetailSize(details) do
begin
iconWidth := CX;
iconHeight := CY;
end;
end else
begin
dx := 6;
iconWidth := GetSystemMetrics(SM_CXMENUCHECK);
iconHeight := GetSystemMetrics(SM_CYMENUCHECK);
end;
Inc(PreferredWidth, iconWidth + dx);
if iconHeight > PreferredHeight then
PreferredHeight := iconHeight;
if WithThemeSpace then