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

added TCheckGroup

Browse Source 
git-svn-id: trunk@3951 -
This commit is contained in:
mattias 2003-03-17 23:39:30 +00:00
parent 66fb12f4a9
commit 32586bd54b
3 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/idecomp.pp
View File

@ -327,7 +327,7 @@ begin
RegisterComponents('Standard','Buttons',[TButton]); RegisterComponents('Standard','Buttons',[TButton]);
RegisterComponents('Standard','StdCtrls',[TToggleBox, TCheckBox, RegisterComponents('Standard','StdCtrls',[TToggleBox, TCheckBox,
TRadioButton, TListBox,TComboBox,TScrollBar,TGroupBox,TStaticText]); TRadioButton, TListBox,TComboBox,TScrollBar,TGroupBox,TStaticText]);
RegisterComponents('Standard','ExtCtrls',[TRadioGroup,TPanel]); RegisterComponents('Standard','ExtCtrls',[TRadioGroup,TCheckGroup,TPanel]);
// Additional // Additional
RegisterComponents('Additional','Buttons',[TBitBtn,TSpeedButton]); RegisterComponents('Additional','Buttons',[TBitBtn,TSpeedButton]);

12
images/components_images.lrs
View File

@ -110,6 +110,18 @@ LazarusResources.Add('tcheckbox','XPM',[
+',1-",'#10'".#>##>>-#2>3-",'#10'".{>|>>->>>41-",'#10'".#56378''930a-",'#10'"' +',1-",'#10'".#>##>>-#2>3-",'#10'".{>|>>->>>41-",'#10'".#56378''930a-",'#10'"'
+' ------------"};'#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',[ LazarusResources.Add('tcolordialog','XPM',[
'/* XPM */'#10'static char * tcolordialog_xpm[] = {'#10'"22 20 12 1",'#10'" ' '/* 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"' +#9'c None",'#10'".'#9'c #848484",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #000000"'

11
lcl/include/customradiogroup.inc
View File

@ -160,6 +160,14 @@ begin
FCreatingWnd := false; FCreatingWnd := false;
end; 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 Method: TCustomRadioGroup.ItemsChanged
Params: sender : object calling this proc. (in fact the FItems instance) Params: sender : object calling this proc. (in fact the FItems instance)
@ -368,6 +376,9 @@ end;
{ {
$Log$ $Log$
Revision 1.20 2003/03/17 23:39:30 mattias
added TCheckGroup
Revision 1.19 2003/03/17 20:50:30 mattias Revision 1.19 2003/03/17 20:50:30 mattias
fixed TRadioGroup.ItemIndex=-1 fixed TRadioGroup.ItemIndex=-1