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

fpspreadsheet: Show info on hidden worksheet in TsSpreadsheetInspector

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5772 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-03-01 17:45:52 +00:00
parent 47c857aa6b
commit 2a83ad41eb
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3637,6 +3637,7 @@ var
po: TsPrintOption; po: TsPrintOption;
img: TsImage; img: TsImage;
embObj: TsEmbeddedObj; embObj: TsEmbeddedObj;
so: TsSheetOption;
begin begin
if ASheet = nil then if ASheet = nil then
begin begin
@@ -3651,6 +3652,7 @@ begin
AStrings.Add('Default row height='); AStrings.Add('Default row height=');
AStrings.Add('Zoom factor='); AStrings.Add('Zoom factor=');
AStrings.Add('Page layout='); AStrings.Add('Page layout=');
AStrings.Add('Options=');
end else end else
begin begin
AStrings.Add(Format('Name=%s', [ASheet.Name])); AStrings.Add(Format('Name=%s', [ASheet.Name]));
@@ -3771,6 +3773,13 @@ begin
end else end else
AStrings.Add('(+) Images=(dblclick for more...)'); 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;
end; end;