| Class THebBorCheck (unit Myhebchk) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DoEnter;
procedure DoExit;
function GetCaption: TCaption;
function GetChecked:Boolean;
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 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;