Class TBorRadio (unit BorBtns)

Inherits from

TCustomControl

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;



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;