Class TShadowButton (unit ShadowButton) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Public Declarations
--------------------------------------} { TShadowButton.
destructor Destroy;
--------------------------------------} { TShadowButton.
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.
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.
procedure SetShape(Val: TShapeType);
--------------------------------------} { TShadowButton.
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOVer :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FBorder : Boolean;
FBorderColor : TColor;
FCaption : TCaption;
Private Declarations
FColor : TColor;
FDeepth : TDeepth;
FDeepth2 : TDeepth;
FMouseDown : Boolean;
FShadow : Boolean;
FShape : TShapeType;
constructor Create(AOwner: TComponent);
Public Declarations
--------------------------------------} { TShadowButton.Create } {--------------------------------------
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 } {--------------------------------------
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOVer :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FBorder : Boolean;
FBorderColor : TColor;
FCaption : TCaption;
Private Declarations
FColor : TColor;
FDeepth : TDeepth;
FDeepth2 : TDeepth;
FMouseDown : Boolean;
FShadow : Boolean;
FShape : TShapeType;