LCL: items in radiogroup and checkgroup use parentfont (#8675)

git-svn-id: trunk@10995 -
This commit is contained in:
vincents 2007-04-24 11:46:17 +00:00
parent 39a0ba8569
commit 082deba9c4
2 changed files with 2 additions and 0 deletions

View File

@ -116,6 +116,7 @@ begin
BorderSpacing.CellAlignVertical:=ccaCenter;
Parent := Self;
OnClick :=@Self.Clicked;
ParentFont := true;
Include(ControlStyle, csNoDesignSelectable);
end;
FButtonList.Add(CheckBox);

View File

@ -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);