From 2daff690f8407c74b7f3d04c0e873c23496b6c1e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 25 Jan 2006 23:18:16 +0000
Subject: [PATCH] added shrinking to TRadioGroup and TCheckGroup

git-svn-id: trunk@8621 -
---
 lcl/include/customcheckgroup.inc | 2 ++
 lcl/include/radiogroup.inc       | 2 ++
 lcl/include/wincontrol.inc       | 1 +
 3 files changed, 5 insertions(+)

diff --git a/lcl/include/customcheckgroup.inc b/lcl/include/customcheckgroup.inc
index d216fe41bd..5f0414b77f 100644
--- a/lcl/include/customcheckgroup.inc
+++ b/lcl/include/customcheckgroup.inc
@@ -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;
 
diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc
index 86129d2248..1a2ad66c2e 100644
--- a/lcl/include/radiogroup.inc
+++ b/lcl/include/radiogroup.inc
@@ -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;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 9e4546e384..e668ec9969 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1651,6 +1651,7 @@ end;
 procedure TWinControl.DoChildSizingChange(Sender: TObject);
 begin
   //debugln('TWinControl.DoChildSizingChange ',DbgSName(Self));
+  if ControlCount=0 then exit;
   InvalidatePreferredSize;
   ReAlign;
 end;