Class TLabel3d (unit Mylabel)

Inherits from

TLabel

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure Paint;

Creates Buffer dynamic variable} {GetTextBuf(Text, SizeOf(Text));

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

------------------------------------------------------------------------------

procedure SetFhOffSet(value: integer);


procedure SetFvOffSet(value: integer);


procedure SetShadeLT(value: boolean);


procedure SetShadowColor(Value:TColor);


procedure setStyleEffect(Value : T3DEffect);

Private declarations

procedure SetWhiteColor(Value:TColor);


Properties

property AHShadeOffSet : integer


property Align :

Published declarations

property AShadeLeftTop : TColor


property AShadeLTSet : boolean


property AShadeRightBottom : TColor


property AStyle3D : T3DEffect


property AVShadeOffSet : integer


property Caption :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property Left :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Top :


property Transparent :


property Visible :


property Width :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

F3DEffect : T3DEffect;

Protected declarations

FhOffSet : integer;


FLast : TColor;


FShadeLTSet : boolean;


FShadowColor : TColor;


FvOffSet : integer;


FWhiteColor : TColor;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure Paint;

Creates Buffer dynamic variable} {GetTextBuf(Text, SizeOf(Text));


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

------------------------------------------------------------------------------


procedure SetFhOffSet(value: integer);


procedure SetFvOffSet(value: integer);


procedure SetShadeLT(value: boolean);


procedure SetShadowColor(Value:TColor);


procedure setStyleEffect(Value : T3DEffect);

Private declarations


procedure SetWhiteColor(Value:TColor);


Properties


property AHShadeOffSet : integer


property Align :

Published declarations


property AShadeLeftTop : TColor


property AShadeLTSet : boolean


property AShadeRightBottom : TColor


property AStyle3D : T3DEffect


property AVShadeOffSet : integer


property Caption :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property Left :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Top :


property Transparent :


property Visible :


property Width :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


F3DEffect : T3DEffect;

Protected declarations


FhOffSet : integer;


FLast : TColor;


FShadeLTSet : boolean;


FShadowColor : TColor;


FvOffSet : integer;


FWhiteColor : TColor;