Size: IGxSizeF;
Свойство Size определяет размеры фигуры.
Для определения угла поворота фигуры используйте свойство IWxShape.Angle.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента WorkspaceBox с наименованием «WorkspaceBox1» и какого-либо источника данных для «WorkspaceBox1».
Добавьте ссылки на системные сборки: Andy, Drawing, Workspace.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Ws: IWxWorkspace;
Shape: IWxShape;
Size: IGxSizeF;
Reg: IWxRegulargon;
Begin
Ws := WorkspaceBox1.View.Workspace;
Reg := Ws.CreateRegulargon;
Reg.Id := "Reg1";
Reg.PinPosition := New GxPointF.Create(12, 2);
Reg.NumberOfSides := 5;
Reg.Text := "Трапеция";
WS.BeginUpdate;
Shape := WS.Shapes.Item(0);
Shape.Angle := 40;
Size := New GxSizeF.Create(43, 78);
Shape.Size := Size;
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;
Shape: IWxShape;
Size: IGxSizeF;
Reg: IWxRegulargon;
PinPoint: GxPointF = New GxPointFClass();
SSize: GxSizeF = New GxSizeFClass();
Begin
Ws := workspaceBoxNet1.View.Workspace;
Reg := Ws.CreateRegulargon();
Reg.Id := "Reg1";
PinPoint.Create(12, 2);
Reg.PinPosition := PinPoint;
Reg.NumberOfSides := 5;
Reg.Text := "Трапеция";
WS.BeginUpdate();
Shape := WS.Shapes.Item[0];
Shape.Angle := 40;
SSize.Create(43, 78);
Shape.Size := SSize;
WS.EndUpdate();
End Sub;
После выполнения примера будут изменены размеры и угол поворота фигуры.
См. также: