ImageEn, unit iemview

TImageEnMView.OnDrawProgress

TImageEnMView.OnDrawProgress

Declaration

property OnDrawProgress: TIEMProgressEvent;

Description

Occurs as each image is painted.
per returns the number of images completed (painted or skipped because they are off-screen) out of the total number of images in the control. It will reach 100% when all images onscreen have been painted.
idx is the current image being painted.

Example

procedure TForm1.ImageEnMView1DrawProgress(Sender: TObject; per, idx: Integer);
begin
  ProgressBar1.Position := per;
end;