ImageEn, unit ievect
TIEOnPresentMeasure
Declaration
TIEOnPresentMeasure = procedure(Sender: TObject; var Text: string; Value: double; ValType:
TIEVValType
) of object;