Delphi - 如何更改t图表系列调色板?
Delphi - How to change t chart series's colourpalette?
我有一个 TAreaGraph
(series[0] as tareaseries).coloreachpoint := true;
with chart1 do
series[0].addXY( {the x-value} , {the y-value}, {name} , clTeeColor);
end;
所以现在,条形或点都是不同的颜色,但我讨厌调色板。
我在对象检查器中看到,添加新系列和选择类型时有一个选项,可以将调色板更改为 Mac Os.
我已经尝试了在运行时执行此操作的所有方法,因为我正在动态添加系列,但无济于事。
任何帮助将不胜感激!
此致,
罗马书.
将图表放在表格上并将调色板更改为 iOS 然后以文本形式查看表格会得到:
object Chart1: TChart
Left = 176
Top = 136
Width = 400
Height = 250
Title.Text.Strings = (
'TChart')
TabOrder = 0
DefaultCanvas = 'TGDIPlusCanvas'
ColorPaletteIndex = 18
end
所以 属性 是 ColorPaletteIndex,对于 iOS 调色板,您将使用 18。可能某处有一个具有不错值的枚举,但该数字可以正常工作。
chart1.ColorPaletteIndex := 18;
我有一个 TAreaGraph
(series[0] as tareaseries).coloreachpoint := true;
with chart1 do
series[0].addXY( {the x-value} , {the y-value}, {name} , clTeeColor);
end;
所以现在,条形或点都是不同的颜色,但我讨厌调色板。 我在对象检查器中看到,添加新系列和选择类型时有一个选项,可以将调色板更改为 Mac Os.
我已经尝试了在运行时执行此操作的所有方法,因为我正在动态添加系列,但无济于事。 任何帮助将不胜感激!
此致, 罗马书.
将图表放在表格上并将调色板更改为 iOS 然后以文本形式查看表格会得到:
object Chart1: TChart
Left = 176
Top = 136
Width = 400
Height = 250
Title.Text.Strings = (
'TChart')
TabOrder = 0
DefaultCanvas = 'TGDIPlusCanvas'
ColorPaletteIndex = 18
end
所以 属性 是 ColorPaletteIndex,对于 iOS 调色板,您将使用 18。可能某处有一个具有不错值的枚举,但该数字可以正常工作。
chart1.ColorPaletteIndex := 18;