ITabObjects.GroupSelected

Синтаксис Fore

Синтаксис Fore.NET

GroupSelected(): Prognoz.Platform.Interop.Tab.ITabObjectGroup;

Описание

Метод GroupSelected осуществляет группировку выделенных объектов.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1», являющимся источником данных для TabSheetBox. В таблице должны быть созданы какие-либо объекты. Должна быть добавлена ссылка на системную сборку Tab.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    i: integer;
    Tab: ITabSheet;
    Objs: ITabObjects;
    TabObjs: ITabObject;
Begin
    Tab := UiTabSheet1.TabSheet;
    Objs := Tab.Objects;
    For i := 0 To (Objs.Count - 1) Do
        Objs.Item(i).Select_;
    End For;
    TabObjs := Tab.Objects.GroupSelected;
End Sub Button1OnClick;

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

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы, расположенной на ней кнопки с наименованием «button1», компонента TabSheetBoxNet и компонента UiTabSheetNet с наименованием «uiTabSheetNet1», являющимся источником данных для TabSheetBoxNet. В таблице должны быть созданы какие-либо объекты. Должна быть добавлена ссылка на системную сборку Tab.

Imports Prognoz.Platform.Interop.Tab;
...
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    i: integer;
    Tab: ITabSheet;
    Objs: ITabObjects;
    TabObjs: ITabObject;
Begin
    Tab := uiTabSheetNet1.TabSheetUi.TabSheet;
    Objs := Tab.Objects;
    For i := 0 To (Objs.Count - 1) Do
        Objs.Item[i].@Select();
    End For;
    TabObjs := Tab.Objects.GroupSelected();
End Sub;