Color: IGxColor;
Color: Prognoz.Platform.Interop.Drawing.GxColor;
Свойство Color определяет цвет линии в спарклайне.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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. Вместо компонентов 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;
См. также: