IWxSelectedShapes.Size

Синтаксис

Size(Sizing: WxShapesSizing);

Size(Sizing: Prognoz.Platform.Interop.Andy.WxShapesSizing);

Параметры

Sizing. Тип изменения размеров.

Описание

Метод Size изменяет размеры фигур в соответствии с выбранным типом изменения.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента WorkspaceBox и компонента UiWorkspace с наименованием «UiWorkspace1», являющимся источником данных для WorkspaceBox.

Добавьте ссылки на системные сборки: Andy, Drawing, Workspace.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    ws: IWxWorkspace;
    Rect: IWxRectangle;
    Ellipse: IWxEllipse;
    pos: IGxPointF;
    Size: IGxSizeF;
    SelectS: IWxSelectedShapes;
Begin
    ws := UiWorkspace1.WxWorkspace;
    ws.BeginUpdate;
    Rect := ws.CreateRectangle;
    Pos := New GxPointF.Create(20, 10);
    Size := New GxSizeF.Create(10, 7);
    Rect.PinPosition := Pos;
    Rect.Size := Size;
    Ellipse := ws.CreateEllipse;
    Pos := New GxPointF.Create(40, 50);
    Size := New GxSizeF.Create(40, 15);
    Ellipse.PinPosition := Pos;
    Ellipse.Size := Size;
    SelectS := ws.Views.Item(0).SelectedShapes;
    SelectS.Add(Rect);
    SelectS.Add(Ellipse);
    SelectS.Size(WxShapesSizing.MaxWidth);
    ws.EndUpdate;
End Sub Button1OnClick;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Workspace;
 
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    ws: IWxWorkspace;
    Rect: IWxRectangle;
    Ellipse: IWxEllipse;
    pos: GxPointF = New GxPointFClass();
    Size: GxSizeF = New GxSizeFClass();
    SelectS: IWxSelectedShapes;
Begin
    ws := uiWorkspaceNet1.WxWorkspace;
    ws.BeginUpdate();
    Rect := ws.CreateRectangle();
    pos.Create(20, 10);
    Size.Create(10, 7);
    Rect.PinPosition := pos;
    Rect.Size := Size;
    Ellipse := ws.CreateEllipse();
    pos.Create(40, 50);
    Size.Create(40, 15);
    Ellipse.PinPosition := pos;
    Ellipse.Size := Size;
    SelectS := ws.Views.Item[0].SelectedShapes;
    SelectS.Add(Rect);
    SelectS.Add(Ellipse);
    SelectS.Size(WxShapesSizing.wssMaxWidth);
    ws.EndUpdate();
End Sub;

После выполнения примера ширина фигур будет изменена на ширину самой широкой фигуры.

См. также:

IWxSelectedShapes