ArrangeShape(Shape: IWxShape);
Shape. Фигура рабочего пространства.
Метод ArrangeShape выставляет фигуру на диагональ, направленную из верхнего левого угла в нижний правый угол отображения.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
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;
После выполнения примера все объекты рабочего пространства будут выставлены по диагонали.
См. также: