pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Fix high-dpi scaling of TCheckComboBoxEx.ButtonWidth.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8141 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-11-01 21:08:32 +00:00
parent bd0f7165d6
commit a7056cddc0
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/exctrls/source/excheckcombo.pas
View File

@ -83,6 +83,8 @@ type
procedure ButtonClick; override; procedure ButtonClick; override;
procedure CloseUp; procedure CloseUp;
procedure CreateHandle; override; procedure CreateHandle; override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure DoEnter; override; procedure DoEnter; override;
procedure DoChange; virtual; procedure DoChange; virtual;
procedure DoItemChange(AIndex: Integer); virtual; procedure DoItemChange(AIndex: Integer); virtual;
@ -569,6 +571,14 @@ begin
Buddy.Width := GetSystemMetrics(SM_CXVSCROLL); Buddy.Width := GetSystemMetrics(SM_CXVSCROLL);
end; end;
procedure TCheckComboBoxEx.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
begin
inherited;
if FButtonWidth < 0 then
Buddy.Width := GetSystemMetrics(SM_CXVSCROLL);
end;
procedure TCheckComboBoxEx.DoChange; procedure TCheckComboBoxEx.DoChange;
begin begin
if Assigned(FOnChange) then FOnChange(self); if Assigned(FOnChange) then FOnChange(self);