ImageEn, unit imageenio

TImageEnIO.ProgressTask

TImageEnIO.ProgressTask


Declaration

property ProgressTask: TIETask;


Description

Read ProgressTask during the OnProgress event to determine what action is underway.

Read-only


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