TImageEnView.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.ImageEnView1Progress(Sender: TObject; per: Integer);
begin
  case ImageEnView1.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] );
    ietProcessing  : Caption := format( 'Processing - %d%%', [per] );
    ietAnalysis    : Caption := format( 'Analyzing - %d%%', [per] );
    ietResampling  : Caption := format( 'Resizing - %d%%', [per] );
    ietRotating    : Caption := format( 'Rotating - %d%%', [per] );
    ietLayers      : Caption := format( 'Merging - %d%%', [per] );
    ietSearching   : Caption := format( 'Searching - %d%%', [per] );
    else             Caption := format( 'Processing - %d%%', [per] );  // Should not occur
  end;
end;

---