ImageEn, unit imageenproc |
|
TImageEnProc.ProgressTask
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.ImageEnProc1Progress(Sender: TObject; per: Integer);
begin
case ImageEnProc1.ProgressTask of
ietProcessing : Caption := format( 'Processing - %d%%', [per] );
ietAnalysis : Caption := format( 'Analyzing - %d%%', [per] );
ietResampling : Caption := format( 'Resizing - %d%%', [per] );
ietRotating : Caption := format( 'Rotating - %d%%', [per] );
else Caption := format( 'Processing - %d%%', [per] ); // Should not occur
end;
end;