Size: IGxSizeF;
Size: Prognoz.Platform.Interop.Drawing.GxSizeF;
Свойство Size определяет размеры фигуры.
Для определения угла поворота фигуры используйте свойство IWxShape.Angle.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент WorkspaceBox с идентификатором «WorkspaceBox1» и компонент UiWorkspaceObject с идентификатором «UiWorkspaceObject1». Для компонента «WorkspaceBox1» укажите источник данных «UiWorkspaceObject1». В качестве источника данных используется рабочее пространство. Пример является обработчиком события OnClick для компонента «Button1».
Добавьте ссылку на системную сборку «Drawing».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
WS: IWxWorkspace;
Shape: IWxShape;
Size: IGxSizeF;
Begin
WorkspaceBox1.Source := UiWorkspaceObject1 As IWorkspaceSource;
UiWorkspaceObject1.Active := True;
WS := WorkspaceBox1.View.Workspace;
WS.BeginUpdate;
Shape := WS.Shapes.Item(5);
Shape.Angle := 40;
Size := New GxSizeF.Create(43, 78);
Shape.Size := Size;
WS.EndUpdate;
End Sub Button1OnClick;
После выполнения примера будут изменены размеры и угол поворота фигуры.
Для выполнения примера предполагается наличие формы, содержащей компонент button с идентификатором «button1», компонент workspaceBoxNet с идентификатором «workspaceBoxNet1» и компонент uiWorkspaceObjectNet с идентификатором «uiWorkspaceObject1Net». Для компонента «workspaceBoxNet1» укажите источник данных «uiWorkspaceObjectNet1». В качестве источника данных используется рабочее пространство. Пример является обработчиком события Click для компонента «button1».
Добавьте ссылки на системные сборки «Andy», «Drawing», «ExtCtrls», «Workspace».
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.ExtCtrls;
Imports Prognoz.Platform.Interop.Workspace;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
WS: WxWorkspace;
Shape: IWxShape;
SSize: GxSizeF = New GxSizeFClass();
Begin
workspaceBoxNet1.UiSource := uiWorkspaceObjectNet1 As IUiWorkspaceSource;
uiWorkspaceObjectNet1.Active := True;
WS := workspaceBoxNet1.View.Workspace;
WS.BeginUpdate();
Shape := WS.Shapes.Item[5];
Shape.Angle := 40;
SSize.Create(43, 78);
Shape.Size := Size;
WS.EndUpdate();
End Sub;
После выполнения примера будут изменены размеры и угол поворота фигуры.
См. также: