paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 20:42:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

published some TRadioButton properties

Browse Source 
git-svn-id: trunk@5232 -
This commit is contained in:
mattias 2004-02-24 20:26:50 +00:00
parent e43bcf45a3
commit 2eac6f15cf
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/radiobutton.inc
View File

@ -49,9 +49,9 @@
Create a new TRadioButton
------------------------------------------------------------------------------}
constructor TRadioButton.Create(AnOwner : TComponent);
constructor TRadioButton.Create(TheOwner : TComponent);
begin
inherited Create(AnOwner);
inherited Create(TheOwner);
fCompStyle := csRadioButton;
AutoSize := True;
end;
@ -108,6 +108,9 @@ end;
{
$Log$
Revision 1.15 2004/02/24 20:26:50 mattias
published some TRadioButton properties
Revision 1.14 2004/01/06 17:58:06 mattias
fixed setting TRadioButton.Caption for gtk

11
lcl/stdctrls.pp
View File

@ -928,13 +928,15 @@ type
procedure DoAutoSize; override;
procedure SetText(const Value: TCaption); override;
public
constructor Create(AnOwner: TComponent); override;
constructor Create(TheOwner: TComponent); override;
published
property Align;
property Anchors;
property AutoSize;
property AllowGrayed;
property Caption;
property Checked;
property Constraints;
property State;
property Visible;
property Enabled;
@ -956,6 +958,10 @@ type
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnChangeBounds;
property OnResize;
property OnStartDrag;
end;
@ -1510,6 +1516,9 @@ end.
{ =============================================================================
$Log$
Revision 1.135 2004/02/24 20:26:50 mattias
published some TRadioButton properties
Revision 1.134 2004/02/23 23:15:12 mattias
improved FindDragTarget