значения по осям в TDBChart

← →
Sergey2 (2011-09-28 16:17) [0]

можно как нибудь отображать значения по осям разным цветом?

← →
OW © (2011-09-28 17:06) [1]

не понятно
мб что-то такое надо?

dbcht1.LeftWall.Color := clRed;
dbcht1.RightAxis.Axis.Color := clGreen;

← →
Sergey2 (2011-09-28 17:22) [2]

нет, к сожалению. мне нужно менять цвета Label.

грубо говоря вот так
DBChart1.BottomAxis.LabelsFont.Color := clred;
DBChart1.Refresh;

только он поменяет на все. а мне нужно например 5 черных 3 красных
1,2,3,4,5 - черные, дальше - 6,7,8 красные....

b - черным, остальное красным

procedure TForm1.btn1Click(Sender: TObject);
begin
ads1.CommandText := "select 1,2,""a"" union select 2,4,""b"" union select 3,9,""c""";
ads1.Open;
end;

procedure TForm1.DBChart1GetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
if LabelText = "b" then
begin
Sender.LabelsFont.Color := clBlack;
end else
begin
Sender.LabelsFont.Color := clRed;
end;
end;

значения по осям в TDBChart Найти похожие ветки