demoline.lpr 641 B

1234567891011121314151617181920212223242526
  1. program demoline;
  2. {$MODE OBJFPC}
  3. {$MODESWITCH EXTERNALCLASS}
  4. uses
  5. ChartJS;
  6. var
  7. config: TChartConfiguration;
  8. dataset: 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. config.data.datasets := [dataset];
  22. TChart.new('myChart', config);
  23. end.