Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вывести Label в TChart'е??? [D7, WinXP]

cvg © (2004-08-30 18:28:00)
Hi masters! Подскажите pls, как вывести в TChar'е какое-нить слово? (да хоть "Вася"!) Ну вот пишу я:
Series1.AddXY(blah-blah-blah); Series1.Marks.Style := smsLabel;
А как прописать, что Label должно быть равно "Вася"???

cvg (2004-08-31 12:00:00) [1]
И вообще, когда Series1.Marks.Style := smsLegend, я так понимаю, что вместо марка должно показваться то, что выводится сбоку в рамочке?

cvg (2004-08-31 10:08:00) [2]
Ну да. Я вот уже нашел то, что могло бы подойти, но оно почему-то не пашет :((. Если в Editing Chart1/Series/Style я выбираю Legend или в самой программе пишу
Series1.Marks.Style := smsLegend;
то вообще никаких марков не показывается. То есть, когда мышом выбираю Value или Label, они сразу на шаблоне Chart'а показавыются, а как только жму на Legend, эти таблички вообще исчезают. Why???

Vitalik (2004-08-31 09:49:00) [3]
Так тебе на каждом маркере нужна одна и та же надпись?

cvg (2004-08-31 09:25:00) [4]
А менее через пятую точку как-нить можно? Что-нить типа
Series1.MarkText := 'Вася';
Или, может, с TCahtLegend покувыркаться как-нить можно?

Vitalik (2004-08-31 09:08:00) [5]
Может тебе вообще, вот так попробовать сделать:

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 08:36:00) [6]
Но теперь, блин, другая проблема: то, что я записал в вызове функции AddXY, теперь выводится по оси Х вместо времени. Как эту подлянку отключить?

cvg (2004-08-31 07:40:00) [7]
Ну да, примерно так. Я уже на Google'е нашел. Thanx anyhow.

begin...end (2004-08-30 18:53:00) [8]
Не понял, тебе заголовок Chart'а нужен, или что?

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

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

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

Или что?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »