Source position: LSControls.pas line 54
type TLSListBoxDragDropItemEvent = procedure(
ASender: TObject;
const AFromPos: Integer;
const AToPos: Integer
) of object;