From f0d908f280e38d90f14e04357a3eb70b94816059 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 5 Nov 2016 22:02:31 +0000
Subject: [PATCH] fpspreadsheet: Fix SpreadsheetInspector not displaying cell
 properties and values any more.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5316 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/source/visual/fpspreadsheetctrls.pas   | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index 9322d339e..6dd039d4e 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -3071,13 +3071,7 @@ begin
     if sheet <> nil then begin
       FCurrRow := sheet.ActiveCellRow;
       FCurrCol := sheet.ActiveCellCol;
-      {
-      cell := sheet.FindCell(sheet.ActiveCellRow, sheet.ActiveCellCol);
-      if cell <> nil then begin
-        FCurrRow := cell^.Row;
-        FCurrCol := cell^.Col;
-      end;
-      }
+      cell := sheet.FindCell(FCurrRow, FCurrCol);
     end;
   end;
 
@@ -3133,7 +3127,6 @@ end;
 procedure TsSpreadsheetInspector.ListenerNotification(
   AChangedItems: TsNotificationItems; AData: Pointer = nil);
 begin
-//  Unused(AData);
   case FMode of
     imWorkbook:
       if ([lniWorkbook, lniWorksheet]*AChangedItems <> []) then