TOnDragLine Event

type TOnDragLine = procedure(Sender: TColorLineTool; LineBorder: TLineBorder) of object;