IGxPoint.IsEmpty

Синтаксис

IsEmpty: Boolean;

Описание

Свойство IsEmpty возвращает True если точка имеет координаты «0,0».

Пример

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

PointF, PointL: IGxPoint;

Link: IWxLink;

s, s1: String;

Begin

Link:=UiWorkspace1.WxWorkspace.CreateLink;

PointF:=Link.FirstPoint.ToPoint;

PointL:=Link.LastPoint.ToPoint;

If PointF.IsEmpty Then

s:="Yes";

Else

s:="No";

End If;

If PointL.IsEmpty Then

s1:="Yes";

Else

s1:="No";

End If;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку на рабочем пространстве будет создана  соединительная линия и в переменных «s» и «s1» будет содержаться «Yes», если начальная и конечная точка, соответственно, будут иметь координаты «0,0».

См. также:

IGxPoint