CreateRectangle: IWxRectangle;
CreateRectangle(): Prognoz.Platform.Interoop.Andy.IWxRectangle;
Метод CreateRectangle создает прямоугольник.
В рассматриваемом примере предполагается наличие формы с размещёнными на ней компонентами Button и UiWorkspaceObject с идентификаторами «Button1» и «UiWorkspaceObject1» соотоветственно. К UiWorkspaceObject должен быть подключён соответствующий объект репозитория.
Добавьте ссылки на системные сборки: Andy, Drawing, Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ws: IWxWorkspace;
Rec: IWxRectangle;
Begin
ws := UiWorkspaceObject1.Instance As IWxWorkspace;
Rec := ws.CreateRectangle;
Rec.Id := "Rectangle1";
Rec.PinPosition := New GxPointF.Create(12.3,-2);
Rec.Text := "Прямоугольник";
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;
Rec: IWxRectangle;
PinPoint: GxPointF = New GxPointFClass();
Begin
ws := uiWorkspaceObjectNet1.WorkspaceObjectUi.Instance As WxWorkspace;
Rec := ws.CreateRectangle();
Rec.Id := "Rectangle1";
PinPoint.Create(12.3,-2);
Rec.PinPosition := PinPoint;
Rec.Text := "Прямоугольник";
End Sub;
После выполнения примера при нажатии на компонент «Button1» на компоненте «UiWorkspaceObject1» будет создан прямоугольник.
См. также: