| Class TArtLabel (unit ArtLabel) |
TGraphicControl
TDirection = (diNormal, diMirrored, diChinese, diStartMenu, diNotStartMenu);
| Constructors |
constructor Create ( AOwner: TComponent );TArtLabel
| Functions |
destructor Destroy ;
procedure OnFontChange(Sender: TObject);
procedure OnGradChange(Sender: TObject);
procedure Paint;TArtLabel
function GetFont: TFont;
procedure SetArtStyle( Value: TArtStyle );
procedure SetAutosize(Value: Boolean);
procedure SetBitmap( Value: TBitmap);
procedure SetCaption( Value: TCaption );
procedure SetColor( Value: TColor );
procedure SetFont( Value: TFont );
procedure SetGrad(Value: TGradient);
procedure SetOutlineColor(Value: TColor);
procedure SetShadowColor( Value: TColor );
procedure SetShadowLength(Value: Integer);
procedure SetTextAlign(Value: TAlignment);
procedure SetTransparent( Value: Boolean );| Properties |
property Align :
property ArtStyle : TArtStyle
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;
Tmp : TBitmap;| 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 : TArtStylePublished 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