ImageEn, unit imageenio

TImageEnIO.OnProgress

TImageEnIO.OnProgress


Declaration

property OnProgress: TIEProgressEvent;


Description

Occurs during input/output operations. It is commonly used to show task progress.

You can use ProgressTask to determine what action is underway.

Notes:
- If you use this to update a progress bar then you can reset it in the OnFinishWork event.
- To access I/O progress for the IO class of a TImageEnView, use the OnProgress event.


Examples

procedure TForm1.ImageEnIO1Progress(Sender: TObject; per: Integer);
begin
  // Show load/save progress
  ProgressBar1.Visible := True;
  ProgressBar1.Position := per;
  Application.ProcessMessages; // <- important!
end;

procedure TForm1.ImageEnIO1FinishWork(Sender: TObject);
begin
  // Hide the progress bar
  ProgressBar1.Visible := False;
end;

// Showing detailed progress display
procedure TMainForm.ImageEnIO1Progress(Sender: TObject; per: Integer);
begin
  case ImageEnIO1.ProgressTask of
    ietLoading : Caption := format( 'Loading - %d%%', [per] );
    ietSaving : Caption := format( 'Saving - %d%%', [per] );
    ietOtherIO : Caption := format( 'Writing - %d%%', [per] );
    ietAcquisition : Caption := format( 'Acquiring - %d%%', [per] );
    else Caption := format( 'Processing - %d%%', [per] ); // Should not occur
  end;
end;