Class THebBorCheck (unit Myhebchk)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

-------------------------------------------------------------------} { Borland Style CheckBox } {-------------------------------------------------------------------


Functions

procedure DoEnter;


procedure DoExit;


function GetCaption: TCaption;

FrameRect(Rect);

function GetChecked:Boolean;


procedure KeyDown(var Key:Word;Shift:TShiftSTate);


procedure KeyUp(var Key:Word;Shift:TShiftSTate);

if Key=vk_Space then Down:=True;

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);

Down:=True;

procedure Paint;


procedure SetCaption(const Value:TCaption);


procedure SetCheckColor(Value:TColor);


procedure SetChecked(Value:Boolean);


procedure SetDown(Value:Boolean);


procedure SetState(Value:TCheckBoxState);


procedure SetAlignment(Value: TLeftRight);


Properties

property Alignment : TLeftRight


property AllowGrayed : Boolean


property Caption : TCaption


property CheckColor : TColor


property Checked : Boolean


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Font :


property ParentColor :


property ParentFont :


property PopupMenu :


property ShowHint :


property State : TCheckBoxState


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;


FAllowGrayed : Boolean;


FCheckColor : TColor;


FDown : Boolean;


FFocused : Boolean;


FState : TCheckBoxState;



Constructors


constructor Create(AOwner: TComponent);

-------------------------------------------------------------------} { Borland Style CheckBox } {-------------------------------------------------------------------


Functions


procedure DoEnter;


procedure DoExit;


function GetCaption: TCaption;

FrameRect(Rect);


function GetChecked:Boolean;


procedure KeyDown(var Key:Word;Shift:TShiftSTate);


procedure KeyUp(var Key:Word;Shift:TShiftSTate);

if Key=vk_Space then Down:=True;


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);

Down:=True;


procedure Paint;


procedure SetCaption(const Value:TCaption);


procedure SetCheckColor(Value:TColor);


procedure SetChecked(Value:Boolean);


procedure SetDown(Value:Boolean);


procedure SetState(Value:TCheckBoxState);


procedure SetAlignment(Value: TLeftRight);


Properties


property Alignment : TLeftRight


property AllowGrayed : Boolean


property Caption : TCaption


property CheckColor : TColor


property Checked : Boolean


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Font :


property ParentColor :


property ParentFont :


property PopupMenu :


property ShowHint :


property State : TCheckBoxState


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;


FAllowGrayed : Boolean;


FCheckColor : TColor;


FDown : Boolean;


FFocused : Boolean;


FState : TCheckBoxState;