Hi
Actually you need only ever use the TImageEnView.OnProgress. If you care only for TImageEnIO progress then check whether the sender is a TImageEnIO.
Example
// 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;
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com