PaintDither example for Delphi

This example turns on error diffusion and redisplays the bitmap.

var
   sRet: Smallint;
begin
   LEADRasterView1.PaintDither:= PAINTDITHER_DIFFUSION;
   LEADRasterView1.ForceRepaint (sRet);
end;