IWxWorkspace.Shapes

Синтаксис

Shapes: IWxShapes;

Shapes: Prognoz.Platform.Interop.Andy.IWxShapes;

Описание

Свойство Shapes возвращает коллекцию фигур.

Пример

В рассматриваемом примере предполагается наличие формы с размещёнными на ней компонентами Button и UiWorkspaceObject с идентификаторами «Button1» и «UiWorkspaceObject1» соотоветственно. К UiWorkspaceObject должен быть подключён соответствующий объект репозитория. Также этот компонент должен содержать заранее созданную фигуру.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    ws: IWxWorkspace;
    Shapes: IWxShapes;
    Shape: IWxShape;
Begin
    ws := UiWorkspaceObject1.Instance As IWxWorkspace;
    ws.BeginUpdate;
    Shapes := ws.Shapes;
    Shape := Shapes.Item(0);
    Shape.Angle := 40;
    Shape.Size := New GxSizeF.Create(43, 78);
    ws.EndUpdate;
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    ws: WxWorkspace;
    Shapes: IWxShapes;
    Shape: IWxShape;
    SSize: GxSizeF = New  GxSizeFClass();
Begin
    ws := uiWorkspaceObjectNet1.WorkspaceObjectUi.Instance As WxWorkspace;
    ws.BeginUpdate();
    Shapes := ws.Shapes;
    Shape := Shapes.Item[0];
    Shape.Angle := 40;
    SSize.Create(43,  78);
    Shape.Size := SSize;
    ws.EndUpdate();
End Sub;

После выполнения примера при нажатии на компонент «Button1» на компоненте «UiWorkspaceObject1» будут изменены размер и угол поворота фигуры.

См. также:

IWxWorkspace