ImageEn, unit iexLayers

TIELayer.FillGradient

TIELayer.FillGradient


Declaration

property FillGradient: TIEGDIPlusGradient;


Description

Provides generic access to the gradient fill direction for the layer.
To disable the gradient set the FillColor2 to clNone, or FillGradient to gpgNone.

FillGradient accesses the following properties:
Class Property
TIEImageLayer N/A
TIEShapeLayer FillGradient
TIELineLayer LabelFillGradient
TIEPolylineLayer FillGradient
TIEAngleLayer -
TIETextLayer FillGradient




Example

// Set a vertical gradient fill for an ellipse
ImageEnView1.CurrentLayer.FillColor2   := clRed;
ImageEnView1.CurrentLayer.FillColor    := clYellow;
ImageEnView1.CurrentLayer.FillGradient := gpgVertical;
ImageEnView1.CurrentLayer.BorderWidth  := 0;
ImageEnView1.Update();



// Set a horizontal gradient fill for the label of a line layer
ImageEnView1.CurrentLayer.FillColor    := clRed;
ImageEnView1.CurrentLayer.FillColor2   := clYellow;
ImageEnView1.CurrentLayer.FillGradient := gpgHorizontal;
ImageEnView1.CurrentLayer.BorderColor  := clBlack;
ImageEnView1.CurrentLayer.BorderWidth  := 3;
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 ).Alignment    := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout       := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).HorzMargin   := 0.15;
TIETextLayer( ImageEnView1.CurrentLayer ).VertMargin   := 0.25;
ImageEnView1.CurrentLayer.BorderColor  := clBlack;
ImageEnView1.CurrentLayer.BorderWidth  := 1;
ImageEnView1.CurrentLayer.FillColor    := clRed;
ImageEnView1.CurrentLayer.FillColor2   := clYellow;
ImageEnView1.CurrentLayer.FillGradient := gpgVertCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update();


Compatibility Information

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 and older
if cmbGradient.ItemIndex = 0 then
  lyr.FillGradient := gpgNone
else
  lyr.FillGradient := TIELayerGradient( cmbGradient.ItemIndex - 1 );

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



See Also

TIELayer.FillColor
TIELayer.FillColor2
TIELayer.FillOpacity