ITabUserInteractiveSelections.Add

Синтаксис Fore

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

Add: Prognoz.Platform.Interop.Tab.ITabUserInteractiveSelection;

Описание

Метод Add создает интерактивный диапазон и возвращает его настройки.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox с наименованием «TabSheetBox1» и какого-либо компонента, выступающего в качестве источника данных для «TabSheetBox1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TSheet: ITabSheet;
    IntSelections: ITabUserInteractiveSelections;
    IntSelection: ITabUserInteractiveSelection;
Begin
    TSheet := TabSheetBox1.Source.GetTabSheet;
    IntSelections := TSheet.View.UserIntearactiveSelections;
    IntSelection := IntSelections.Add;
    IntSelection.BorderColor := GxColor.FromKnownColor(GxKnownColor.Red);
    IntSelection.BorderStyle := TabBorderStyle.Dash;
    IntSelection.InteractiveRestrictions := TabUserInteractiveSelectionChangeType.Top Or TabUserInteractiveSelectionChangeType.Bottom;
    IntSelection.Range := TSheet.ParseRange("B1:C5");
    IntSelection.Visible := True;
End Sub Button1OnClick;

При нажатии на кнопку для таблицы будет создан интерактивный диапазон. Для этого диапазона будут определены параметры отрисовки границы, а также будет наложено ограничение: будет запрещено изменение верхней и нижней границы диапазона.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    TSheet: ITabSheet;
    IntSelections: ITabUserInteractiveSelections;
    IntSelection: ITabUserInteractiveSelection;
    GxColorCls: GxColorClassClass = New GxColorClassClass();
Begin
    TSheet := TabSheetBoxNet1.Source.GetTabSheet();
    IntSelections := TSheet.View.UserIntearactiveSelections;
    IntSelection := IntSelections.Add();
    IntSelection.BorderColor := GxColorCls.FromKnownColor(GxKnownColor.clRed);
    IntSelection.BorderStyle := TabBorderStyle.tbsDash;
    IntSelection.InteractiveRestrictions := TabUserInteractiveSelectionChangeType.tuistTop Or TabUserInteractiveSelectionChangeType.tuistBottom;
    IntSelection.Range := TSheet.ParseRange("B1:C5");
    IntSelection.Visible := True;
End Sub;

См. также:

ITabUserInteractiveSelections