Class TOfficeButton (unit OContrls)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Click;


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


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


procedure Paint;


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetBorderColor(value: TColor);


procedure SetBorderWidth(value: TBorderWidth);


procedure SetButtonColor(value: TColor);


procedure SetCaption(value: TCaption);


procedure SetEnabled(value: boolean);


procedure SetFont(value: TFont);


procedure SetRoundSize(value: integer);


procedure SetTransparent(value: boolean);


Properties

property BorderColor : TColor


property BorderWidth : TBorderWidth


property ButtonColor : TColor


property Caption : TCaption


property Enabled : boolean


property Font : TFont


property RoundSize : integer


property ShowHint :


property Transparent : boolean


property Visible :


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables

ExtraSpace : word;


FBorderColor : TColor;


FBorderWidth : TBorderWidth;


FButtonColor : TColor;


FCaption : TCaption;


FEnabled : boolean;


FFont : TFont;


FGlyph : TBitmap;


FMouseEnter : TNotifyEvent;


FMouseLeave : TNotifyEvent;


FRoundSize : integer;


FTransparent : boolean;


HasMouse : boolean;


IsMouseDown : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Click;


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


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


procedure Paint;


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetBorderColor(value: TColor);


procedure SetBorderWidth(value: TBorderWidth);


procedure SetButtonColor(value: TColor);


procedure SetCaption(value: TCaption);


procedure SetEnabled(value: boolean);


procedure SetFont(value: TFont);


procedure SetRoundSize(value: integer);


procedure SetTransparent(value: boolean);


Properties


property BorderColor : TColor


property BorderWidth : TBorderWidth


property ButtonColor : TColor


property Caption : TCaption


property Enabled : boolean


property Font : TFont


property RoundSize : integer


property ShowHint :


property Transparent : boolean


property Visible :


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables


ExtraSpace : word;


FBorderColor : TColor;


FBorderWidth : TBorderWidth;


FButtonColor : TColor;


FCaption : TCaption;


FEnabled : boolean;


FFont : TFont;


FGlyph : TBitmap;


FMouseEnter : TNotifyEvent;


FMouseLeave : TNotifyEvent;


FRoundSize : integer;


FTransparent : boolean;


HasMouse : boolean;


IsMouseDown : boolean;