Reduce(DX: Double, DY: Double);
DX. Смещение по ширине.
DY. Смещение по высоте.
Метод Reduce осуществляет уменьшение текущего размера.
Размер задается значениями вещественного типа.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
SizeF: IGxSizeF;
Rect: IWxRectangle;
Begin
SizeF:=New GxSizeF.Create(10.11,10.35);
Rect:=UiWorkspace1.WxWorkspace.CreateRectangle;
Rect.BeginUpdate;
SizeF.Reduce(40.335,45.789);
Rect.Size:=New GxSizeF.CreateFromSize(SizeF);
Rect.EndUpdate;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку на рабочем пространстве будет создан прямоугольник и его размеры будут уменьшены на 40,335 по ширине и на 45,789 по высоте.
См. также: