Class TGradText (unit GradText)

Inherits from

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);

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 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 : TColor

Not 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;



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 : TColor

Not 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;