From e797ae0afd2b7b65722f5c58ce19b961b9f2c37e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 10 May 2018 22:57:13 +0000
Subject: [PATCH] biffexplorer: Show details for cell ranges in 3d references.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6404 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/biffexplorer/bebiffgrid.pas | 69 ++++++++++++++++++++++--
 1 file changed, 65 insertions(+), 4 deletions(-)

diff --git a/applications/biffexplorer/bebiffgrid.pas b/applications/biffexplorer/bebiffgrid.pas
index 7dccc1b14..256b1945e 100644
--- a/applications/biffexplorer/bebiffgrid.pas
+++ b/applications/biffexplorer/bebiffgrid.pas
@@ -42,7 +42,6 @@ type
     procedure ShowCalcMode;
     procedure ShowCellAddress(ForceRelativeAddress: Boolean = false);
     procedure ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
-    procedure ShowCellAddress3D;
     procedure ShowClrtClient;
     procedure ShowCodePage;
     procedure ShowColInfo;
@@ -113,6 +112,7 @@ type
     procedure ShowSelection;
     procedure ShowSharedFormula;
     procedure ShowSheet;
+    procedure ShowSheetIndex;
     procedure ShowSheetPR;
     procedure ShowSST;
     procedure ShowStandardWidth;
@@ -1034,7 +1034,7 @@ begin
   end;
 end;
 
-
+                                     (*
 procedure TBIFFGrid.ShowCellAddress3D;
 var
   numBytes: Word;
@@ -1080,7 +1080,7 @@ begin
       '0-based index to REF entry in EXTERNSHEET record');
   end;
   ShowCellAddress(true);
-end;
+end;          *)
 
 
 procedure TBIFFGrid.ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
@@ -3046,7 +3046,21 @@ begin
           end;
           ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
             Format('Token tREF3D (Cell %s)', [s]));
-          ShowCellAddress3D;
+          ShowSheetIndex;
+          ShowCellAddress;
+        end;
+
+      $3B, $5B, $7B:
+        begin
+          case token of
+            $3B: s := 'reference';
+            $5B: s := 'value';
+            $7B: s := 'array';
+          end;
+          ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+            Format('Token tAREA3D (cell range, %s)', [s]));
+          ShowSheetIndex;
+          ShowCellAddressRange(FFormat);
         end;
 
     else
@@ -5449,6 +5463,53 @@ begin
 end;
 
 
+procedure TBIFFGrid.ShowSheetIndex;
+var
+  numBytes: Word;
+  b: Byte;
+  w: Word;
+  i: Int16;
+  r,c: Integer;
+begin
+  if FFormat = sfExcel5 then begin
+    { Excel 5 }
+    numBytes := 2;
+    Move(FBuffer[FBufferIndex], i, numBytes);
+    ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(i),
+      '1-based index to EXTERNSHEET record (> 0: external ref, < 0: 3D reference)');
+
+    if i < 0 then begin
+      { 3D reference }
+      numbytes := 8;
+      ShowInRow(FCurrRow, FBufferIndex, numbytes, '', '(not used)', true);
+
+      numbytes := 2;
+      Move(FBuffer[FBufferIndex], w, numbytes);
+      ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+        '0-based index to first referenced sheet ($FFFF = deleted sheet)');
+
+      numbytes := 2;
+      Move(FBuffer[FBufferIndex], w, numbytes);
+      ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+        '0-based index to last referenced sheet ($FFFF = deleted sheet)');
+    end else
+    if i > 0 then begin
+      { external reference }
+      numbytes := 12;
+      ShowInRow(FCurrRow, FBufferIndex, numbytes, '', '(not used)', true);
+    end;
+  end
+  else
+  { Excel 8 }
+  if FFormat = sfExcel8 then begin
+    numbytes := 2;
+    Move(FBuffer[FBufferIndex], w, numbytes);
+    ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+      '0-based index to REF entry in EXTERNSHEET record');
+  end;
+end;
+
+
 procedure TBIFFGrid.ShowSheetPR;
 var
   numBytes: Integer;