From 2a83ad41ebc5b145f91712c4e5ae99c9bd119115 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 1 Mar 2017 17:45:52 +0000
Subject: [PATCH] fpspreadsheet: Show info on hidden worksheet in
 TsSpreadsheetInspector

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

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index c6046b88b..c245bebee 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -3637,6 +3637,7 @@ var
   po: TsPrintOption;
   img: TsImage;
   embObj: TsEmbeddedObj;
+  so: TsSheetOption;
 begin
   if ASheet = nil then
   begin
@@ -3651,6 +3652,7 @@ begin
     AStrings.Add('Default row height=');
     AStrings.Add('Zoom factor=');
     AStrings.Add('Page layout=');
+    AStrings.Add('Options=');
   end else
   begin
     AStrings.Add(Format('Name=%s', [ASheet.Name]));
@@ -3771,6 +3773,13 @@ begin
     end else
       AStrings.Add('(+) Images=(dblclick for more...)');
 
+    s := '';
+    for so in TsSheetOption do
+      if so in ASheet.Options then
+        s := s + ', ' + GetEnumName(TypeInfo(TsSheetOption), ord(so));
+    if s <> '' then Delete(s, 1, 2);
+    AStrings.Add('Options='+s);
+
   end;
 end;