From 32586bd54bb2330b3206f3040a3524cf7e6ef6a4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 17 Mar 2003 23:39:30 +0000
Subject: [PATCH] added TCheckGroup

git-svn-id: trunk@3951 -
---
 ide/idecomp.pp                   |  2 +-
 images/components_images.lrs     | 12 ++++++++++++
 lcl/include/customradiogroup.inc | 11 +++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ide/idecomp.pp b/ide/idecomp.pp
index a3c3500a3e..16aa42591a 100644
--- a/ide/idecomp.pp
+++ b/ide/idecomp.pp
@@ -327,7 +327,7 @@ begin
   RegisterComponents('Standard','Buttons',[TButton]);
   RegisterComponents('Standard','StdCtrls',[TToggleBox, TCheckBox,
           TRadioButton, TListBox,TComboBox,TScrollBar,TGroupBox,TStaticText]);
-  RegisterComponents('Standard','ExtCtrls',[TRadioGroup,TPanel]);
+  RegisterComponents('Standard','ExtCtrls',[TRadioGroup,TCheckGroup,TPanel]);
 
   // Additional
   RegisterComponents('Additional','Buttons',[TBitBtn,TSpeedButton]);
diff --git a/images/components_images.lrs b/images/components_images.lrs
index a5c3da2523..a5dff8244a 100644
--- a/images/components_images.lrs
+++ b/images/components_images.lrs
@@ -110,6 +110,18 @@ LazarusResources.Add('tcheckbox','XPM',[
   +',1-",'#10'".#>##>>-#2>3-",'#10'".{>|>>->>>41-",'#10'".#56378''930a-",'#10'"'
   +' ------------"};'#10
 ]);
+LazarusResources.Add('tcheckgroup','XPM',[
+  '/* XPM */'#10'static char * tcheckgroup_xpm[] = {'#10'"20 19 7 1",'#10'" '#9
+  +'c None",'#10'".'#9'c #D30013",'#10'"+'#9'c #808080",'#10'"@'#9'c #C0C0C0",'
+  +#10'"#'#9'c #FFFFFF",'#10'"$'#9'c #000000",'#10'"%'#9'c #870013",'#10'"   ..'
+  +'......         ",'#10'"++@........@+++++++ ",'#10'"+#@........@######@#",'
+  +#10'"+#@@@@@@@@@@@@@@@@+#",'#10'"+#@@@@@@@@@@@@@@@@+#",'#10'"+#@@@@$@@@@@@@@'
+  +'@@@+#",'#10'"+#@$@$@%%%%%%%%%@@+#",'#10'"+#@@$@@@@@@@@@@@@@+#",'#10'"+#@@@@'
+  +'@@@@@@@@@@@@+#",'#10'"+#@@@@$@@@@@@@@@@@+#",'#10'"+#@$@$@%%%%%%%%@@@+#",'#10
+  +'"+#@@$@@@@@@@@@@@@@+#",'#10'"+#@@@@@@@@@@@@@@@@+#",'#10'"+#@@@@$@@@@@@@@@@@'
+  +'+#",'#10'"+#@$@$@%%%%%%%%%@@+#",'#10'"+#@@$@@@@@@@@@@@@@+#",'#10'"+#@@@@@@@'
+  +'@@@@@@@@@+#",'#10'"+@+++++++++++++++++#",'#10'" ###################"};'#10
+]);
 LazarusResources.Add('tcolordialog','XPM',[
   '/* XPM */'#10'static char * tcolordialog_xpm[] = {'#10'"22 20 12 1",'#10'" '
   +#9'c None",'#10'".'#9'c #848484",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #000000"'
diff --git a/lcl/include/customradiogroup.inc b/lcl/include/customradiogroup.inc
index 948b1b8ccb..3b428daf0a 100644
--- a/lcl/include/customradiogroup.inc
+++ b/lcl/include/customradiogroup.inc
@@ -160,6 +160,14 @@ begin
   FCreatingWnd := false;
 end;
 
+function TCustomRadioGroup.Rows: integer;
+begin
+  if FItems.Count>0 then
+    Result:=((FItems.Count-1) div Columns)+1
+  else
+    Result:=0;
+end;
+
 {------------------------------------------------------------------------------
   Method: TCustomRadioGroup.ItemsChanged
   Params:  sender : object calling this proc. (in fact the FItems instance)
@@ -368,6 +376,9 @@ end;
 
 {
   $Log$
+  Revision 1.20  2003/03/17 23:39:30  mattias
+  added TCheckGroup
+
   Revision 1.19  2003/03/17 20:50:30  mattias
   fixed TRadioGroup.ItemIndex=-1