Использование компонентов Microsoft Office в приложениях. Часть 1
Листинг 4
ChartSpace1.ChartLayout := chChartLayoutHorizontal; BarChart := ChartSpace1.Charts.Add(0); With BarChart do Begin Type_ := chChartTypeBarClustered; // Категории - первое поле SetData(chDimCategories, 0, 0); // Значения - второе поле SetData(chDimValues, 0, 1); // Отформатируем значения осей With Axes[chAxisPositionBottom] do Begin NumberFormat := ‘0,’; MajorUnit := 25000; HasMajorGridlines := False; End; End;