Class TArtLabel (unit ArtLabel) |
Inherits from
TGraphicControl
TDirection = (diNormal, diMirrored, diChinese, diStartMenu, diNotStartMenu);
constructor Create ( AOwner: TComponent );
- Public declarations
TArtLabel
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 );
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
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
constructor Create ( AOwner: TComponent );
Public declarations
TArtLabel
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 );
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
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