TImageEnIO.OnFinishWork

Declaration

property OnFinishWork: TNotifyEvent;

Description

OnFinishWork occurs when an input/output task ends. It is useful for resetting a progress bar or to know when a thread ends in a asynchronous mode.

Example

procedure TForm1.ImageEnIO1Progress(Sender: TObject; per: Integer);
begin
  // Show load/save progress
  ProgressBar1.Visible := True;
  ProgressBar1.Position := per;
  Application.ProcessMessages();   // Important!
end;

procedure TForm1.ImageEnIO1FinishWork(Sender: TObject);
begin
  // Hide the progress bar
  ProgressBar1.Visible := False;
end;

TImageEnIO.OnFinishWork