paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 16:01:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed SetRadioButtonGroupMode

Browse Source 
git-svn-id: trunk@3950 -
This commit is contained in:
mattias 2003-03-17 20:53:16 +00:00
parent 48e0c94e7a
commit 66fb12f4a9
2 changed files with 6 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/include/radiobutton.inc
View File

@ -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

10
lcl/stdctrls.pp
View File

@ -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