ITabFormatScale.GetUsedIntervalsCount

Синтаксис

GetUsedIntervalsCount: Integer;

GetUsedIntervalsCount: integer;

Описание

Метод GetUsedIntervalsCount используется для получения индекса интервала шкалы по индексу используемого интервала.

Комментарии

Для получения количества используемых интервалов шкалы используйте метод ITabFormatScale.GetUsedIntervalIndex.

Пример

Для выполнения примера в репозитории необходимо наличие экспресс-отчёта, в котором содержится таблица.

Разместите на форме компоненты Button, UiErAnalyzer, TabSheetBox с наименованиями «Button1»/«button1», «UiErAnalyzer1»/«uiErAnalyzerNet1», «TabSheetBox1»/«tabSheetBoxNet1» соответственно.

Задайте дополнительные свойства:

Добавьте ссылки на системные сборки:

Пример является обработчиком события OnClick для компонента «Button1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    FormatCondition: ITabFormatCondition;
    Scale: ITabFormatScale;
Begin
    // Получим таблицу экспресс-отчёта
    Tab := TabSheetBox1.Source.GetTabSheet;
    // Установим условное форматирование для выделенных ячеек таблицы
    Range := Tab.View.Selection.Range;
    FormatCondition := Range.FormatConditions.Add;
    FormatCondition.Type := TabConditionType.Scale;
    // Настроим условное форматирование
    Scale := FormatCondition.Details As ITabFormatScale;
    // Отменим использование автоподбора значений
    Scale.UseAutoValues := False;
    // Зададим количество интервалов цветовой шкалы
    Scale.IntervalsCount := 4;
    // Зададим цвета интервалов шкалы
    Scale.Color(0) := GxColor.FromName("Red");
    Scale.Color(1) := GxColor.FromName("Blue");
    Scale.Color(2) := GxColor.FromName("Green");
    Scale.Color(3) := GxColor.FromName("Yellow");
    // Выполним пересчёт цветовой шкалы
    Scale.Recalc;
    // Выведем в консоль количество интервалов шкалы и индекс второго интервала
    Debug.WriteLine("Количество используемых интервалов шкалы: " + Scale.GetUsedIntervalsCount.ToString);
    Debug.WriteLine("Индекс второго интервала шкалы: " + Scale.GetUsedIntervalIndex(1).ToString);
End Sub Button1OnClick;

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    FormatCondition: ITabFormatCondition;
    Scale: ITabFormatScale;
    Gxcolor: GxColorClassClass = New GxColorClassClass();
Begin
    // Получим таблицу экспресс-отчёта
    Tab := tabSheetBoxNet1.Source.GetTabSheet();
    // Установим условное форматирование для выделенных ячеек таблицы
    Range := Tab.View.Selection.Range;
    FormatCondition := Range.FormatConditions.Add();
    FormatCondition.Type := TabConditionType.tctScale;
    // Настроим условное форматирование
    Scale := FormatCondition.Details As ITabFormatScale;
    // Отменим использование автоподбора значений
    Scale.UseAutoValues := False;
    // Зададим количество интервалов цветовой шкалы
    Scale.IntervalsCount := 4;
    // Зададим цвета интервалов шкалы
    Scale.Color[0] := GxColor.FromName("Red");
    Scale.Color[1] := GxColor.FromName("Blue");
    Scale.Color[2] := GxColor.FromName("Green");
    Scale.Color[3] := GxColor.FromName("Yellow");
    // Выполним пересчёт цветовой шкалы
    Scale.Recalc();
    // Выведем в консоль количество интервалов шкалы и индекс второго интервала
    System.Diagnostics.Debug.WriteLine("Количество используемых интервалов шкалы: " + Scale.GetUsedIntervalsCount().ToString());
    System.Diagnostics.Debug.WriteLine("Индекс второго интервала шкалы: " + Scale.GetUsedIntervalIndex(1).ToString());
End Sub;

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

См. также:

ITabFormatScale