paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 13:45:56 +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 Create a new TRadioButton
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
constructor TRadioButton.Create(AnOwner : TComponent); constructor TRadioButton.Create(TheOwner : TComponent);
begin begin
inherited Create(AnOwner); inherited Create(TheOwner);
fCompStyle := csRadioButton; fCompStyle := csRadioButton;
AutoSize := True; AutoSize := True;
end; end;
@ -108,6 +108,9 @@ end;
{ {
$Log$ $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 Revision 1.14 2004/01/06 17:58:06 mattias
fixed setting TRadioButton.Caption for gtk fixed setting TRadioButton.Caption for gtk

11
lcl/stdctrls.pp
View File

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