2
0

demoline.lpr 844 B

1234567891011121314151617181920212223242526272829303132
  1. program demoline;
  2. {$MODE OBJFPC}
  3. {$MODESWITCH EXTERNALCLASS}
  4. uses
  5. ChartJS;
  6. var
  7. config: TChartConfiguration;
  8. dataset, d2: TChartLineDataset;
  9. begin
  10. config := TChartConfiguration.new;
  11. config.type_ := 'line';
  12. config.data := TChartData.new;
  13. config.data.labels := ['January', 'February', 'March', 'April', 'May',
  14. 'June', 'July'];
  15. dataset := TChartLineDataset.new;
  16. dataset.label_ := 'My First dataset';
  17. dataset.data := [65, 59, 80, 81, 56, 55, 40];
  18. dataset.fill := False;
  19. dataset.borderColor := 'rgb(75, 192, 192)';
  20. dataset.lineTension := 0.1;
  21. d2 := TChartLineDataset.new;
  22. d2.label_ := 'My other dataset';
  23. d2.data := [35, 49, 90, 70, 55, 45, 20];
  24. d2.fill := False;
  25. d2.borderColor := 'rgb(255, 192, 192)';
  26. d2.lineTension := 0.1;
  27. config.data.datasets := [dataset,d2];
  28. TChart.new('myChart', config);
  29. end.