TIELayer.FillColor2

Declaration

property FillColor2: TColor;

Description

Provides generic access to the secondary gradient fill color of the layer.
If FillColor2 is clNone, the layer is filled by a solid color specified by FillColor. If FillColor2 is different from FillColor it is drawn as a gradient.
The direction of the gradient is specified by FillGradient.

FillColor2 accesses the following properties:

Class	Property
TIEImageLayer	N/A
TIEShapeLayer	FillColor2
TIELineLayer	LabelFillColor2
TIEPolylineLayer	FillColor2
TIEAngleLayer	-
TIETextLayer	FillColor2

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

TIELayer.FillColor2