Declaration
property ProgressTask: TIETask;
Description
Read
ProgressTask during the
OnProgress event to determine what action is underway.
Read-only
// 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;