You've already forked lazarus-ccr
380ac8247c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4019 8e941d3f-bd1b-0410-a28a-d453659cc2b4
92 lines
2.3 KiB
ObjectPascal
92 lines
2.3 KiB
ObjectPascal
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.
|
|
|