Class TDaveButton1 (unit DaveBtn1)

Inherits from

TCustomControl

tvar a druh tlačítka - zatím se liší barvou podkladu

Constructors


constructor Create(AOwner: TComponent);

--------------------------------------------------------------------------


Functions

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);

--------------------------------------------------------------------------

Properties

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 :


Events

event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FCancel : Boolean;


FDefault : boolean;


FLastFocus : boolean;


FModalResult : TModalResult;


FPicture : array [TButtonState,TButtonStyle] of TBitMap;


FStatus : TButtonState;

Obrázek tlačítka

FStyle : TButtonStyle;


FTemp : boolean;



Constructors


constructor Create(AOwner: TComponent);

--------------------------------------------------------------------------


Functions


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);

--------------------------------------------------------------------------


Properties


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 :


Events


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FCancel : Boolean;


FDefault : boolean;


FLastFocus : boolean;


FModalResult : TModalResult;


FPicture : array [TButtonState,TButtonStyle] of TBitMap;


FStatus : TButtonState;

Obrázek tlačítka


FStyle : TButtonStyle;


FTemp : boolean;