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

added TCheckGroup

Browse Source 
git-svn-id: trunk@3194 -
This commit is contained in:
mattias 2002-08-19 15:15:10 +00:00
parent 7ca83621a2
commit 74c881a3d3
1 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
lcl/extctrls.pp
View File

@ -427,6 +427,7 @@ type
procedure SetItemIndex (value : integer); procedure SetItemIndex (value : integer);
function GetItemIndex : integer; function GetItemIndex : integer;
procedure WMSize(var Message: TLMSize); message LM_SIZE; procedure WMSize(var Message: TLMSize); message LM_SIZE;
protected
property ItemIndex : integer read GetItemIndex write SetItemIndex default -1; property ItemIndex : integer read GetItemIndex write SetItemIndex default -1;
property Items : TStrings read FItems write SetItem; property Items : TStrings read FItems write SetItem;
property Columns : integer read FColumns write SetColumns default 1; property Columns : integer read FColumns write SetColumns default 1;
@ -436,6 +437,7 @@ type
destructor Destroy; override; destructor Destroy; override;
function CanModify : boolean; virtual; function CanModify : boolean; virtual;
procedure CreateWnd; override; procedure CreateWnd; override;
function Rows: integer;
end; end;
@ -454,6 +456,61 @@ type
property Visible; property Visible;
property OnClick; property OnClick;
end; end;
{ TCustomCheckGroup }
TCheckGroupClicked = procedure(Sender: TObject; Index: integer) of object;
TCustomCheckGroup = class(TCustomGroupBox)
private
FButtonList : TList; // list of TCheckBox
FCreatingWnd: boolean;
FItems : TStrings;
FColumns : integer;
FOnItemClick: TCheckGroupClicked;
procedure UpdateItems;
function GetChecked(Index: integer): boolean;
procedure ItemsChanged (Sender : TObject);
procedure DoPositionButtons;
procedure SetChecked(Index: integer; const AValue: boolean);
procedure Clicked(Sender: TObject);
procedure DoClick(Index: integer);
protected
procedure SetItems(Value: TStrings);
procedure SetColumns(Value: integer);
procedure WMSize(var Message: TLMSize); message LM_SIZE;
procedure DefineProperties(Filer: TFiler); override;
procedure ReadData(Stream: TStream);
procedure WriteData(Stream: TStream);
procedure Loaded; override;
procedure DoOnResize; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function Rows: integer;
public
property Items: TStrings read FItems write SetItems;
property Checked[Index: integer]: boolean read GetChecked write SetChecked;
property Columns: integer read FColumns write SetColumns default 1;
property OnItemClick: TCheckGroupClicked read FOnItemClick write FOnItemClick;
end;
{ TCheckGroup }
TCheckGroup = class(TCustomCheckGroup)
public
published
property Align;
property Caption;
property Enabled;
property Items;
property Columns;
property Visible;
property OnItemClick;
property OnResize;
end;
{ TCustomPanel } { TCustomPanel }
@ -553,17 +610,20 @@ uses Math;
{$I idletimer.inc} {$I idletimer.inc}
{$I shape.inc} {$I shape.inc}
{$I paintbox.inc} {$I paintbox.inc}
{$I customcheckgroup.inc}
{$I customradiogroup.inc} {$I customradiogroup.inc}
{$I custompanel.inc} {$I custompanel.inc}
{$I radiogroup.inc} {$I radiogroup.inc}
{$I bevel.inc} {$I bevel.inc}
{$I image.inc} {$I image.inc}
end. end.
{ {
$Log$ $Log$
Revision 1.53 2003/03/17 23:39:30 mattias
added TCheckGroup
Revision 1.52 2003/03/17 20:50:30 mattias Revision 1.52 2003/03/17 20:50:30 mattias
fixed TRadioGroup.ItemIndex=-1 fixed TRadioGroup.ItemIndex=-1