OffsetP(Point: IGxPoint);
Point. Точка, на размер координат которой произойдет смещение.
Метод OffsetP осуществляет смещение координат текущей точки на значение, передаваемое посредством параметра Point.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Point: IGxPoint;
Link: IWxLink;
Begin
Point := New GxPoint.Create(23, 12);
Link := UiWorkspace1.WxWorkspace.CreateLink;
Link.BeginUpdate;
Link.FirstPoint := Point.ToPointF;
Point.OffsetP(Point);
Link.LastPoint := Point.ToPointF;
Link.EndUpdate;
End Sub Button1OnClick;
После выполнения примера, при нажатии на кнопку на рабочем пространстве будет создана соединительная линия, и ее конечная точка будет смещена на значение ее начальной точки.
См. также: