mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-05 14:47:53 +02:00
33 lines
844 B
ObjectPascal
33 lines
844 B
ObjectPascal
program demoline;
|
|
|
|
{$MODE OBJFPC}
|
|
{$MODESWITCH EXTERNALCLASS}
|
|
|
|
uses
|
|
ChartJS;
|
|
|
|
var
|
|
config: TChartConfiguration;
|
|
dataset, d2: TChartLineDataset;
|
|
begin
|
|
config := TChartConfiguration.new;
|
|
config.type_ := 'line';
|
|
config.data := TChartData.new;
|
|
config.data.labels := ['January', 'February', 'March', 'April', 'May',
|
|
'June', 'July'];
|
|
dataset := TChartLineDataset.new;
|
|
dataset.label_ := 'My First dataset';
|
|
dataset.data := [65, 59, 80, 81, 56, 55, 40];
|
|
dataset.fill := False;
|
|
dataset.borderColor := 'rgb(75, 192, 192)';
|
|
dataset.lineTension := 0.1;
|
|
d2 := TChartLineDataset.new;
|
|
d2.label_ := 'My other dataset';
|
|
d2.data := [35, 49, 90, 70, 55, 45, 20];
|
|
d2.fill := False;
|
|
d2.borderColor := 'rgb(255, 192, 192)';
|
|
d2.lineTension := 0.1;
|
|
config.data.datasets := [dataset,d2];
|
|
TChart.new('myChart', config);
|
|
end.
|