Для плоских гистограмм с накоплением есть возможность отобразить линии
серий (рядов). Они представляют собой прямые, соединяющие границы об-
ластей значений соседних рядов. Если изменить тип диаграммы, приведя ее
к объемному виду, то линии серий, отображавшиеся на плоской диаграмме,
исчезнут. Для включения режима отображения линий серий используем
свойство HasSeriesLines объекта ChartGroup, установив его в значение True.
Цвет и другие свойства линий серий определяются свойством Border объек-
та SeriesLines. Объект SeriesLines в свою очередь принадлежит объекту
ChartGroup. Рассмотрим следующую процедуру.
Отображение линий серий на диаграмме
const xlColumnStacked=52;
procedure TOKBottamDlgll.HasSeriesLinesClick(Sender: TObject);
var ChartGroup:variant;
begin
Chart.ChartType:=xlColumnStacked;
ChartGroup:=Chart.ChartGroups.Item(1);
ChartGroup.HasSeriesLines:=HasSeriesLines.Checked;
if HasSeriesLines.Checked then begin
ChartGroup.SeriesLines.Border.Colorlndex:=32;
ChartGroup.SeriesLines.Border.Weight:=4;
end;
end;
Первый оператор представленной процедуры устанавливает нужный тип
диаграммы, второй возвращает ссылку на элемент коллекции ChartGroups.
Далее устанавливаем режим отображения линий серий и настраиваем их
параметры. Результат показан на рис. 14.22.
Рис. 14.22. Линии серий на диаграмме |