Доделать таскание конечной точки TmsLine

[Alex Lulin]

По мотивам: https://bitbucket.org/ingword/mindstream/issue/3/tmsline-tmsmover

procedure TmsMoveShapeTool.ProcessClickInDiagramm; begin ShapeToDeal.MoveTo(ShapeToDeal.StartPoint, ShapeToDeal.StartPoint + Delta); end;

Двигает ТОЛЬКО начальную точку линии, кнопками, хотя была выбрана конечная.

Там дело в том, что начальную точку надо подавать СВЕРХУ.

[Alex Lulin]

Игорь, проверяйте и закрывайте.

[Ihor Bielykh]

работает