IWxShapes.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество объектов рабочего пространства.

Пример

В рассматриваемом примере предполагается существование объекта 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;

После выполнения примера все объекты, расположенные на рабочем пространстве будут объединены в группу.

См. также:

IWxShapes