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

fpspreadsheet: Add info on DBCELL record to BIFFExplorer.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3084 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-05-23 16:22:47 +00:00
parent 08d3a8a137
commit aad3342021
1 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
View File

@ -36,6 +36,7 @@ type
procedure ShowColWidth; procedure ShowColWidth;
procedure ShowCountry; procedure ShowCountry;
procedure ShowDateMode; procedure ShowDateMode;
procedure ShowDBCell;
procedure ShowDefColWidth; procedure ShowDefColWidth;
procedure ShowDefRowHeight; procedure ShowDefRowHeight;
procedure ShowDelta; procedure ShowDelta;
@ -342,6 +343,8 @@ begin
ShowMulBlank; ShowMulBlank;
$00BD: $00BD:
ShowMulRK; ShowMulRK;
$00D7:
ShowDBCell;
$00DA: $00DA:
ShowBookBool; ShowBookBool;
$00E0: $00E0:
@ -821,6 +824,31 @@ begin
'0 = Base date is 1899-Dec-31, 1 = Base date is 1904-Jan-01'); '0 = Base date is 1899-Dec-31, 1 = Base date is 1904-Jan-01');
end; end;
procedure TBIFFGrid.ShowDBCell;
var
i, n: Integer;
dw: DWord;
w: Word;
numBytes: Integer;
begin
if FFormat < sfExcel5 then exit;
n := (Length(FBuffer) - 4) div 2;
RowCount := FixedRows + 1 + n;
numBytes := 4;
Move(FBuffer[FBufferIndex], dw, numBytes);
ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
'Relative offset to first ROW record in the Row Block');
numBytes := 2;
for i:=1 to n do begin
Move(FBuffer[FBufferIndex], w, numBytes);
ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
'Relative offsets to calculate stream position of the first cell record in row');
end;
end;
procedure TBIFFGrid.ShowDefColWidth; procedure TBIFFGrid.ShowDefColWidth;
var var
numBytes: Integer; numBytes: Integer;