ImageEn, unit iemio

TImageEnMIO.OnProgress

TImageEnMIO.OnProgress


Declaration

property OnProgress: TIEProgressEvent;


Description

Occurs on input/output operations. If you are using it to update a progress bar then you can reset it in the OnFinishWork event.

You can use ProgressTask to determine what action is underway.


Example

// 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] );
    ietAcquisition : Caption := format( 'Acquiring - %d%%', [per] );
    ietPrinting    : Caption := format( 'Printing - %d%%', [per] );
    else             Caption := format( 'Processing - %d%%', [per] );  // Should not occur
  end;
end;