| Class TShadowButton (unit ShadowButton) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);--------------------------------------} { TShadowButton.
| Functions |
destructor Destroy;
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Paint;--------------------------------------} { TShadowButton.
procedure SetBorder(Val : Boolean);
procedure SetBorderColor(Val: TColor);
procedure SetCaption(Val: TCaption);
procedure SetColor(Val: TColor);
procedure SetDeepth(Val: TDeepth);
procedure SetFont(var Message: TMessage);
procedure SetShadow(Val: Boolean);
procedure SetShape(Val: TShapeType);| Properties |
property Border : Boolean
property BorderColor : TColor
property Caption : TCaption
property Color : TColor
property Cursor :
property Deepth : TDeepth
property Enabled :
property Font :
property Hint :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Shadow : Boolean
property Shape : TShapeType
property ShowHint : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOVer :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FBorder : Boolean;
FBorderColor : TColor;
FCaption : TCaption;
FColor : TColor;
FDeepth : TDeepth;
FDeepth2 : TDeepth;
FMouseDown : Boolean;
FShadow : Boolean;
FShape : TShapeType;| Constructors |
constructor Create(AOwner: TComponent);Public Declarations
--------------------------------------} { TShadowButton.Create } {--------------------------------------
| Functions |
destructor Destroy;--------------------------------------} { TShadowButton.Destroy } {--------------------------------------
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Paint;Protected Declarations
--------------------------------------} { TShadowButton.Paint } {--------------------------------------
procedure SetBorder(Val : Boolean);
procedure SetBorderColor(Val: TColor);
procedure SetCaption(Val: TCaption);
procedure SetColor(Val: TColor);
procedure SetDeepth(Val: TDeepth);
procedure SetFont(var Message: TMessage);
procedure SetShadow(Val: Boolean);--------------------------------------} { TShadowButton.SetShadow } {--------------------------------------
procedure SetShape(Val: TShapeType);--------------------------------------} { TShadowButton.SetShape } {--------------------------------------
| Properties |
property Border : Boolean
property BorderColor : TColor
property Caption : TCaption
property Color : TColor
property Cursor :
property Deepth : TDeepth
property Enabled :
property Font :
property Hint :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Shadow : Boolean
property Shape : TShapeType
property ShowHint : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOVer :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FBorder : Boolean;
FBorderColor : TColor;
FCaption : TCaption;Private Declarations
FColor : TColor;
FDeepth : TDeepth;
FDeepth2 : TDeepth;
FMouseDown : Boolean;
FShadow : Boolean;
FShape : TShapeType;