Deflate(DX: Integer, DY: Integer);
DX. Смещение по ширине.
DY. Смещение по высоте.
Метод Deflate осуществляет уменьшение размеров целочисленного прямоугольника на DX по ширине и на DY по высоте.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Obj: ITabObject;
Rect: IGxRect;
Begin
Rect:=New GxRect.Create(0,0,Math.RandBetweenI(0,60),Math.RandBetweenI(0,60));
Obj:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", Rect.ToRectF);
(Obj As IPrxPicture).Image:=GxImage.FromFile("c:\1.bmp");
Rect.Deflate(10,13);
Obj.Rectangle:=Rect.ToRectF;
End Sub Button1OnClick;
После выполнения примера, при нажатии на кнопку, на регламентном отчете будет создано изображение. Источник изображения - файл «1.bmp». Изображение будет создано со случайным размером и уменьшено на «10» по ширине и на «13» по высоте.
См. также: