IGxRect.IsEmpty

Синтаксис

IsEmpty: Boolean;

Описание

Свойство IsEmpty возвращает True, если все границы целочисленного прямоугольника нулевые.

Пример

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

Var

Obj: ITabObject;

Rect: IGxRect;

s: String;

Begin

Rect:=New GxRect.Create(0,0,1,1);

Obj:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", Rect.ToRectF);

(Obj As IPrxPicture).Image:=GxImage.FromFile("c:\1.bmp");

Rect.Width:=Math.RandBetweenI(0,15);

Rect.Height:=Math.RandBetweenI(0,15);

Obj.Rectangle:=Rect.ToRectF;

If Rect.IsEmpty Then

s:="Yes";

Else

s:="No";

End If;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку на регламентном отчете будет создано изображение. Источник изображения - файл «1.bmp». В переменной «s» будет содержаться «Yes» если границы прямоугольника, ограничивающего изображение, нулевые.

См. также:

IGxRect