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;