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

biffexplorer: Show details for cell ranges in 3d references.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6404 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-10 22:57:13 +00:00
parent 4f4c913ac0
commit e797ae0afd
1 changed files with 65 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
applications/biffexplorer/bebiffgrid.pas
View File

@@ -42,7 +42,6 @@ type
procedure ShowCalcMode; procedure ShowCalcMode;
procedure ShowCellAddress(ForceRelativeAddress: Boolean = false); procedure ShowCellAddress(ForceRelativeAddress: Boolean = false);
procedure ShowCellAddressRange(AFormat: TsSpreadsheetFormat); procedure ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
procedure ShowCellAddress3D;
procedure ShowClrtClient; procedure ShowClrtClient;
procedure ShowCodePage; procedure ShowCodePage;
procedure ShowColInfo; procedure ShowColInfo;
@@ -113,6 +112,7 @@ type
procedure ShowSelection; procedure ShowSelection;
procedure ShowSharedFormula; procedure ShowSharedFormula;
procedure ShowSheet; procedure ShowSheet;
procedure ShowSheetIndex;
procedure ShowSheetPR; procedure ShowSheetPR;
procedure ShowSST; procedure ShowSST;
procedure ShowStandardWidth; procedure ShowStandardWidth;
@@ -1034,7 +1034,7 @@ begin
end; end;
end; end;
(*
procedure TBIFFGrid.ShowCellAddress3D; procedure TBIFFGrid.ShowCellAddress3D;
var var
numBytes: Word; numBytes: Word;
@@ -1080,7 +1080,7 @@ begin
'0-based index to REF entry in EXTERNSHEET record'); '0-based index to REF entry in EXTERNSHEET record');
end; end;
ShowCellAddress(true); ShowCellAddress(true);
end; end; *)
procedure TBIFFGrid.ShowCellAddressRange(AFormat: TsSpreadsheetFormat); procedure TBIFFGrid.ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
@@ -3046,7 +3046,21 @@ begin
end; end;
ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
Format('Token tREF3D (Cell %s)', [s])); 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; end;
else else
@@ -5449,6 +5463,53 @@ begin
end; 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; procedure TBIFFGrid.ShowSheetPR;
var var
numBytes: Integer; numBytes: Integer;