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