Declaration

TIEVDragLenEndEvent = procedure(Sender: TObject; Value: double) of object;

Description

Value is the measured length.

---