Class THebBorRadio (unit Myhebchk)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

-------------------------------------------------------------------} { Borland Radio Button } {-------------------------------------------------------------------


Functions

procedure DoEnter;


procedure DoExit;


function GetCaption: TCaption;

FrameRect(Rect);

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 SetAlignment(Value: TLeftRight);


procedure TurnSiblingsOff;


Properties

property Alignment : TLeftRight


property Caption : TCaption


property CheckColor : TColor


property Checked : Boolean


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Font :


property GroupIndex : Byte


property ParentColor :


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

FAlignment : TLeftRight;


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;

FrameRect(Rect);


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 SetAlignment(Value: TLeftRight);


procedure TurnSiblingsOff;


Properties


property Alignment : TLeftRight


property Caption : TCaption


property CheckColor : TColor


property Checked : Boolean


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Font :


property GroupIndex : Byte


property ParentColor :


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


FAlignment : TLeftRight;


FCheckColor : TColor;


FChecked : Boolean;


FDown : Boolean;


FFocused : Boolean;


FGroupIndex : Byte;