TIEBitmap.GradientFill

Declaration

procedure GradientFill(StartValue, EndValue: Double; Direction: TIEGradientDir = gdVertical);

Description

Fill the image with a color gradient.

Examples

// Fill selection with a yellow to red vertical gradient
ImageEnView1.Proc.GradientFill( clYellow, clRed, gdVertical );




// Add a mask filled with a grayscale gradient
var
  prevLayer: TIELayer;
  bmp: TIEBitmap;
begin
  // Create a gradient image with pixel format of ie8g
  bmp := TIEBitmap.Create( 200, 200, ie8g );
  bmp.GradientFill( 1, 255, gdVertical );

  ImageEnView1.LayersInsert( ImageEnView1.LayersCurrent + 1, bmp );

  // Set this layer as a mask
  ImageEnView1.CurrentLayer.IsMask := True;

  // Layer must be hidden to work as mask
  ImageEnView1.CurrentLayer.Visible := False;

  // Make it the cover the underlying image
  prevLayer := ImageEnView1.Layers[ ImageEnView1.LayersCurrent - 1];
  ImageEnView1.CurrentLayer.PosX   := prevLayer.PosX;
  ImageEnView1.CurrentLayer.PosY   := prevLayer.PosY;
  ImageEnView1.CurrentLayer.Width  := prevLayer.Width;
  ImageEnView1.CurrentLayer.Height := prevLayer.Height;

  bmp.Free;
end;

See Also

◼ Fill
◼ FillRect
◼ GradientFillRect
◼ AlphaFill
◼ AlphaFillRect
◼ GradientFillRect

---