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;