| Class TPicBtn (unit PicBtn) |
TCustomControl
| Constructors |
Constructor Create(AOwner:TComponent);| Functions |
procedure Click;
procedure ReColor;
procedure StyleChanged(Sender: TObject);
Destructor Destroy;
PROCEDURE DoDrawFocus(Sender: TObject;aCanvas:TCanvas;Var aRect:TRect);
PROCEDURE MovTimer;
Procedure Paint;
PROCEDURE RepTimer;
PROCEDURE CreateWnd;
FUNCTION GetPalette: HPALETTE;
PROCEDURE SetActive (Value:Integer);
PROCEDURE SetFocusColor(Value:TColor);
PROCEDURE SetFsDisabled (Value:Integer);
PROCEDURE SetFsDown (Value:Integer);
PROCEDURE SetFsInActive (Value:Integer);
PROCEDURE SetMasked(Value:Boolean);
PROCEDURE SetMonitoring(Value:Boolean);
PROCEDURE SetNextState(Value:Integer);
PROCEDURE SetNumStates (Value:Integer);
PROCEDURE SetsActive (Value:Integer);
PROCEDURE WindowProc(Var Message:TMessage);
PROCEDURE WMEraseBkgnd(var Message: TWMEraseBkgnd);
PROCEDURE WMGetDlgCode(var Message: TWMGetDlgCode);
PROCEDURE WMKeyDown(var Message: TWMKeyDown);
PROCEDURE WMKeyPress(var Message: TWMChar);
PROCEDURE WMKeyUp(var Message: TWMKeyUp);
PROCEDURE WMKillFocus(var Message: TWMKillFocus);
PROCEDURE WMLButtonDblclk(VAR Msg: TMessage);
PROCEDURE wmLButtonDown(VAR Msg: TMessage);
PROCEDURE WMLButtonUp(VAR Msg: TMessage);
PROCEDURE WMNCHITTEST(var Message: TMessage);
PROCEDURE WMSetFocus(var Message: TWMSetFocus);
PROCEDURE WMWINDOWPOSCHANGED(var Message: TMessage);| Properties |
property BtnState : Integer
property DrawFocus : Boolean
property Enabled :
property FirstWait : Integer
property FocusColor : TColor
property Hint :
property Masked : Boolean
property MaskedPicture : TMaskedPicture
property Monitoring : Boolean
property NextState : Integer
property NumStates : Integer
property ParentFont :
property ParentShowHint :
property Repeate : Integer
property sActive : Integer
property sDisabled : Integer
property sDown : Integer
property ShowHint :
property sInActive : Integer
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnCommand : TNotifyEvent
event OnDrawFocus : TFocusDrawEvent
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseExit : TNotifyEvent
event OnMouseMove :
event OnMouseUp : | Variables |
FMaskBMP : TBitmap;
fMaskedPicture : TMaskedPicture;
FocusRect : TRect;
NumCols : Integer;
BTNParentForm : TForm;
fNextState : Integer;
fOldSX : Integer;
fOldSY : Integer;
fOldX : Integer;
fOldY : Integer;
Handle : HWND;
FBtnState : Integer;
FCommand : TNotifyEvent;
FDrawFocus : Boolean;
FFirstWait : Integer;
FFocusColor : TColor;
FMasked : Boolean;
FMonitoring : Boolean;
FMouseIn : Boolean;
FNumStates : Integer;
FOnDrawFocus : TFocusDrawEvent;
FOnMouseEnter : TNotifyEvent;
FOnMouseExit : TNotifyEvent;
FRepeate : Integer;
FsActive : Integer;
FsDisabled : Integer;
FsDown : Integer;
FsInActive : Integer;
NextTime : LongInt;| Constructors |
Constructor Create(AOwner:TComponent);| Functions |
procedure Click;
procedure ReColor;
procedure StyleChanged(Sender: TObject);
Destructor Destroy;
PROCEDURE DoDrawFocus(Sender: TObject;aCanvas:TCanvas;Var aRect:TRect);
PROCEDURE MovTimer;
Procedure Paint;
PROCEDURE RepTimer;
PROCEDURE CreateWnd;Timer callback
FUNCTION GetPalette: HPALETTE;
PROCEDURE SetActive (Value:Integer);
PROCEDURE SetFocusColor(Value:TColor);
PROCEDURE SetFsDisabled (Value:Integer);
PROCEDURE SetFsDown (Value:Integer);
PROCEDURE SetFsInActive (Value:Integer);
PROCEDURE SetMasked(Value:Boolean);
PROCEDURE SetMonitoring(Value:Boolean);
PROCEDURE SetNextState(Value:Integer);
PROCEDURE SetNumStates (Value:Integer);
PROCEDURE SetsActive (Value:Integer);
PROCEDURE WindowProc(Var Message:TMessage);
PROCEDURE WMEraseBkgnd(var Message: TWMEraseBkgnd);
PROCEDURE WMGetDlgCode(var Message: TWMGetDlgCode);
PROCEDURE WMKeyDown(var Message: TWMKeyDown);
PROCEDURE WMKeyPress(var Message: TWMChar);
PROCEDURE WMKeyUp(var Message: TWMKeyUp);
PROCEDURE WMKillFocus(var Message: TWMKillFocus);
PROCEDURE WMLButtonDblclk(VAR Msg: TMessage);
PROCEDURE wmLButtonDown(VAR Msg: TMessage);
PROCEDURE WMLButtonUp(VAR Msg: TMessage);
PROCEDURE WMNCHITTEST(var Message: TMessage);
PROCEDURE WMSetFocus(var Message: TWMSetFocus);
PROCEDURE WMWINDOWPOSCHANGED(var Message: TMessage);| Properties |
property BtnState : Integer
property DrawFocus : Boolean
property Enabled :
property FirstWait : Integer
property FocusColor : TColor
property Hint :
property Masked : Boolean
property MaskedPicture : TMaskedPicturePublished-Deklarationen
property Monitoring : Boolean
property NextState : Integer
property NumStates : Integer
property ParentFont :
property ParentShowHint :
property Repeate : Integer
property sActive : Integer
property sDisabled : Integer
property sDown : Integer
property ShowHint :
property sInActive : Integer
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnCommand : TNotifyEvent
event OnDrawFocus : TFocusDrawEvent
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseExit : TNotifyEvent
event OnMouseMove :
event OnMouseUp : | Variables |
FMaskBMP : TBitmap;Public-Deklarationen
fMaskedPicture : TMaskedPicture;
FocusRect : TRect;
NumCols : Integer;
BTNParentForm : TForm;
fNextState : Integer;
fOldSX : Integer;
fOldSY : Integer;
fOldX : Integer;
fOldY : Integer;
Handle : HWND;Protected-Deklarationen
FBtnState : Integer;
FCommand : TNotifyEvent;
FDrawFocus : Boolean;
FFirstWait : Integer;
FFocusColor : TColor;
FMasked : Boolean;
FMonitoring : Boolean;
FMouseIn : Boolean;Private-Deklarationen
FNumStates : Integer;
FOnDrawFocus : TFocusDrawEvent;
FOnMouseEnter : TNotifyEvent;
FOnMouseExit : TNotifyEvent;
FRepeate : Integer;
FsActive : Integer;
FsDisabled : Integer;
FsDown : Integer;
FsInActive : Integer;
NextTime : LongInt;