---

But I need TImageEnIO because TimageEnView.IO doesn't all TImageEnIO properties. How to use OnProgress (foe example) etc.?

---

// An example showing seperate progress display for I/O operations and processing operations
procedure TMDIChild.ImageEnView1Progress(Sender: TObject; per: Integer);
begin
  // I/O PROGRESS
  if Sender is TImageEnIO then
  begin
    IOProgressBar.Position := per;
    IOProgressBar.Visible := True;
  end
  else
  // IMAGE PROCESSING PROGRESS
  if Sender is TImageEnProc then
  begin
    ProcProgressBar.Position := per;
    ProcProgressBar.Visible := True;
  end
end;

// Hide the progress bar
procedure TMDIChild.ImageEnView1FinishWork(Sender: TObject);
begin
  // I/O PROGRESS
  if Sender is TImageEnIO then
    IOProgressBar.Visible := False
  else
  // IMAGE PROCESSING PROGRESS
  if Sender is TImageEnProc then
    ProcProgressBar.Visible := False;
end;

SaveImageEnDialog1.AttachedImageEnIO := ImageEnView1;