IWxShape.GroupBehaviour

Синтаксис

GroupBehaviour: WxGroupBehaviour;

Описание

Свойство GroupBehaviour определяет поведение объекта при изменении размера группы, в которую он включен.

По умолчанию свойство установлено в ScaleWithGroup (при изменении размера группы размер объекта будет масштабироваться).

Пример

В рассматриваемом примере предполагается существование объекта WorkspaceBox1 типа WorkspaceBox.

Sub User;

Var

WorkspaceBox1 : WorkspaceBox;

Ws : IWxWorkspace;

i : Integer;

shape : IWxShape;

Begin

Ws := WorkspaceBox1.View.Workspace;

shape := Ws.Shapes.Item(0);

shape.GroupBehaviour := WxGroupBehaviour.RepositionOnly;

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

WorkspaceBox1.View.SelectedShapes.Add(Ws.Shapes.Item(i));

End For;

WorkspaceBox1.View.GroupSelectedShapes;

End Sub User;

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

См. также:

IWxShape