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

Как вывести Label в TChart е???   Найти похожие ветки 

← →
cvg   (2004-08-30 18:28) [0]

Hi masters! Подскажите pls, как вывести в TChar"е какое-нить слово? (да хоть "Вася"!) Ну вот пишу я:

Series1.AddXY(blah-blah-blah);
Series1.Marks.Style := smsLabel;

А как прописать, что Label должно быть равно "Вася"???

---

← →
begin...end ©   (2004-08-30 18:53) [1]

Не понял, тебе заголовок Chart"а нужен, или что?

Если да, то TChart.Title.

Если нет, а нужно выводить текст около каждой точки, то:

Series[1].Marks.Visible := True;
Series[1].Marks.Style := smsLabel.

Или что?

---

← →
cvg   (2004-08-31 07:40) [2]

Ну да, примерно так. Я уже на Google"е нашел. Thanx anyhow.

---

← →
cvg   (2004-08-31 08:36) [3]

Но теперь, блин, другая проблема: то, что я записал в вызове функции AddXY, теперь выводится по оси Х вместо времени. Как эту подлянку отключить?

---

← →
Vitalik ©   (2004-08-31 09:08) [4]

Может тебе вообще, вот так попробовать сделать:

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
 l: TLineSeries;
begin
 l := TLineSeries.Create(self);
 l.ParentChart := chart1;
 l.Marks.Visible := true;
 l.OnGetMarkText := GetMarkTest;
 for i := 0 to 20 do
   begin
     l.AddXY(i, random(20))
   end;
end;

procedure TForm1.GetMarkTest(Sender: TChartSeries; ValueIndex: Integer;
 var MarkText: String);
begin
 MarkText := "Вася";
end;

---

← →
cvg   (2004-08-31 09:25) [5]

А менее через пятую точку как-нить можно? Что-нить типа

Series1.MarkText := "Вася";

Или, может, с TCahtLegend покувыркаться как-нить можно?

---

← →
Vitalik ©   (2004-08-31 09:49) [6]

Так тебе на каждом маркере нужна одна и та же надпись?

---

← →
cvg   (2004-08-31 10:08) [7]

Ну да. Я вот уже нашел то, что могло бы подойти, но оно почему-то не пашет :((. Если в Editing Chart1/Series/Style я выбираю Legend или в самой программе пишу

Series1.Marks.Style := smsLegend;

то вообще никаких марков не показывается. То есть, когда мышом выбираю Value или Label, они сразу на шаблоне Chart"а показавыются, а как только жму на Legend, эти таблички вообще исчезают. Why???

---

← →
cvg   (2004-08-31 12:00) [8]

И вообще, когда Series1.Marks.Style := smsLegend, я так понимаю, что вместо марка должно показваться то, что выводится сбоку в рамочке?

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.023 c