DeflateS(Size: IGxSizeF);
Size. Размер, на который необходимо уменьшить.
Метод DeflateS осуществляет уменьшение размеров вещественного прямоугольника на указанный размер.
Sub UserProc;
Var
Rect: IGxRectF;
Size: IGxSizeF;
Begin
Rect := New GxRectF.Create(0, 0, Math.RandBetween(0, 60), Math.RandBetween(0, 60));
Size := New GxSizeF.Create(10, 10);
Rect.DeflateS(Size);
Debug.WriteLine("Новая ширина: " + Rect.Width.ToString + ". Новая высота: " + Rect.Height.ToString);
End Sub UserProc;
При выполнении примера будут созданы вещественный прямоугольник случайного размера и вещественный размер. Затем прямоугольник будет уменьшен на созданный размер. Полученные ширина и высота прямоугольника будут выведены в консоль среды разработки.
См. также: