TProgressRec

Declaration

  // helper structure for OnProgress
  TProgressRec = record
    OnProgress: TIEProgressEvent;
    Sender: TObject;
    Val: Integer;   // counter (per=Trunc(Per1*Val))
    Tot: Integer;   // Max value
    Per1: Double;   // (100/maxval)
    Per2: Double;   // Special use cases
    Aborting: PBoolean;
  end;

---