ImageEn, unit ieview

TIETask


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               


Example

// 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