paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TRadioGroup.ItemIndex=-1

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

15
lcl/extctrls.pp
View File

@ -409,6 +409,7 @@ type
TCustomRadioGroup = class(TCustomGroupBox) TCustomRadioGroup = class(TCustomGroupBox)
private private
FButtonList : TList; // list of TRadioButton FButtonList : TList; // list of TRadioButton
FHiddenButton: TRadioButton;
FCreatingWnd: boolean; FCreatingWnd: boolean;
FItems : TStrings; FItems : TStrings;
FItemIndex : integer; FItemIndex : integer;
@ -418,12 +419,8 @@ type
procedure ItemsChanged (Sender : TObject); procedure ItemsChanged (Sender : TObject);
procedure Clicked(Sender : TObject); virtual; procedure Clicked(Sender : TObject); virtual;
procedure DoPositionButtons; procedure DoPositionButtons;
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
function CanModify : boolean; virtual;
procedure CreateWnd; override;
protected protected
procedure UpdateRadioButtonStates;
procedure ReadState(Reader: TReader); override; procedure ReadState(Reader: TReader); override;
procedure SetItem (value : TStrings); procedure SetItem (value : TStrings);
procedure SetColumns (value : integer); procedure SetColumns (value : integer);
@ -434,6 +431,11 @@ type
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;
property OnClick : TNotifyEvent read FOnClick write FOnClick; property OnClick : TNotifyEvent read FOnClick write FOnClick;
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
function CanModify : boolean; virtual;
procedure CreateWnd; override;
end; end;
@ -562,6 +564,9 @@ end.
{ {
$Log$ $Log$
Revision 1.52 2003/03/17 20:50:30 mattias
fixed TRadioGroup.ItemIndex=-1
Revision 1.51 2003/03/11 07:46:43 mattias Revision 1.51 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl more localization for gtk- and win32-interface and lcl