Class TGradText (unit GradText) |
Inherits from
TGraphicControl
constructor Create(AOwner : TComponent);
destructor Destroy;
procedure DoHorizCenter(fr, fg, fb, dr, dg, db : Integer);
procedure DoHorizontal(fr, fg, fb, dr, dg, db : Integer);
Draw the text
procedure DoRectangle(fr, fg, fb, dr, dg, db : Integer);
the gradients.
procedure DoText;
Overlay our control canvas.
procedure DoVertCenter(fr, fg, fb, dr, dg, db : Integer);
Plug colors into brush
procedure DoVertical(fr, fg, fb, dr, dg, db : Integer);
These all drawDraw on Bitmap
procedure Paint;
This makes our control transparent.
procedure SetBeginClr(Value : TColor);
Seems odd, but it works for me.
procedure SetCaption(Value : string);
Draw text
procedure SetEndClr(Value : TColor);
Set start color of gradient
procedure SetGradient(Value : TGradientStyle);
Set end color of gradient
procedure SetJustify(Value : TJustification);
Update the text
procedure SetLines(Value : Tstrings);
Choose gradient fill style
property BeginColor : TColor
Not published
property EndColor : TColor
property Font :
property GradientStyle : TGradientStyle
property Justification : TJustification
property Lines : TStrings
property Visible :
property Caption : string
bmB : TBitmap;
bmT : TBitmap;
Internal BMP's
FBeginClr : TColor;
FCaption : string;
Variable for getting the text
FEndClr : TColor;
Start color for gradient
FGradientStyle : TGradientStyle;
End color for gradient
FJustify : TJustification;
Variable for use with DrawText API
FLines : Tstrings;
constructor Create(AOwner : TComponent);
destructor Destroy;
procedure DoHorizCenter(fr, fg, fb, dr, dg, db : Integer);
procedure DoHorizontal(fr, fg, fb, dr, dg, db : Integer);
Draw the text
procedure DoRectangle(fr, fg, fb, dr, dg, db : Integer);
the gradients.
Draw on Bitmap
procedure DoText;
Overlay our control canvas.
procedure DoVertCenter(fr, fg, fb, dr, dg, db : Integer);
Plug colors into brush
procedure DoVertical(fr, fg, fb, dr, dg, db : Integer);
These all draw
Draw on Bitmap
procedure Paint;
This makes our control transparent.
procedure SetBeginClr(Value : TColor);
Seems odd, but it works for me.
procedure SetCaption(Value : string);
Draw text
procedure SetEndClr(Value : TColor);
Set start color of gradient
procedure SetGradient(Value : TGradientStyle);
Set end color of gradient
procedure SetJustify(Value : TJustification);
Update the text
procedure SetLines(Value : Tstrings);
Choose gradient fill style
property BeginColor : TColor
Not published
property EndColor : TColor
property Font :
property GradientStyle : TGradientStyle
property Justification : TJustification
property Lines : TStrings
property Visible :
property Caption : string
bmB : TBitmap;
bmT : TBitmap;
Internal BMP's
FBeginClr : TColor;
FCaption : string;
Variable for getting the text
FEndClr : TColor;
Start color for gradient
FGradientStyle : TGradientStyle;
End color for gradient
FJustify : TJustification;
Variable for use with DrawText API
FLines : Tstrings;