IGxRect.DeflateS

Синтаксис

DeflateS(Size: IGxSize);

Параметры

Size — размер, на который необходимо уменьшить.

Описание

Метод DeflateS осуществляет уменьшение целочисленного прямоугольника на размер, передаваемый посредством параметра Size.

Пример

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

Var

Obj: ITabObject;

Rect: IGxRect;

Size: IGxSize;

Begin

Rect:=New GxRect.Create(0,0,Math.RandBetweenI(0,60),Math.RandBetweenI(0,60));

Size:=New GxSize.Create(Math.RandBetweenI(0,14),Math.RandBetweenI(0,14));

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

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

Rect.DeflateS(Size);

Obj.Rectangle:=Rect.ToRectF;

End Sub Button1OnClick;

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

См. также:

IGxRect