You've already forked lazarus-ccr
45 lines
927 B
ObjectPascal
45 lines
927 B
ObjectPascal
|
program chartdemo;
|
||
|
|
|
||
|
|
uses
|
||
|
|
fpspreadsheet, fpsutils, fpstypes, fpschart;
|
||
|
|
|
||
|
|
var
|
||
|
|
wb: TsWorkbook;
|
||
|
|
sh: TsWorksheet;
|
||
|
|
chart: TsChart;
|
||
|
|
ser: TsChartSeries;
|
||
|
|
idx: Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
wb := TsWorkbook.Create;
|
||
|
|
try
|
||
|
|
ws := wb.AddWorksheet('Test');
|
||
|
|
// x values
|
||
|
|
ws.WriteNumber(0, 0, 1.0);
|
||
|
|
ws.WriteNumber(1, 0, 2.1);
|
||
|
|
ws.WriteNumber(2, 0, 2.9);
|
||
|
|
ws.WriteNumber(3, 0, 4.15);
|
||
|
|
ws.WriteNumber(4, 0, 5.05);
|
||
|
|
// y values
|
||
|
|
ws.WriteNumber(0, 1, 10.0);
|
||
|
|
ws.WriteNumber(1, 1, 12.0);
|
||
|
|
ws.WriteNumber(2, 1, 9.0);
|
||
|
|
ws.WriteNumber(3, 1, 7.5);
|
||
|
|
ws.WriteNumber(4, 1, 11.2);
|
||
|
|
|
||
|
|
idx := ws.WriteChart(0, 0, 12, 9);
|
||
|
|
chart := ws.GetChart(idx);
|
||
|
|
ser := TsLineSeries.Create(chart);
|
||
|
|
ser.XRange := Range(0, 0, 4, 0);
|
||
|
|
ser.YRange := Range(0, 1, 4, 1);
|
||
|
|
ser.Title := 'Scatter series';
|
||
|
|
ser.ShowSymbols := true;
|
||
|
|
ser.ShowLines := true;
|
||
|
|
|
||
|
|
chart.AddSeries(
|
||
|
|
finally
|
||
|
|
wb.Free;
|
||
|
|
end;
|
||
|
|
end.
|
||
|
|
|