added TCheckGroup

git-svn-id: trunk@3951 -

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

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"'

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