IWxView.ArrangeShape

The ArrangeShape method places a shape on a diagonal, which runs from the upper top left corner to the bottom right corner of the view.

Example

Executing the example requires a form with the Button1 button, the WorkspaceBox component named WorkspaceBox1 and a data source for the WorkspaceBox1.

Fore Fore.NET

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    ws: IWxWorkspace;
    view: IWxView;
    Shape: IWxShape;
    arrow: IWxArrow;
    ellipse: IWxEllipse;
    Shapes: IWxShapes;
    i: Integer;
Begin
    // Get workspace for editing
    ws := UiWorkspace1.WxWorkspace;
    view := ws.CreateView;
    view := ws.Views.Item(0);
    arrow := ws.CreateArrow;
    Arrow.FirstPoint := New GxPointF.Create(10, 10);
    Arrow.LastPoint := New GxPointF.Create(3, 19);
    ellipse := ws.CreateEllipse;
    Shapes := ws.Shapes;
    For i := 0 To Shapes.Count - 1 Do
        view.ArrangeShape(Shapes.Item(i));
    End For;
End Sub Button1OnClick;

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

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    ws: IWxWorkspace;
    view: IWxView;
    Shape: IWxShape;
    arrow: IWxArrow;
    ellipse: IWxEllipse;
    PinPoint: GxPointF = New GxPointFClass();
    Shapes: IWxShapes;
    i: Integer;
Begin
    // Get workspace for editing
    ws := uiWorkspaceNet1.WxWorkspace;
    view := ws.CreateView();
    view := ws.Views.Item[0];
    arrow := ws.CreateArrow();
    PinPoint.Create(10, 10);
    Arrow.FirstPoint := PinPoint;
    PinPoint.Create(3, 19);
    Arrow.LastPoint := PinPoint;
    ellipse := ws.CreateEllipse();
    Shapes := ws.Shapes;
    For i := 0 To Shapes.Count - 1 Do
        view.ArrangeShape(Shapes.Item[i]);
    End For;
End Sub;

IWxView.ArrangeShape

Syntax

Parameters

Description

Example