EnablePaint example for Delphi

var
   RasterProc: LEADRasterProcess;
   sRet: smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   //disable the paint
   LEADRasterView1.EnablePaint := False;
   //do whatever changes you want. The control will not repaint
   RasterProc.Size ( LEADRasterView1.Raster, LEADRasterView1.Raster.BitmapWidth * 2,
                   LEADRasterView1.Raster.BitmapHeight * 2, RESIZE_BICUBIC ) ;
   // re-enable the paint
   LEADRasterView1.EnablePaint := True;
   // call ForceRepaint because the control will not automatically repaint
   LEADRasterView1.ForceRepaint ( sRet ) ;
end;