From 8f9b01368df0fe250e8cf6cdd80e604c4bdde134 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 6 Sep 2018 09:41:40 +0000 Subject: [PATCH] fpspreadsheet: Show hidden state of rows/columns in TsSpreadsheetInspector git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6634 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../fpspreadsheet/source/visual/fpspreadsheetctrls.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas index e59286706..ae6aa7697 100644 --- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas +++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas @@ -3789,6 +3789,9 @@ begin ColWidthTypeNames[lCol^.ColWidthType] ])); UpdateFormatProperties(lCol^.FormatIndex, AStrings); + AStrings.Add(Format('Hidden=%s', [ + BoolToStr(lCol^.Hidden, true) + ])); end else begin AStrings.Add('No column record='); @@ -3831,6 +3834,9 @@ begin RowHeightTypeNames[lRow^.RowHeightType] ])); UpdateFormatProperties(lRow^.FormatIndex, AStrings); + AStrings.Add(Format('Hidden=%s', [ + BoolToStr(lRow^.Hidden, true) + ])); end else begin AStrings.Add('No row record=');