ImageEn, unit imageenio

TImageEnIO.OnFinishWork

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;


See Also

TImageEnIO.OnProgress
TImageEnView.OnFinishWork