Class TOButton (unit OComps)

Inherits from

TCustomControl

TOButton control definition...

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure DoEnter;


procedure DoExit;


procedure DrawBorder;

Beginning of TOButton code.

procedure DrawCaption;


procedure DrawFace;


procedure DrawFocus;


procedure DrawLed;


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


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


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetButtonStyle(ADefault: Boolean);


procedure CmDialogChar(var Message: TCMDialogChar);


procedure CmDialogKey(var Message: TCMDialogKey);


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmFocusChanged(var Message: TCMFocusChanged);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmParentColorChanged(var Message: TWMNoParams);


procedure CmTextChanged(var Message: TWmNoParams);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure CnCommand(var Message: TWMCommand);


procedure SetBorderColor(index: integer; value: TColor);


procedure SetDefault(Value: Boolean);


procedure SetRoundSize(value: Integer);


procedure WMMouseMove(var Message: TWMMouseMove);


Properties

property ActiveBorderColor : TColor


property BorderColor : TColor


property Cancel : Boolean


property Caption :


property Color :


property Default : Boolean


property Enabled :


property Font :


property Hint :


property ModalResult : TModalResult


property ParentColor :


property ParentFont :


property ParentShowHint :


property RoundSize : Integer


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


Events

event OnClick :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseEnter : TMouseEnter


event OnMouseLeave : TMouseLeave


event OnMouseMove :


event OnMouseUp :


Variables

FActive : Boolean;


FActiveBorderColor : TColor;


FBorderColor : TColor;


FCancel : Boolean;


FDefault : Boolean;


FLed : TBitmap;


FModalResult : TModalResult;


FMouseEnter : TMouseEnter;


FMouseLeave : TMouseLeave;


Focused : boolean;


FRoundSize : integer;


HasMouse : boolean;


MouseIsDown : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure DoEnter;


procedure DoExit;


procedure DrawBorder;

Beginning of TOButton code...


procedure DrawCaption;


procedure DrawFace;


procedure DrawFocus;


procedure DrawLed;


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


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


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetButtonStyle(ADefault: Boolean);


procedure CmDialogChar(var Message: TCMDialogChar);


procedure CmDialogKey(var Message: TCMDialogKey);


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmFocusChanged(var Message: TCMFocusChanged);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmParentColorChanged(var Message: TWMNoParams);


procedure CmTextChanged(var Message: TWmNoParams);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure CnCommand(var Message: TWMCommand);


procedure SetBorderColor(index: integer; value: TColor);


procedure SetDefault(Value: Boolean);


procedure SetRoundSize(value: Integer);


procedure WMMouseMove(var Message: TWMMouseMove);


Properties


property ActiveBorderColor : TColor


property BorderColor : TColor


property Cancel : Boolean


property Caption :


property Color :


property Default : Boolean


property Enabled :


property Font :


property Hint :


property ModalResult : TModalResult


property ParentColor :


property ParentFont :


property ParentShowHint :


property RoundSize : Integer


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


Events


event OnClick :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseEnter : TMouseEnter


event OnMouseLeave : TMouseLeave


event OnMouseMove :


event OnMouseUp :


Variables


FActive : Boolean;


FActiveBorderColor : TColor;


FBorderColor : TColor;


FCancel : Boolean;


FDefault : Boolean;


FLed : TBitmap;


FModalResult : TModalResult;


FMouseEnter : TMouseEnter;


FMouseLeave : TMouseLeave;


Focused : boolean;


FRoundSize : integer;


HasMouse : boolean;


MouseIsDown : boolean;