Class TPicBtn (unit PicBtn)

Inherits from

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;

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 : TMaskedPicture

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



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 : TMaskedPicture

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