paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 10:50:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make the initial height of ToggleBox match with Button. Issue #30536, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@52961 -
This commit is contained in:
juha 2016-09-13 12:42:03 +00:00
parent c3bce1ccfe
commit cdd2334167
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/togglebox.inc
View File

@ -16,6 +16,12 @@ begin
RegisterToggleBox; RegisterToggleBox;
end; end;
class function TToggleBox.GetControlClassDefaultSize: TSize;
begin
//Use TButton's size
Result := TButton.GetControlClassDefaultSize;
end;
procedure TToggleBox.CreateParams(var Params: TCreateParams); procedure TToggleBox.CreateParams(var Params: TCreateParams);
begin begin
inherited CreateParams(Params); inherited CreateParams(Params);

1
lcl/stdctrls.pp
View File

@ -1341,6 +1341,7 @@ type
TToggleBox = class(TCustomCheckBox) TToggleBox = class(TCustomCheckBox)
protected protected
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
class function GetControlClassDefaultSize: TSize; override;
procedure CreateParams(var Params: TCreateParams); override; procedure CreateParams(var Params: TCreateParams); override;
property ParentColor default false; property ParentColor default false;
public public