IWxView.ArrangeShape

Syntax

ArrangeShape(Shape: IWxShape);

Parameters

Shape. Workspace shape.

Description

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 an existing ws object of the IWxWorkspace type.

Sub UserProc;

Var

ws: IWxWorkspace;

view : IWxView;

Shapes : IWxShapes;

i : Integer;

Begin

ws := WorkspaceBox1.View.Workspace;

view := ws.Views.Item(0);

Shapes := ws.Shapes;

For i := 0 To Shapes.Count-1 Do

view.ArrangeShape(Shapes.Item(i));

End For;

End Sub UserProc;

After executing the example all workspace objects are placed diagonally.

See also:

IWxView