Class TLabel3DBorder (unit Label3dB)

Inherits from

TCustomLabel

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

procedure Paint;

Private declarations

procedure DoDrawText(var Rect: TRect; Flags: Word);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetVerticalAlign(Value: TVerticalAlign);


Properties

property Align :

inherited properties

property Alignment :


property BorderStyle : TBorderStyle

new properties

property Caption :


property Color :


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property ShowAccelChar :


property ShowHint :


property Transparent :


property VerticalAlign : TVerticalAlign


property Visible :


property WordWrap :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBorderStyle : TBorderStyle;


FVerticalAlign : TVerticalAlign;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


procedure Paint;

Private declarations


procedure DoDrawText(var Rect: TRect; Flags: Word);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetVerticalAlign(Value: TVerticalAlign);


Properties


property Align :

inherited properties


property Alignment :


property BorderStyle : TBorderStyle

new properties


property Caption :


property Color :


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property ShowAccelChar :


property ShowHint :


property Transparent :


property VerticalAlign : TVerticalAlign


property Visible :


property WordWrap :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBorderStyle : TBorderStyle;


FVerticalAlign : TVerticalAlign;