Class TDaveButton1 (unit DaveBtn1) |
Inherits from
TCustomControl
tvar a druh tlačítka - zatím se liší barvou podkladu
constructor Create(AOwner: TComponent);
- --------------------------------------------------------------------------
procedure Click;
--------------------------------------------------------------------------
destructor Destroy;
--------------------------------------------------------------------------
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Called on WM_PAINT message --------------------------------------------------------------------------
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------------------
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------------------
procedure Paint;
--------------------------------------------------------------------------
procedure CMDialogChar(var Message: TCMDialogChar);
--------------------------------------------------------------------------
procedure CMDialogKey(var Message: TCMDialogKey);
--------------------------------------------------------------------------
procedure CMFocusChanged(var Message: TCMFocusChanged);
--------------------------------------------------------------------------
Procedure CMTextChanged(var Message : TMessage);
Nastevení stavu pro property --------------------------------------------------------------------------
procedure CNCommand(var Message: TWMCommand);
--------------------------------------------------------------------------
Procedure SetButtonState(Value : TButtonState);
Nastevení stylu pro property --------------------------------------------------------------------------
Procedure SetButtonStyle(Value : TButtonStyle);
dočasné stlačení - interakce myšky --------------------------------------------------------------------------
procedure SetDefault(Value: Boolean);
--------------------------------------------------------------------------
property Cancel : Boolean
property Caption :
property Default : Boolean
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ModalResult : TModalResult
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Status : TButtonState
property Style : TButtonStyle
property TabOrder :
property TabStop :
property Visible :
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FCancel : Boolean;
FDefault : boolean;
FLastFocus : boolean;
FModalResult : TModalResult;
FPicture : array [TButtonState,TButtonStyle] of TBitMap;
FStatus : TButtonState;
Obrázek tlačítka
FStyle : TButtonStyle;
FTemp : boolean;
constructor Create(AOwner: TComponent);
--------------------------------------------------------------------------
procedure Click;
--------------------------------------------------------------------------
destructor Destroy;
--------------------------------------------------------------------------
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Called on WM_PAINT message
--------------------------------------------------------------------------
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------------------
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------------------
procedure Paint;
--------------------------------------------------------------------------
procedure CMDialogChar(var Message: TCMDialogChar);
--------------------------------------------------------------------------
procedure CMDialogKey(var Message: TCMDialogKey);
--------------------------------------------------------------------------
procedure CMFocusChanged(var Message: TCMFocusChanged);
--------------------------------------------------------------------------
Procedure CMTextChanged(var Message : TMessage);
Nastevení stavu pro property
--------------------------------------------------------------------------
procedure CNCommand(var Message: TWMCommand);
--------------------------------------------------------------------------
Procedure SetButtonState(Value : TButtonState);
Nastevení stylu pro property
--------------------------------------------------------------------------
Procedure SetButtonStyle(Value : TButtonStyle);
dočasné stlačení - interakce myšky
--------------------------------------------------------------------------
procedure SetDefault(Value: Boolean);
--------------------------------------------------------------------------
property Cancel : Boolean
property Caption :
property Default : Boolean
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ModalResult : TModalResult
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Status : TButtonState
property Style : TButtonStyle
property TabOrder :
property TabStop :
property Visible :
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FCancel : Boolean;
FDefault : boolean;
FLastFocus : boolean;
FModalResult : TModalResult;
FPicture : array [TButtonState,TButtonStyle] of TBitMap;
FStatus : TButtonState;
Obrázek tlačítka
FStyle : TButtonStyle;
FTemp : boolean;