From 62246a58dbc6ac74cb17ec121a36e9b3830bb752 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jan 2016 21:53:18 +0000
Subject: [PATCH] fpspreadsheet: Fix the WorksheetGrid method NewWorkbook to
 respect the column and row count parameter.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4437 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpspreadsheetgrid.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index 85c3a90ad..a78640ff7 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -3822,6 +3822,10 @@ end;
 procedure TsCustomWorksheetGrid.NewWorkbook(AColCount, ARowCount: Integer);
 begin
   GetWorkbookSource.CreateNewWorkbook;
+  FInitColCount := AColCount;
+  FInitRowCount := ARowCount;
+  Setup;
+
   {
   if FOwnsWorkbook then
     FreeAndNil(FOwnedWorkbook);