Я думаю, вы заселять свой ряд, используя функцию Add, которая принимает аргумент Color
.
Обратите внимание, что если вы назначаете Color
номерам серий, это Color
, присвоенное точкам, относится к категории 'Color
. Вот почему изменение серии Color
не имеет визуального эффекта.
Вызов FillSampleValues
функция, список цветов очищается; поэтому серия Color
, похоже, работает тогда.
Если вы уже добавили точки назначая Color
для каждого из них, вы можете очистить список цветов сквозными в массив, присваивая clTeeColor
всем им:
For i = 0 To TChart1.Series(0).Count - 1
TChart1.Series(0).PointColor(i) = clTeeColor
Next i
Если вы не можете использовать clTeeColor постоянный, используйте его значение напрямую:
clTeeColor = 536870912
Да, я использую функцию добавления с цветом. Я попытался установить ColorEachPoint после добавления fuction, но все же изменение цвета не отражено. Первоначально требование MY состоит в том, что Bar должен быть окрашен в Color Specify, а затем пользователь может изменить цвет. –
Я отредактировал ответ – Yeray