Contrast example for Delphi

This example increases the contrast and repaints the image.

var
   sRet: Smallint;
   RasterProc: LEADRasterProcess;

begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess ) as LEADRasterProcess;
   RasterProc.Contrast (LEADRasterView1.Raster, 50);
   LEADRasterView1.ForceRepaint (sRet);
end;