TIETextLayer.FillGradient

Declaration

property FillGradient: TIEGDIPlusGradient;

Description

The direction of the gradient used for the text box fill.
If FillColor is different from FillColor2 the text box is filled with a gradient. FillGradient specifies the direction.
To disable the gradient set the FillColor2 to clNone, or FillGradient to gpgNone.

Default: gpgVertical

Examples

// Add a red/blue horizontal gradient
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor    := clRed;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor2   := clBlue;
TIETextLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgHorizontal;
ImageEnView1.Update();

// Add a "Shape" layer with margins around text
ImageEnView1.LayersAdd( ielkText );
TIETextLayer( ImageEnView1.CurrentLayer ).Text         := 'EXPLOSION!';
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style   := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := iesExplosion;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := 1;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor    := clRed;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor2   := clYellow;
TIETextLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgVertCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment    := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout       := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).HorzMargin   := 0.15;
TIETextLayer( ImageEnView1.CurrentLayer ).VertMargin   := 0.25;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update();

Compatibility Notes

Prior to v10.0.0, Layer Gradients were of type TIELayerGradient. All gradients are now type TIEGDIPlusGradient.
Conversions are as follows: grdNone ➔ gpgNone, grdHorizontal ➔ gpgHorizontal, grdVertical ➔ gpgVertical, grdHorzCenter ➔ gpgHorzCenter, grdVertCenter ➔ gpgVertCenter, grdDiagonal ➔ gpgDiagonal, grdDiagonal2 ➔ gpgDiagonal2, grdDiagCentered ➔ gpgDiagCenter, grdDiagCentered2 ➔ gpgDiagCenter2
Note: Items of TIEGDIPlusGradient do not have the same indexes as TIELayerGradient.
// cmbGradient contains items: None, Horizontal, Vertical, Horz Center...

// <= v9.3.1
if cmbGradient.ItemIndex = 0 then
lyr.FillGradient := gpgNone
else
lyr.FillGradient := TIELayerGradient( cmbGradient.ItemIndex - 1 );

// v10.0.0
lyr.FillGradient := TIEGDIPlusGradient( cmbGradient.ItemIndex );

TIETextLayer.FillGradient