diff --git a/lcl/include/radiobutton.inc b/lcl/include/radiobutton.inc index f20287e009..2a26e61e2c 100644 --- a/lcl/include/radiobutton.inc +++ b/lcl/include/radiobutton.inc @@ -53,7 +53,6 @@ constructor TRadioButton.Create(AnOwner : TComponent); begin inherited Create(AnOwner); fCompStyle := csRadioButton; - fAutoGroup:=true; AutoSize := True; end; @@ -74,33 +73,6 @@ begin end; end; -{------------------------------------------------------------------------------ - function TRadioButton.GetAutoGroup: boolean; - ------------------------------------------------------------------------------} -function TRadioButton.GetAutoGroup: boolean; -begin - Result:=fAutoGroup; -end; - -{------------------------------------------------------------------------------ - function TRadioButton.AutoGroupIsStored: boolean; - ------------------------------------------------------------------------------} -function TRadioButton.AutoGroupIsStored: boolean; -begin - Result:=fAutoGroup; -end; - -{------------------------------------------------------------------------------ - procedure TRadioButton.SetAutoGroup(const AValue: boolean); - ------------------------------------------------------------------------------} -procedure TRadioButton.SetAutoGroup(const AValue: boolean); -begin - if AValue=fAutoGroup then exit; - fAutoGroup:=AValue; - if (not HandleAllocated) or (csLoading in ComponentState) then exit; - SetRadioButtonGroupMode(Handle,fAutoGroup); -end; - {------------------------------------------------------------------------------ Method: TRadioButton.DoAutoSize Params: Value : Boolean @@ -136,6 +108,9 @@ end; { $Log$ + Revision 1.13 2003/03/17 20:53:16 mattias + removed SetRadioButtonGroupMode + Revision 1.12 2003/03/17 20:50:30 mattias fixed TRadioGroup.ItemIndex=-1 diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp index 2b2031fd66..2039cd06eb 100644 --- a/lcl/stdctrls.pp +++ b/lcl/stdctrls.pp @@ -806,11 +806,6 @@ type {TRadioButton} TRadioButton = class(TCustomCheckBox) - private - fAutoGroup: boolean; - function AutoGroupIsStored: boolean; - function GetAutoGroup: boolean; - procedure SetAutoGroup(const AValue: boolean); protected procedure DoAutoSize; override; procedure SetText(const Value: TCaption); override; @@ -818,8 +813,6 @@ type constructor Create (AnOwner: TComponent); override; published property Anchors; - property AutoGroup: boolean read GetAutoGroup write SetAutoGroup - stored AutoGroupIsStored; property AutoSize; property AllowGrayed; property Caption; @@ -1402,6 +1395,9 @@ end. { ============================================================================= $Log$ + Revision 1.82 2003/03/17 20:53:16 mattias + removed SetRadioButtonGroupMode + Revision 1.81 2003/03/17 20:50:30 mattias fixed TRadioGroup.ItemIndex=-1