Fill example for Delphi

This example fills the bitmap with blue and repaints the image.

var
   RasterProc: LEADRasterProcess;
   sRet: Smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess ) as LEADRasterProcess;
   RasterProc.Fill (LEADRasterView1.Raster, RGB(0, 0, 255));
   LEADRasterView1.ForceRepaint (sRet);
end;