demopolararea.lpr 625 B

1234567891011121314151617181920212223
  1. program demopolararea;
  2. {$MODE OBJFPC}
  3. {$MODESWITCH EXTERNALCLASS}
  4. uses
  5. ChartJS;
  6. var
  7. config: TChartConfiguration;
  8. dataset: TChartPolarAreaDataset;
  9. begin
  10. config := TChartConfiguration.new;
  11. config.type_ := 'polarArea';
  12. config.data := TChartData.new;
  13. config.data.labels := ['Red', 'Green', 'Yellow', 'Grey', 'Blue'];
  14. dataset := TChartPolarAreaDataset.new;
  15. dataset.data := [11, 16, 7, 3, 14];
  16. dataset.backgroundColor := ['rgb(255, 99, 132)', 'rgb(75, 192, 192)',
  17. 'rgb(255, 205, 86)', 'rgb(201, 203, 207)', 'rgb(54, 162, 235)'];
  18. config.data.datasets := [dataset];
  19. TChart.new('myChart', config);
  20. end.