Mosaic example for Delphi

This example applies a mosaic effect with 8x8 tiles and redisplays the bitmap.

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