| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
значения по осям в TDBChart [D7, XP]
Sergey2 © (2011-09-28 16:17:00)можно как нибудь отображать значения по осям разным цветом?
OW (2011-09-29 13:16:00) [1]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;
Sergey2 (2011-09-28 17:22:00) [2]нет, к сожалению. мне нужно менять цвета Label.
грубо говоря вот так
DBChart1.BottomAxis.LabelsFont.Color := clred;
DBChart1.Refresh;
только он поменяет на все. а мне нужно например 5 черных 3 красных
1,2,3,4,5 - черные, дальше - 6,7,8 красные....
OW (2011-09-28 17:06:00) [3]не понятно
мб что-то такое надо?
dbcht1.LeftWall.Color := clRed;
dbcht1.RightAxis.Axis.Color := clGreen;
| |
