demomixed.lpr 859 B

12345678910111213141516171819202122232425262728293031323334
  1. program demomixed;
  2. {$MODE OBJFPC}
  3. {$MODESWITCH EXTERNALCLASS}
  4. uses
  5. ChartJS;
  6. var
  7. config: TChartConfiguration;
  8. dataset1: TChartBarDataset;
  9. dataset2: TChartLineDataset;
  10. begin
  11. config := TChartConfiguration.new;
  12. config.type_ := 'bar';
  13. config.data := TChartData.new;
  14. config.data.labels := ['January', 'February', 'March', 'April'];
  15. dataset1 := TChartBarDataset.new;
  16. dataset1.label_ := 'Bar Dataset';
  17. dataset1.data := [10, 20, 30, 40];
  18. dataset1.borderColor := 'rgb(255, 99, 132)';
  19. dataset1.backgroundColor := 'rgba(255, 99, 132, 0.2)';
  20. dataset2 := TChartLineDataset.new;
  21. dataset2.label_ := 'Line Dataset';
  22. dataset2.data := [50, 50, 50, 50];
  23. dataset2.type_ := 'line';
  24. dataset2.fill := False;
  25. dataset2.borderColor := 'rgb(54, 162, 235)';
  26. config.data.datasets := [dataset1, dataset2];
  27. TChart.new('myChart', config);
  28. end.