ITabRange.StyleIndex

Синтаксис Fore

StyleIndex: Integer;

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

StyleIndex: Integer;

Описание

Свойство StyleIndex устанавливает стиль из коллекции стилей.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1». «UiTabSheet1» является источником данных для TabSheetBox.

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        TSheet: ITabSheet;
        TRange: ITabRange;
        Style: ITabCellStyle;
        i: Integer;
    Begin
        Style := New TabCellStyle.Create;
        Style.Font.Color := GxColor.FromName("Red");
        Style.Font.Bold := TriState.OnOption;
        Style.BackgroundColor := GxColor.FromName("Green");
        TSheet := UiTabSheet1.TabSheet;
        i := TSheet.AddStyle(Style);
        TRange := TSheet.View.Selection.Range;
        TRange.StyleIndex := i;
    End Sub Button1OnClick;

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

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBoxNet и компонента UiTabSheetNet с наименованием «UiTabSheetNet1». «UiTabSheetNet1» является источником данных для TabSheetBoxNet.

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        ColorClass: GxColorClassClass = New GxColorClassClass();
        TSheet: ITabSheet;
        Range: ITabRange;
        Style: TabCellStyle;
        i: Integer;
    Begin
        Style := New TabCellStyle();
        Style.Font.Color := ColorClass.FromName("Red");
        Style.Font.Bold := TriState.tsOnOption;
        Style.BackgroundColor := ColorClass.FromName("Green");
        TSheet := UiTabSheetNet1.TabSheetUi.TabSheet;
        i := TSheet.AddStyle(Style);
        Range := TSheet.View.Selection.Range;
        Range.StyleIndex := i;
    End Sub;

См. также:

ITabRange