ImageEn, unit IEVect
TIEUserSelectObject
Declaration
TIEUserSelectObject = procedure(Sender: TObject; hobj: integer) of object;