From 249a40754b9ce0558ce538f36390b827901a4873 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 19 Dec 2016 22:17:09 +0000
Subject: [PATCH] fpspreadsheet: Fix crash of Workbooksource when loading other
 sheets from the same workbook into a grid.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5542 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index 6dd039d4e..d9bbe3f07 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -1070,7 +1070,8 @@ procedure TsWorkbookSource.InternalLoadFromWorkbook(AWorkbook: TsWorkbook;
 begin
   AWorkbook.DisableNotifications;
 
-  InternalCreateNewWorkbook(AWorkbook);
+  if AWorkbook <> FWorkbook then
+    InternalCreateNewWorkbook(AWorkbook);
   WorkbookOpenedHandler(self);
 
   if AWorksheetIndex = -1 then