mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-13 21:29:21 +02:00
24 lines
557 B
ObjectPascal
24 lines
557 B
ObjectPascal
program demodoughnut;
|
|
|
|
{$MODE OBJFPC}
|
|
{$MODESWITCH EXTERNALCLASS}
|
|
|
|
uses
|
|
ChartJS;
|
|
|
|
var
|
|
config: TChartConfiguration;
|
|
dataset: TChartDoughnutDataset;
|
|
begin
|
|
config := TChartConfiguration.new;
|
|
config.type_ := 'doughnut';
|
|
config.data := TChartData.new;
|
|
config.data.labels := ['Red', 'Blue', 'Yellow'];
|
|
dataset := TChartDoughnutDataset.new;
|
|
dataset.data := [300, 50, 100];
|
|
dataset.backgroundColor := ['rgb(255, 99, 132)', 'rgb(54, 162, 235)',
|
|
'rgb(255, 205, 86)'];
|
|
config.data.datasets := [dataset];
|
|
TChart.new('myChart', config);
|
|
end.
|