| Class TBorRadio (unit BorBtns) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DoEnter;
procedure DoExit;
function GetCaption: TCaption;
procedure KeyDown(var Key:Word;Shift:TShiftSTate);
procedure KeyUp(var Key:Word;Shift:TShiftSTate);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState;X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure SetCaption(const Value:TCaption);
procedure SetCheckColor(Value:TColor);
procedure SetChecked(Value:Boolean);
procedure SetDown(Value:Boolean);
procedure TurnSiblingsOff;| Properties |
property Caption : TCaption
property CheckColor : TColor
property Checked : Boolean
property Down : Boolean
property DragCursor :
property DragMode :
property Font :
property GroupIndex : Byte
property ParentFont :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop : | Events |
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FCheckColor : TColor;
FChecked : Boolean;
FDown : Boolean;
FFocused : Boolean;
FGroupIndex : Byte;| Constructors |
constructor Create(AOwner: TComponent);-------------------------------------------------------------------} { Borland Radio Button } {-------------------------------------------------------------------
| Functions |
procedure DoEnter;
procedure DoExit;
function GetCaption: TCaption;
procedure KeyDown(var Key:Word;Shift:TShiftSTate);
procedure KeyUp(var Key:Word;Shift:TShiftSTate);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState;X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure SetCaption(const Value:TCaption);
procedure SetCheckColor(Value:TColor);
procedure SetChecked(Value:Boolean);
procedure SetDown(Value:Boolean);
procedure TurnSiblingsOff;| Properties |
property Caption : TCaption
property CheckColor : TColor
property Checked : Boolean
property Down : Boolean
property DragCursor :
property DragMode :
property Font :
property GroupIndex : Byte
property ParentFont :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop : | Events |
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FCheckColor : TColor;
FChecked : Boolean;
FDown : Boolean;
FFocused : Boolean;
FGroupIndex : Byte;