Saturation example for Delphi

This example increases the saturation of colors in the bitmap and redisplays the image.

var
   RasterProc: LEADRasterProcess;
   sRet: Smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.Saturation (LEADRasterView1.Raster, 1000);
   LEADRasterView1.ForceRepaint (sRet);
end;