Grayscale example for Delphi

This example converts the bitmap to 12-bit grayscale.

var
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess ) as LEADRasterProcess;
   RasterProc.Grayscale (LEADRasterView1.Raster, 12);  //Grayscale image to 12-bit
end;