From ffacd7bccad151f6baa13e17c5a5c53f2bae0ca7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 17 Jun 2019 12:06:17 +0000
Subject: [PATCH] fpspreadsheet: Make TsSpreadsheetInspector support the new
 TsWorksheet.Index property.

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

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index cf69d35e1..25c8e3f26 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -3998,6 +3998,7 @@ begin
   if ASheet = nil then
   begin
     AStrings.Add('Name=');
+    AStrings.Add('Index=');
     AStrings.Add('First row=');
     AStrings.Add('Last row=');
     AStrings.Add('First column=');
@@ -4013,6 +4014,7 @@ begin
   end else
   begin
     AStrings.Add(Format('Name=%s', [ASheet.Name]));
+    AStrings.Add(Format('Index=%d', [ASheet.Index]));
     AStrings.Add(Format('First row=%d', [Integer(ASheet.GetFirstRowIndex)]));
     AStrings.Add(Format('Last row=%d', [ASheet.GetLastRowIndex(true)]));
     AStrings.Add(Format('First column=%d', [Integer(ASheet.GetFirstColIndex)]));