TIETIFFHandler.OnProgress
Declaration
property OnProgress: TIEProgressEvent;
Description
Occurs when loading and saving a TIFF. If you use it to update a progress bar then you should reset it in the
OnFinishWork event.
aTIFFHandler.OnProgress := aTIFFHandlerProgress;
aTIFFHandler.OnFinishWork := aTIFFHandlerFinishWork;
// Show progress display during processing operations
procedure TMainForm.aTIFFHandlerProgress(Sender: TObject; per: Integer);
begin
ProgressBar1.Position := per;
ProgressBar1.Visible := True;
Application.ProcessMessages();
end;
// Hide the progress bar
procedure TMainForm.aTIFFHandlerFinishWork(Sender: TObject);
begin
ProgressBar1.Visible := False;
end;