MinFilter example for Delphi

Note:

This topic is for Document/Medical only.

This example dilates dark objects and repaints the image.

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