TIETIFFHandler.OnFinishWork

Declaration

property OnFinishWork: TNotifyEvent;

Description

Occurs after a loading or saving task terminates. This event is called after the last call to OnProgress, so is useful to reset the progress bar.

Exampl

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;

---