ImageEn, unit hyiedefs
TProgressRec
Declaration
// helper structure for OnProgress
TProgressRec = record
OnProgress: TIEProgressEvent;
Sender: TObject;
val: integer; // counter (per=trunc(per1*val))
tot: integer;
per1: double; // (100/maxval)
per2: double;
Aborting: pboolean;
end;