Provides generic access to the gradient fill direction for the layer.
To disable the gradient set the FillColor2 to clNone, or FillGradient to gpgNone.
// 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();
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 );