Использование компонентов Microsoft Office в приложениях. Часть 1

Листинг 5

PieChart := ChartSpace1.Charts.Add(1);
   With PieChart do
   Begin
     Type_ := chChartTypePie;
   // Категории - первое поле
     SetData(chDimCategories, 0, 0);
   // Значения - второе поле
     SetData(chDimValues, 0, 1);
     SeriesCollection.Item[0].Explosion := 20;
   // Добавим "легенду"
     HasLegend := True;
     Legend.Position := chLegendPositionBottom;
   //  и заголовок
     HasTitle        := True;
     Title.Caption   := ‘Sales by Category for 1997’;
     Title.Font.Set_Bold(True);
     Title.Font.Set_Size(11);
     WidthRatio := 75;
   // Покажем данные как проценты
     With SeriesCollection.Item[0].DataLabelsCollection.Add do
     Begin
      HasValue       := False;
      HasPercentage  := True;
      Font.Set_Size(7);
     End
   End;

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует