ITabFormatScale.GetUsedIntervalsCount

Синтаксис Fore

GetUsedIntervalsCount: Integer;

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

GetUsedIntervalsCount: integer;

Описание

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

Комментарии

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

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент TabSheetBox с идентификатором «TabSheetBox1» и компонент UiErAnalyzer с идентификатором «UiErAnalyzer1». Для компонента «TabSheetBox1» укажите источник данных «UiErAnalyzer1». В качестве источника данных используется экспресс-отчет.

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

Добавьте ссылки на системную сборку Drawing.

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.UseAutoColors := False;
    // тип цветовой шкалы:
    Scale.ScaleType := TabFormatScaleType.Linear;
    // количество интервалов цветовой шкалы:
    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;

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

Пример Fore.NET

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

Добавьте ссылки на системные сборки Tab, Drawing.

Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Drawing;
…
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.UseAutoColors := False;
    // тип цветовой шкалы:
    Scale.ScaleType := TabFormatScaleType.tfstLinear;
    // количество интервалов цветовой шкалы:
    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