Скачать: CL | DM;

значения по осям в 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c