Форум: "Начинающим";
Текущий архив: 2012.01.08;
Скачать: [xml.tar.bz2];
Вниз
значения по осям в 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 красные....
← →
OW © (2011-09-29 13:16) [3]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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.01.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c
