Declaration
TIETask = (ietUnknown, ietLoading, ietSaving, ietOtherIO, ietAcquisition, ietPrinting, ietFilling, ietProcessing, ietAnalysis, ietResampling, ietRotating, ietLayers, ietSearching);
Description
Tasks that call the OnProgress events of
TImageEnView,
TImageEnIO,
TImageEnProc,
TImageEnMView and
TImageEnMIO.
Const | Description | TImageEnView | TImageEnIO | TImageEnProc | TImageEnMView | TImageEnMIO |
ietUnknown | OnProgress is not active | | | | | |
ietLoading | Loading an image | | | | | |
ietSaving | Saving an image | | | | | |
ietOtherIO | Injecting content into an image file | | | | | |
ietAcquisition | Acquiring images from a scanner or camera | | | | | |
ietPrinting | Printing of multiple images | | | | | |
ietFilling | Filling content of TImageEnMView or TImageEnFolderMView, e.g. refreshing a folder | | | | | |
ietProcessing | Performing an image editing task, e.g. color adjustment | | | | | |
ietAnalysis | Performing an image analysis task, e.g. counting colors of an image | | | | | |
ietResampling | Resizing an image | | | | | |
ietRotating | Rotating an image | | | | | |
ietLayers | Merging layers of a TImageEnView | | | | | |
ietSearching | Searching all pages of a PDF Document | | | | | |
// Showing detailed progress display for TImageEnView
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] );
end;
end;
See Also
◼TImageEnView.OnProgress◼TImageEnIO.OnProgress◼TImageEnProc.OnProgress◼TImageEnMView.OnProgress◼TImageEnMIO.OnProgress