Class TShadowButton (unit ShadowButton)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TShadowButton.



Functions

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.

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;



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;