GroupSelectedShapes;
Метод GroupSelectedShapes создает группу из выделенных объектов.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
Shs : IWxShapes;
i : Integer;
Begin
view := ws.CreateView;
Shs := ws.Shapes;
For i := 0 To Shs.Count - 1 Do
view.SelectedShapes.Add(ws.Shapes.Item(i));
End For;
view.GroupSelectedShapes;
End Sub UserProc;
После выполнения примера из всех объектов рабочего пространства будет создана группа.
См. также: