Class TArtLabel (unit ArtLabel)

Inherits from

TGraphicControl

TDirection = (diNormal, diMirrored, diChinese, diStartMenu, diNotStartMenu);

Constructors


constructor Create ( AOwner: TComponent );

Public declarations

TArtLabel



Functions

destructor Destroy ;


procedure OnFontChange(Sender: TObject);


procedure OnGradChange(Sender: TObject);


procedure Paint;

Protected declarations

TArtLabel


function GetFont: TFont;

Repaint;

procedure SetArtStyle( Value: TArtStyle );

fDirection: TDirection;

procedure SetAutosize(Value: Boolean);


procedure SetBitmap( Value: TBitmap);


procedure SetCaption( Value: TCaption );


procedure SetColor( Value: TColor );


procedure SetFont( Value: TFont );


procedure SetGrad(Value: TGradient);

Because the Tmp is already been comtracted.

procedure SetOutlineColor(Value: TColor);


procedure SetShadowColor( Value: TColor );


procedure SetShadowLength(Value: Integer);


procedure SetTextAlign(Value: TAlignment);


procedure SetTransparent( Value: Boolean );


Properties

property Align :

property Direction: TDirection read fDirection write SetDirection; {Pre-exists properties

property ArtStyle : TArtStyle

Published declarations

property AutoSize : Boolean


property Bitmap : TBitmap


property Caption : TCaption


property Color : TColor


property Font : TFont


property Gradient : TGradient


property OutlineColor : TColor


property ParentFont :


property ParentShowHint :


property ShadowColor : TColor


property ShadowLength : Integer


property ShowHint :


property TextAlign : TAlignment


property Transparent : Boolean


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

fArtStyle : TArtStyle;


fAutoSize : Boolean;


fBitmap : TBitmap;


fCaption : TCaption;


fColor : TColor;


fGradBmp : TBitmap;


fGradChanged : Boolean;


fGradient : TGradient;


fOutlineColor : TColor;


fShadowColor : TColor;


fShadowLength : Integer;


fTextAlign : TAlignment;


fTransparent : Boolean;

fFont: TFont;

Tmp : TBitmap;

Private declarations


Constructors


constructor Create ( AOwner: TComponent );

Public declarations

TArtLabel


Functions


destructor Destroy ;


procedure OnFontChange(Sender: TObject);


procedure OnGradChange(Sender: TObject);


procedure Paint;

Protected declarations

TArtLabel


function GetFont: TFont;

Repaint;


procedure SetArtStyle( Value: TArtStyle );

fDirection: TDirection;


procedure SetAutosize(Value: Boolean);


procedure SetBitmap( Value: TBitmap);


procedure SetCaption( Value: TCaption );


procedure SetColor( Value: TColor );


procedure SetFont( Value: TFont );


procedure SetGrad(Value: TGradient);

Because the Tmp is already been comtracted. there is no need to make another object.


procedure SetOutlineColor(Value: TColor);


procedure SetShadowColor( Value: TColor );


procedure SetShadowLength(Value: Integer);


procedure SetTextAlign(Value: TAlignment);


procedure SetTransparent( Value: Boolean );


Properties


property Align :

property Direction: TDirection read fDirection write SetDirection; {Pre-exists properties


property ArtStyle : TArtStyle

Published declarations


property AutoSize : Boolean


property Bitmap : TBitmap


property Caption : TCaption


property Color : TColor


property Font : TFont


property Gradient : TGradient


property OutlineColor : TColor


property ParentFont :


property ParentShowHint :


property ShadowColor : TColor


property ShadowLength : Integer


property ShowHint :


property TextAlign : TAlignment


property Transparent : Boolean


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


fArtStyle : TArtStyle;


fAutoSize : Boolean;


fBitmap : TBitmap;


fCaption : TCaption;


fColor : TColor;


fGradBmp : TBitmap;


fGradChanged : Boolean;


fGradient : TGradient;


fOutlineColor : TColor;


fShadowColor : TColor;


fShadowLength : Integer;


fTextAlign : TAlignment;


fTransparent : Boolean;

fFont: TFont;


Tmp : TBitmap;

Private declarations