Views: IWxViews;
Свойство Views возвращает коллекцию отображений рабочего пространства.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
Shapes : IWxShapes;
SelectS : IWxSelectedShapes;
Begin
view := ws.Views.Item(0);
SelectS := view.SelectedShapes;
Shapes := ws.Shapes;
SelectS.Add(Shapes.Item(0));
SelectS.Add(shapes.Item(1));
SelectS.Align(WxShapesAlignment.VerticalCenter);
End Sub UserProc;
После выполнения примера выделенные фигуры будут выровнены по вертикальному центру.
См. также: