| Class TOButton (unit OComps) |
TCustomControl
TOButton control definition...
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure DoEnter;
procedure DoExit;
procedure DrawBorder;
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;