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

added shrinking to TRadioGroup and TCheckGroup

Browse Source 
git-svn-id: trunk@8621 -
This commit is contained in:
mattias 2006-01-25 23:18:16 +00:00
parent 022e1f68df
commit 2daff690f8
3 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customcheckgroup.inc
View File

@ -34,6 +34,8 @@ begin
FColumns := 1;
ChildSizing.Layout:=cclLeftToRightThenTopToBottom;
ChildSizing.ControlsPerLine:=FColumns;
ChildSizing.ShrinkHorizontal:=crsScaleChilds;
ChildSizing.ShrinkVertical:=crsScaleChilds;
SetInitialBounds(0,0,250,200);
end;

2
lcl/include/radiogroup.inc
View File

@ -73,6 +73,8 @@ begin
FColumnLayout := clHorizontalThenVertical;
ChildSizing.Layout:=cclLeftToRightThenTopToBottom;
ChildSizing.ControlsPerLine:=FColumns;
ChildSizing.ShrinkHorizontal:=crsScaleChilds;
ChildSizing.ShrinkVertical:=crsScaleChilds;
SetInitialBounds(0,0,250,200);
TabStop := True;
end;

1
lcl/include/wincontrol.inc
View File

@ -1651,6 +1651,7 @@ end;
procedure TWinControl.DoChildSizingChange(Sender: TObject);
begin
//debugln('TWinControl.DoChildSizingChange ',DbgSName(Self));
if ControlCount=0 then exit;
InvalidatePreferredSize;
ReAlign;
end;