unit mainform;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls,
  Graphics, Dialogs, ExtCtrls, StdCtrls,
  fpstypes, fpspreadsheetctrls, fpspreadsheetgrid, fpspreadsheetchart;

type

  { TForm1 }

  TForm1 = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Chart1: TChart;
    Chart1AreaSeries1: TAreaSeries;
    Chart2: TChart;
    Chart2BarSeries1: TBarSeries;
    Chart3: TChart;
    Chart3PieSeries1: TPieSeries;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    sWorkbookChartSource1: TsWorkbookChartSource;
    sWorkbookChartSource2: TsWorkbookChartSource;
    sWorkbookChartSource3: TsWorkbookChartSource;
    sWorkbookSource1: TsWorkbookSource;
    sWorkbookTabControl1: TsWorkbookTabControl;
    sWorksheetGrid1: TsWorksheetGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
// The same effect is obtained by using the built-in TsWorksheetDeleteAction.
begin
  if sWorkbookSource1.Workbook.GetWorksheetCount = 1 then
    MessageDlg('There must be a least 1 worksheet.', mtError, [mbOK], 0)
  else
  if MessageDlg('Do you really want to delete this worksheet?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes
  then
    sWorkbookSource1.Workbook.RemoveWorksheet(sWorkbookSource1.Worksheet);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s: String;
begin
  s := sWorkbookSource1.Worksheet.Name;
  if InputQuery('Edit worksheet name', 'New name', s) then
  begin
    if sWorkbookSource1.Workbook.ValidWorksheetName(s) then
      sWorkbookSource1.Worksheet.Name := s
    else
      MessageDlg('Invalid worksheet name.', mtError, [mbOK], 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sWorkbookSource1.Filename := 'test-data.xlsx';
  sWorkbookChartSource1.XRange := 'Sheet1!A2:A21';
  sWorkbookChartSource1.YRange := 'Sheet1!B2:B21';
  sWorkbookChartSource2.XRange := 'Sheet2!A2:A16';
  sWorkbookChartSource2.YRange := 'Sheet2!B2:B16';
  sWorkbookChartSource3.XRange := 'Sheet3!A2:A5';
  sWorkbookChartSource3.YRange := 'Sheet3!B2:B5';
end;

end.