demodoughnut.lpr 557 B

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