Метки в круговой диаграмме

[Санька]

Доброго времени суток, форумчане !!!

Новичок просит помощи !!!

Ситуация следующая и очень простая. Нужно построить круговую диаграмму с метками.
На форме : Stringgrid (c расчетными данными), Chart (включена круговая диаграмма), Listchartsource.

Вроде все совсем просто: ПОСЧИТАЛ ДАННЫЕ , в цикле выбираешь данные, формируешь строку, listchartsource1.DataPoints.AddStrings(помещаю сюда строку).

И все приехали. Диаграмма строится, но метки не выводятся. Почему не знаю.

Попробовал сделать все настройки по примеру из компонент tachart\demo\legend
Не помогло.

[wofs]

На вскидку я делаю как то так (выдрано из проекта). Не круговая.

Код: Выделить всё

var 
_Chart: TChart;
Chart1LineSeries1: TLineSeries;
.................

   _Chart:= ChartPrice;
   _Chart.ClearSeries;
   Chart1LineSeries1:= TLineSeries.Create(_Chart);
   Chart1LineSeries1.Marks.Style := TSeriesMarksStyle(6);
   Chart1LineSeries1.SeriesColor:= clBlue;
   Chart1LineSeries1.ShowPoints:= true; // возможно у вас проблема в этом.
   _Chart.AddSeries(Chart1LineSeries1);
   _Chart.Title.Visible:= true;

   // не допускаем перекрытие лейблов
   _Chart.LeftAxis.Marks.OverlapPolicy := opHideNeighbour;
   _Chart.BottomAxis.Marks.OverlapPolicy := opHideNeighbour;
   Chart1LineSeries1.Marks.OverlapPolicy := opHideNeighbour;   

for i:=0 to High(_arrDB) do
         Chart1LineSeries1.AddXY(_arrDB[i,0], _arrDB[i,1],''); 

Добавлено спустя 16 минут 55 секунд:
Если бы вы приложили проблемный пример проекта - было бы проще.

Добавлено спустя 2 минуты 4 секунды:
Ха, нашел. Проверьте это свойство.

Код: Выделить всё

Chart1PieSeries1.Marks.Visible:= true;