| Class TIconButton (unit Iconbutn) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var msg: TMessage);
procedure CMFocusChanged(var msg: TMessage);
procedure CMTextChanged(var msg: TMessage);
destructor Destroy;
procedure DrawDown;
procedure DrawUp;
procedure Click;
procedure DoDrawText(cv: TCanvas; x,y,w,h: Integer);
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 RaisedBorderOutlineFill(cv: TCanvas; r: TRect; c: TColor);
procedure SunkenBorder(cv: TCanvas; r: TRect);
procedure SunkenBorderOutlineFill(cv: TCanvas; r: TRect; c: TColor);
procedure AutoDestroy;
procedure AutoInitialize;
procedure SetIcon(Value: TIcon);| Properties |
property About : TAboutProperty
property Caption :
property Enabled :
property Font :
property Icon : TIcon
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutProperty;
FDown : Boolean;
FDragging : Boolean;
FIcon : TIcon;
FState : TButtonState;| Constructors |
constructor Create(AOwner: TComponent);* IconButton
| Functions |
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var msg: TMessage);
procedure CMFocusChanged(var msg: TMessage);
procedure CMTextChanged(var msg: TMessage);
destructor Destroy;
procedure DrawDown;free bitmap
procedure DrawUp;
procedure Click;
procedure DoDrawText(cv: TCanvas; x,y,w,h: Integer);
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 RaisedBorderOutlineFill(cv: TCanvas; r: TRect; c: TColor);
procedure SunkenBorder(cv: TCanvas; r: TRect);
procedure SunkenBorderOutlineFill(cv: TCanvas; r: TRect; c: TColor);
procedure AutoDestroy;
procedure AutoInitialize;
procedure SetIcon(Value: TIcon);| Properties |
property About : TAboutProperty
property Caption :
property Enabled :
property Font :
property Icon : TIcon
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutProperty;
FDown : Boolean;
FDragging : Boolean;
FIcon : TIcon;
FState : TButtonState;