pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Show hidden state of rows/columns in TsSpreadsheetInspector

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6634 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-09-06 09:41:40 +00:00
parent 4ca04aed77
commit 8f9b01368d
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
View File

@@ -3789,6 +3789,9 @@ begin
ColWidthTypeNames[lCol^.ColWidthType] ColWidthTypeNames[lCol^.ColWidthType]
])); ]));
UpdateFormatProperties(lCol^.FormatIndex, AStrings); UpdateFormatProperties(lCol^.FormatIndex, AStrings);
AStrings.Add(Format('Hidden=%s', [
BoolToStr(lCol^.Hidden, true)
]));
end else end else
begin begin
AStrings.Add('No column record='); AStrings.Add('No column record=');
@@ -3831,6 +3834,9 @@ begin
RowHeightTypeNames[lRow^.RowHeightType] RowHeightTypeNames[lRow^.RowHeightType]
])); ]));
UpdateFormatProperties(lRow^.FormatIndex, AStrings); UpdateFormatProperties(lRow^.FormatIndex, AStrings);
AStrings.Add(Format('Hidden=%s', [
BoolToStr(lRow^.Hidden, true)
]));
end else end else
begin begin
AStrings.Add('No row record='); AStrings.Add('No row record=');