lazarus-ccr/components/fpspreadsheet/examples/fpsgrid/mainform.pas

unit mainform; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Menus, ExtCtrls, ComCtrls, ActnList,
  fpspreadsheetgrid, fpspreadsheet, fpsallformats;

type

  { TForm1 }

  TForm1 = class(TForm)
    AcOpen: TAction;
    AcSaveAs: TAction;
    AcQuit: TAction;
    ActionList1: TActionList;
    btnPopulateGrid: TButton;
    CbDisplayFixedColRow: TCheckBox;
    CbDisplayGrid: TCheckBox;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    mnuFile: TMenuItem;
    mnuOpen: TMenuItem;
    mnuQuit: TMenuItem;
    mnuSaveAs: TMenuItem;
    OpenDialog1: TOpenDialog;
    PageControl1: TPageControl;
    Panel1: TPanel;
    SaveDialog1: TSaveDialog;
    sWorksheetGrid1: TsWorksheetGrid;
    TabSheet1: TTabSheet;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    procedure btnPopulateGridClick(Sender: TObject);
    procedure CbDisplayFixedColRowClick(Sender: TObject);
    procedure CbDisplayGridClick(Sender: TObject);
    procedure acOpenExecute(Sender: TObject);
    procedure acQuitExecute(Sender: TObject);
    procedure acSaveAsExecute(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

uses
  Grids;

{ TForm1 }

procedure TForm1.btnPopulateGridClick(Sender: TObject);
// Populate grid with some demo data
var
  lCell: PCell;
begin
  // create a cell (2,2) if not yet available
  lCell := sWorksheetGrid1.Worksheet.GetCell(2, 2);
  sWorksheetGrid1.Worksheet.WriteUTF8Text(2, 2, 'Algo');
  sWorksheetGrid1.Invalidate;
end;

procedure TForm1.CbDisplayFixedColRowClick(Sender: TObject);
begin
  sWorksheetGrid1.DisplayFixedColRow := CbDisplayFixedColRow.Checked;
end;

procedure TForm1.CbDisplayGridClick(Sender: TObject);
begin
  if CbDisplayGrid.Checked then
    sWorksheetGrid1.Options := sWorksheetGrid1.Options + [goHorzLine, goVertLine]
  else
    sWorksheetGrid1.Options := sWorksheetGrid1.Options - [goHorzLine, goVertLine];
end;

procedure TForm1.acOpenExecute(Sender: TObject);
// Loads first worksheet from file into grid
var
  pages: TStrings;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    sWorksheetGrid1.LoadFromSpreadsheetFile(OpenDialog1.FileName);
    Caption := Format('fpsGrid - %s', [OpenDialog1.Filename]);

    // Create a tab in the pagecontrol for each worksheet contained in the workbook
    // This would be easer with a TTabControl. This has display issues, though.
    pages := TStringList.Create;
    try
      sWorksheetGrid1.GetSheets(pages);
      sWorksheetGrid1.Parent := PageControl1.Pages[0];
      while PageControl1.PageCount > pages.Count do PageControl1.Pages[1].Free;
      while PageControl1.PageCount < pages.Count do PageControl1.AddTabSheet;
      for i:=0 to PageControl1.PageCount-1 do
        PageControl1.Pages[i].Caption := pages[i];
    finally
      pages.Free;
    end;
  end;
end;

procedure TForm1.acQuitExecute(Sender: TObject);
begin
  Close;
end;

procedure TForm1.acSaveAsExecute(Sender: TObject);
// Saves sheet in grid to file, overwriting existing file
var
  lWorkBook: TsWorkbook;
  lWorkSheet:TsWorksheet;
begin
  ShowMessage('Not implemented...');
  exit;

  if SaveDialog1.Execute then
  begin
    lWorkBook := TsWorkBook.Create;
    lWorkSheet := lWorkBook.AddWorksheet('Sheet1');
    try
      sWorksheetGrid1.SaveToWorksheet(lWorkSheet);
      lWorkBook.WriteToFile(SaveDialog1.FileName,true);
    finally
      lWorkBook.Free;
    end;
  end;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  sWorksheetGrid1.Parent := PageControl1.Pages[PageControl1.ActivePageIndex];
  sWorksheetGrid1.SelectSheetByIndex(PageControl1.ActivePageIndex);
end;


initialization
  {$I mainform.lrs}

end.