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

fpspreadsheet: Make TsSpreadsheetInspector support the new TsWorksheet.Index property.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7010 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-17 12:06:17 +00:00
parent d0b98b3435
commit ffacd7bcca
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3998,6 +3998,7 @@ begin
if ASheet = nil then if ASheet = nil then
begin begin
AStrings.Add('Name='); AStrings.Add('Name=');
AStrings.Add('Index=');
AStrings.Add('First row='); AStrings.Add('First row=');
AStrings.Add('Last row='); AStrings.Add('Last row=');
AStrings.Add('First column='); AStrings.Add('First column=');
@ -4013,6 +4014,7 @@ begin
end else end else
begin begin
AStrings.Add(Format('Name=%s', [ASheet.Name])); 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('First row=%d', [Integer(ASheet.GetFirstRowIndex)]));
AStrings.Add(Format('Last row=%d', [ASheet.GetLastRowIndex(true)])); AStrings.Add(Format('Last row=%d', [ASheet.GetLastRowIndex(true)]));
AStrings.Add(Format('First column=%d', [Integer(ASheet.GetFirstColIndex)])); AStrings.Add(Format('First column=%d', [Integer(ASheet.GetFirstColIndex)]));