Emboss example for Delphi

This example applies an emboss effect and repaints the image.

var
   RasterProc: LEADRasterProcess;
   sRet: smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.Emboss ( LEADRasterView1.Raster, EMBOSS_NE, 500 ) ;
   LEADRasterView1.ForceRepaint ( sRet ) ;
end;