ITabFormatScale.IntervalsCount

Синтаксис Fore

IntervalsCount: Integer;

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

IntervalsCount: Integer;

Описание

Свойство IntervalsCount определяет количество интервалов цветовой шкалы.

Если используется тип - TabFormatScaleType.EqualValues, то в свойстве IntervalsCount нужно задать необходимое количество интервалов. Для каждого интервала в свойстве Color необходимо определить цвет.

Пример Fore

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    FormCond: ITabFormatCondition;
    Scale: ITabFormatScale;
Begin
    Tab := TabSheetBox1.Source.GetTabSheet;
    Range := Tab.View.Selection.Range;
    FormCond := Range.FormatConditions.Add;
    FormCond.Type := TabConditionType.Scale;
    Scale := FormCond.Details As ITabFormatScale;
    Scale.ScaleType := TabFormatScaleType.EqualValues;
    Scale.IntervalsCount := 4;
    Scale.UseAutoColors := False;
    Scale.Color(0) := GxColor.FromName("Cyan");
    Scale.Color(1) := GxColor.FromName("Aquamarine");
    Scale.Color(2) := GxColor.FromName("Coral");
    Scale.Color(3) := GxColor.FromName("Chocolate");
End Sub Button1OnClick;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Tab;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    FormCond: ITabFormatCondition;
    Scale: ITabFormatScale;
    GxColorCls: GxColorClassClass = New GxColorClassClass();
Begin
    Tab := TabSheetBoxNet1.Source.GetTabSheet();
    Range := Tab.View.Selection.Range;
    FormCond := Range.FormatConditions.Add();
    FormCond.Type := TabConditionType.tctScale;
    Scale := FormCond.Details As ITabFormatScale;
    Scale.ScaleType := TabFormatScaleType.tfstEqualValues;
    Scale.IntervalsCount := 4;
    Scale.UseAutoColors := False;
    Scale.Color[0] := GxColorCls.FromName("Cyan");
    Scale.Color[1] := GxColorCls.FromName("Aquamarine");
    Scale.Color[2] := GxColorCls.FromName("Coral");
    Scale.Color[3] := GxColorCls.FromName("Chocolate");
End Sub;

См. также: