PaintWhileLoad example for Delphi

This example causes the LEAD RasterView control to paint the image as it loads.

var
   RasterIO:LEADRasterIO;
begin
   RasterIO:= CreateComObject (CLASS_LEADRasterIO) as LEADRasterIO;
   LEADRasterView1.AutoRepaint := False;
   LEADRasterView1.AutoSetRects := True;
   LEADRasterView1.PaintSizeMode := PAINTSIZEMODE_FIT;
   LEADRasterView1.PaintWhileLoad := True;
   RasterIO.Load (LEADRasterView1.Raster, 'v:\images\image1.cmp', 0, 0, 1);

end;