mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-24 01:20:07 +02:00
LCL: items in radiogroup and checkgroup use parentfont (#8675)
git-svn-id: trunk@10995 -
This commit is contained in:
parent
39a0ba8569
commit
082deba9c4
@ -116,6 +116,7 @@ begin
|
||||
BorderSpacing.CellAlignVertical:=ccaCenter;
|
||||
Parent := Self;
|
||||
OnClick :=@Self.Clicked;
|
||||
ParentFont := true;
|
||||
Include(ControlStyle, csNoDesignSelectable);
|
||||
end;
|
||||
FButtonList.Add(CheckBox);
|
||||
|
@ -156,6 +156,7 @@ begin
|
||||
OnExit :=@Self.ItemExit;
|
||||
OnKeyDown :=@Self.ItemKeyDown;
|
||||
OnResize := @Self.ItemResize;
|
||||
ParentFont := true;
|
||||
BorderSpacing.CellAlignHorizontal:=ccaLeftTop;
|
||||
BorderSpacing.CellAlignVertical:=ccaCenter;
|
||||
Include(ControlStyle, csNoDesignSelectable);
|
||||
|
Loading…
Reference in New Issue
Block a user