| Class TGradText (unit GradText) |
TGraphicControl
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure DoHorizCenter(fr, fg, fb, dr, dg, db : Integer);
procedure DoHorizontal(fr, fg, fb, dr, dg, db : Integer);
procedure DoRectangle(fr, fg, fb, dr, dg, db : Integer);
procedure DoText;
procedure DoVertCenter(fr, fg, fb, dr, dg, db : Integer);
procedure DoVertical(fr, fg, fb, dr, dg, db : Integer);Draw on Bitmap
procedure Paint;
procedure SetBeginClr(Value : TColor);
procedure SetCaption(Value : string);
procedure SetEndClr(Value : TColor);
procedure SetGradient(Value : TGradientStyle);
procedure SetJustify(Value : TJustification);
procedure SetLines(Value : Tstrings);| Properties |
property BeginColor : TColor
property EndColor : TColor
property Font :
property GradientStyle : TGradientStyle
property Justification : TJustification
property Lines : TStrings
property Visible :
property Caption : string| Events |
| Variables |
bmB : TBitmap;
bmT : TBitmap;
FBeginClr : TColor;
FCaption : string;
FEndClr : TColor;
FGradientStyle : TGradientStyle;
FJustify : TJustification;
FLines : Tstrings;| Constructors |
constructor Create(AOwner : TComponent);| Functions |
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
| Properties |
property BeginColor : TColorNot published
property EndColor : TColor
property Font :
property GradientStyle : TGradientStyle
property Justification : TJustification
property Lines : TStrings
property Visible :
property Caption : string| Events |
| Variables |
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;