ISparkline.Color

Синтаксис Fore

Color: IGxColor;

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

Color: Prognoz.Platform.Interop.Drawing.GxColor;

Описание

Свойство Color определяет цвет линии в спарклайне.

Пример Fore

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TSheet: ITabSheet;
    Sparklines: ITabSparklines;
    Sparkline: ITabSparkline;
Begin
    TSheet := TabSheetBox1.Source.GetTabSheet;
    Sparklines := TSheet.Sparklines;
    Sparklines.Add(TSheet.ParseRange("A0:A5"), TSheet.ParseRange("B0:F5"));
    Sparkline := Sparklines.Item(0);
    //Настройка параметров спарклайна
    Sparkline.Color := GxColor.FromKnownColor(GxKnownColor.Red);
    Sparkline.LineWidth := 0.5;
    Sparkline.NullValueBehavior := GxSparkNullValueBehavior.DirectConnectionDotLine;
End Sub Button1OnClick;

При нажатии на кнопку для первых ячеек столбца А будут добавлены спарклайны. Спарклайны будут строиться по данным, которые расположены по строкам в диапазоне «B0:F5». Для первого созданного спарклайна будут определены собственные параметры оформления.

Пример Fore.NET

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

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    TSheet: TabSheet;
    Sparklines: ITabSparklines;
    Sparkline: ITabSparkline;
    ColorCls: GxColorClass = New GxColorClassClass();
Begin
    TSheet := TabSheetBoxNet1.Source.GetTabSheet();
    Sparklines := TSheet.Sparklines;
    Sparklines.Add(TSheet.ParseRange("A0:A5"), TSheet.ParseRange("B0:F5"));
    Sparkline := Sparklines.Item[0];
    //Настройка параметров спарклайна
    Sparkline.Color := ColorCls.FromKnownColor(GxKnownColor.clRed);
    Sparkline.LineWidth := 0.5;
    Sparkline.NullValueBehavior := GxSparkNullValueBehavior.poDirectConnectionDotLine;
End Sub;

См. также:

ISparkline