diff --git a/applications/biffexplorer/BIFFExplorer.ico b/applications/biffexplorer/BIFFExplorer.ico
new file mode 100644
index 000000000..7ce4cfe07
Binary files /dev/null and b/applications/biffexplorer/BIFFExplorer.ico differ
diff --git a/applications/biffexplorer/BIFFExplorer.lpi b/applications/biffexplorer/BIFFExplorer.lpi
new file mode 100644
index 000000000..20be0cb9f
--- /dev/null
+++ b/applications/biffexplorer/BIFFExplorer.lpi
@@ -0,0 +1,224 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/applications/biffexplorer/BIFFExplorer.lpr b/applications/biffexplorer/BIFFExplorer.lpr
new file mode 100644
index 000000000..4e9abfb96
--- /dev/null
+++ b/applications/biffexplorer/BIFFExplorer.lpr
@@ -0,0 +1,22 @@
+program BIFFExplorer;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Interfaces, // this includes the LCL widgetset
+ Forms, virtualtreeview_package, laz_fpspreadsheet, kcontrolslaz, beabout,
+ bebiffgrid, bebiffutils, behtml, beutils, mrumanager, beMain, beTypes;
+
+{$R *.res}
+
+begin
+ RequireDerivedFormResource := True;
+ Application.Initialize;
+ Application.CreateForm(TMainForm, MainForm);
+ MainForm.BeforeRun;
+ Application.Run;
+end.
+
diff --git a/applications/biffexplorer/BIFFExplorer.res b/applications/biffexplorer/BIFFExplorer.res
new file mode 100644
index 000000000..701ea761f
Binary files /dev/null and b/applications/biffexplorer/BIFFExplorer.res differ
diff --git a/applications/biffexplorer/beabout.lfm b/applications/biffexplorer/beabout.lfm
new file mode 100644
index 000000000..adecc1421
--- /dev/null
+++ b/applications/biffexplorer/beabout.lfm
@@ -0,0 +1,68 @@
+object AboutForm: TAboutForm
+ Left = 338
+ Height = 512
+ Top = 153
+ Width = 642
+ Caption = 'About BIFF Explorer'
+ ClientHeight = 512
+ ClientWidth = 642
+ Color = clWindow
+ OnCreate = FormCreate
+ Position = poMainFormCenter
+ LCLVersion = '1.7'
+ object Panel1: TPanel
+ Left = 0
+ Height = 66
+ Top = 0
+ Width = 642
+ Align = alTop
+ BevelOuter = bvNone
+ ClientHeight = 66
+ ClientWidth = 642
+ Color = clWindow
+ ParentColor = False
+ TabOrder = 0
+ object IconImage: TImage
+ Left = 7
+ Height = 48
+ Top = 8
+ Width = 48
+ end
+ object LblTitle: TLabel
+ Left = 69
+ Height = 29
+ Top = 16
+ Width = 158
+ Caption = 'BIFF Explorer'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clNavy
+ Font.Height = -24
+ Font.Name = 'Arial'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object BtnClose: TButton
+ Left = 559
+ Height = 29
+ Top = 16
+ Width = 75
+ Anchors = [akTop, akRight]
+ Cancel = True
+ Caption = 'Close'
+ Default = True
+ ModalResult = 1
+ TabOrder = 0
+ end
+ end
+ object Bevel1: TBevel
+ Left = 0
+ Height = 6
+ Top = 66
+ Width = 642
+ Align = alTop
+ Shape = bsTopLine
+ end
+end
diff --git a/applications/biffexplorer/beabout.pas b/applications/biffexplorer/beabout.pas
new file mode 100644
index 000000000..105422b7c
--- /dev/null
+++ b/applications/biffexplorer/beabout.pas
@@ -0,0 +1,153 @@
+unit beAbout;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, IpHtml, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
+ ExtCtrls, StdCtrls;
+
+type
+
+ { TAboutForm }
+
+ TAboutForm = class(TForm)
+ Bevel1: TBevel;
+ BtnClose: TButton;
+ IconImage: TImage;
+ LblTitle: TLabel;
+ Panel1: TPanel;
+ procedure FormCreate(Sender: TObject);
+ procedure HTMLViewerHotClick(Sender: TObject);
+ private
+ { private declarations }
+ FHTMLViewer: TIpHtmlPanel;
+ function CreateCredits: String;
+ public
+ { public declarations }
+ end;
+
+var
+ AboutForm: TAboutForm;
+
+implementation
+
+{$R *.lfm}
+
+uses
+ LCLIntf, types, beHTML;
+
+{ TAboutForm }
+
+function TAboutForm.CreateCredits: String;
+var
+ html: THTMLDocument;
+ clrs: THeaderColors = (clBlack, clBlack, clBlack, clBlack, clBlack);
+begin
+ html := THTMLDocument.Create;
+ try
+ clrs[h3] := LblTitle.Font.Color;
+ clrs[h4] := LblTitle.Font.Color;
+ with html do begin
+ BeginDocument('Credits', clrs, false);
+ AddHeader(h3, 'Credits');
+ AddHeader(h4, 'Libraries');
+ BeginBulletList;
+ AddListItem(Hyperlink(
+ 'Free Pascal',
+ 'www.freepascal.org')
+ );
+ AddListItem(Hyperlink(
+ 'Lazarus',
+ 'www.lazarus.freepascal.org')
+ );
+ AddListItem(HyperLink(
+ 'fpspreadsheet',
+ 'http://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/fpspreadsheet/')
+ );
+ AddListItem(Hyperlink(
+ 'KControls',
+ 'http://www.tkweb.eu/en/delphicomp/kcontrols.html')
+ );
+ EndBulletList;
+
+ AddEmptyLine;
+
+ AddHeader(h4, 'Icons');
+ BeginBulletList;
+ AddListItem(HyperLink(
+ 'Fugue icons',
+ 'http://p.yusukekamiyamane.com/')
+ + ' (for toolbar icons)');
+ AddListItem(HyperLink(
+ 'Nuvola icons',
+ 'www.icon-king.com/projects/nuvola/') +
+ ' (for application icon');
+ EndBulletList;
+
+ AddEmptyLine;
+
+ AddHeader(h4, 'Used documentation');
+ BeginBulletList;
+ AddListItem(Hyperlink(
+ 'OpenOffice.org''s Documentation of the Microsoft Excel File Format',
+ 'http://www.openoffice.org/sc/excelfileformat.pdf') +
+ ' (see folder "fpspreadsheet/reference")'
+ );
+ AddListItem(Hyperlink(
+ '[MS-XLS]: Excel Binary File Format (.xls) Structure',
+ 'http://msdn.microsoft.com/en-us/library/cc313154%28v=office.12%29.aspx'
+ ));
+ AddListItem(HyperLink(
+ 'Excel97-2007BinaryFileFormat(xls)Specification',
+ 'http://download.microsoft.com/download/0/B/E/0BE8BDD7-E5E8-422A-ABFD-4342ED7AD886/Excel97-2007BinaryFileFormat(xls)Specification.pdf'
+ ));
+ EndBulletList;
+
+ AddEmptyLine;
+
+ EndDocument;
+
+ Result := Lines.Text;
+ end;
+ finally
+ html.Free;
+ end;
+end;
+
+
+procedure TAboutForm.FormCreate(Sender: TObject);
+var
+ ico: TIcon;
+ sz: TSize;
+begin
+ ico := TIcon.Create;
+ try
+ ico.Assign(Application.Icon);
+ sz.cx := 48;
+ sz.cy := 48;
+ ico.Current := ico.GetBestIndexForSize(sz);
+ IconImage.Picture.Assign(ico);
+ finally
+ ico.Free;
+ end;
+
+ FHTMLViewer := TIpHtmlPanel.Create(self);
+ FHTMLViewer.Parent := self;
+ FHTMLViewer.Align := alClient;
+ FHTMLViewer.DefaultFontSize := 9;
+ FHTMLViewer.OnHotClick := @HTMLViewerHotClick;
+
+ FHTMLViewer.SetHTMLFromStr(CreateCredits);
+end;
+
+
+procedure TAboutForm.HTMLViewerHotClick(Sender: TObject);
+begin
+ OpenURL((Sender as TIpHtmlPanel).HotURL);
+end;
+
+
+end.
+
diff --git a/applications/biffexplorer/bebiffgrid.pas b/applications/biffexplorer/bebiffgrid.pas
new file mode 100644
index 000000000..686c53c3a
--- /dev/null
+++ b/applications/biffexplorer/bebiffgrid.pas
@@ -0,0 +1,6699 @@
+unit beBIFFGrid;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Controls, Grids, fpstypes, fpspreadsheet, beTypes;
+
+type
+ TBIFFBuffer = array of byte;
+
+ TBIFFDetailsEvent = procedure(Sender: TObject; ADetails: TStrings) of object;
+
+ TRichTextFormattingRun = packed record
+ FirstIndex, FontIndex: Word;
+ end;
+ TRichTextFormattingRuns = array of TRichTextFormattingRun;
+
+ TBIFFGrid = class(TStringGrid)
+ private
+ FRecType: Word;
+ FBuffer: TBIFFBuffer;
+ FBufferIndex: LongWord;
+ FFormat: TsSpreadsheetFormat;
+ FInfo: Integer;
+ FTotalSST: Integer;
+ FCounterSST: Integer;
+ FPendingCharCount: Integer;
+ FCurrRow: Integer;
+ FDetails: TStrings;
+ FOnDetails: TBIFFDetailsEvent;
+ function GetStringType: String;
+
+ procedure ShowBackup;
+ procedure ShowBlankCell;
+ procedure ShowBOF;
+ procedure ShowBookBool;
+ procedure ShowBoolCell;
+ procedure ShowBottomMargin;
+ procedure ShowCalcCount;
+ procedure ShowCalcMode;
+ procedure ShowCellAddress;
+ procedure ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
+ procedure ShowClrtClient;
+ procedure ShowCodePage;
+ procedure ShowColInfo;
+ procedure ShowColWidth;
+ procedure ShowContinue;
+ procedure ShowCountry;
+ procedure ShowDateMode;
+ procedure ShowDBCell;
+ procedure ShowDefColWidth;
+ procedure ShowDefinedName;
+ procedure ShowDefRowHeight;
+ procedure ShowDelta;
+ procedure ShowDimensions;
+ procedure ShowDSF;
+ procedure ShowEOF;
+ procedure ShowExcel9File;
+ procedure ShowExternBook;
+ procedure ShowExternCount;
+ procedure ShowExternSheet;
+ procedure ShowFileSharing;
+ procedure ShowFnGroupCount;
+ procedure ShowFont;
+ procedure ShowFontColor;
+ procedure ShowFooter;
+ procedure ShowFormat;
+ procedure ShowFormatCount;
+ procedure ShowFormula;
+ procedure ShowFormulaTokens(ATokenBytes: Integer);
+ procedure ShowGCW;
+ procedure ShowHeader;
+ procedure ShowHideObj;
+ procedure ShowHyperLink;
+ procedure ShowHyperLinkTooltip;
+ procedure ShowInteger;
+ procedure ShowInterfaceEnd;
+ procedure ShowInterfaceHdr;
+ procedure ShowIteration;
+ procedure ShowIXFE;
+ procedure ShowLabelCell;
+ procedure ShowLabelSSTCell;
+ procedure ShowLeftMargin;
+ procedure ShowMergedCells;
+ procedure ShowMMS;
+ procedure ShowMSODrawing;
+ procedure ShowMulBlank;
+ procedure ShowMulRK;
+ procedure ShowNote;
+ procedure ShowNumberCell;
+ procedure ShowObj;
+ procedure ShowPageSetup;
+ procedure ShowPalette;
+ procedure ShowPane;
+ procedure ShowPassword;
+ procedure ShowPrecision;
+ procedure ShowPrintGridLines;
+ procedure ShowPrintHeaders;
+ procedure ShowProt4Rev;
+ procedure ShowProt4RevPass;
+ procedure ShowProtect;
+ procedure ShowRecalc;
+ procedure ShowRefMode;
+ procedure ShowRefreshAll;
+ procedure ShowRightMargin;
+ procedure ShowRK;
+ procedure ShowRString;
+ procedure ShowRow;
+ procedure ShowSelection;
+ procedure ShowSharedFormula;
+ procedure ShowSheet;
+ procedure ShowSheetPR;
+ procedure ShowSST;
+ procedure ShowStandardWidth;
+ procedure ShowString;
+ procedure ShowStyle;
+ procedure ShowStyleExt;
+ procedure ShowTabID;
+ procedure ShowTopMargin;
+ procedure ShowTXO;
+ procedure ShowWindow1;
+ procedure ShowWindow2;
+ procedure ShowWindowProtect;
+ procedure ShowWriteAccess;
+ procedure ShowWriteProt;
+ procedure ShowXF;
+ procedure ShowXFCRC;
+ procedure ShowXFEXT;
+
+ protected
+ procedure Click; override;
+ procedure DoExtractDetails;
+ function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
+ function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
+ procedure ExtractString(ABufIndex: Integer; AUnicode: Boolean;
+ ACharCount: Integer; out AString: String; out ANumbytes: Integer); overload;
+ procedure ExtractString(ABufIndex: Integer; ALenBytes: Byte; AUnicode: Boolean;
+ out AString: String; out ANumBytes: Integer;
+ out ARichTextRuns: TRichTextFormattingRuns;
+ out ABufIndexOfFirstRichTextRun: LongWord;
+ IgnoreCompressedFlag: Boolean = false); overload;
+ procedure ExtractString(ABufIndex: Integer; ALenbytes: Byte; AUnicode: Boolean;
+ out AString: String; out ANumBytes: Integer;
+ IgnoreCompressedFlag: Boolean=False); overload;
+ procedure PopulateGrid;
+ procedure ShowInRow(var ARow: Integer; var AOffs: LongWord; ASize: Word;
+ AValue,ADescr: String; ADescrOnly: Boolean = false);
+ procedure ShowRowColData(var ABufIndex: LongWord);
+
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ procedure SetBIFFNodeData(AData: PBIFFNodeData; ABuffer: TBIFFBuffer;
+ AFormat: TsSpreadsheetFormat);
+
+ published
+ property TabOrder;
+ property OnDetails: TBIFFDetailsEvent read FOnDetails write FOnDetails;
+ property OnSelection;
+ end;
+
+implementation
+
+uses
+ StrUtils, Math, lazutf8,
+ fpsutils,
+ beBIFFUtils;
+
+const
+ ABS_REL: array[boolean] of string = ('abs', 'rel');
+
+constructor TBIFFGrid.Create(AOwner: TComponent);
+begin
+ inherited Create(AOwner);
+ ColCount := 4;
+ FixedCols := 0;
+ RowCount := 2;
+ Cells[0, 0] := 'Offset';
+ Cells[1, 0] := 'Size';
+ Cells[2, 0] := 'Value';
+ Cells[3, 0] := 'Description';
+ ColWidths[0] := 60;
+ ColWidths[1] := 60;
+ ColWidths[2] := 120;
+ ColWidths[3] := 350;
+ Options := Options
+ + [goThumbTracking, goColSizing, goTruncCellHints, goCellHints]
+ - [goVertLine, goSmoothScroll];
+ MouseWheelOption := mwGrid;
+ FDetails := TStringList.Create;
+ FPendingCharCount := -1;
+end;
+
+
+destructor TBIFFGrid.Destroy;
+begin
+ FDetails.Free;
+ inherited;
+end;
+
+
+procedure TBIFFGrid.Click;
+begin
+ inherited;
+ if (FBuffer <> nil) then
+ DoExtractDetails;
+end;
+
+
+procedure TBIFFGrid.DoExtractDetails;
+begin
+ if Assigned(FOnDetails) then begin
+ PopulateGrid;
+ FOnDetails(self, FDetails);
+ end;
+end;
+
+function TBIFFGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint
+ ): Boolean;
+begin
+ Result := inherited;
+ Click;
+end;
+
+function TBIFFGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint
+ ): Boolean;
+begin
+ Result := inherited;
+ Click;
+end;
+
+{ Reads a string character array starting at ABufIndex. The string is supposed
+ to have ACharCount character, but less characters are read if the string
+ extends across the max size of a record and is continued in the next CONTINUE
+ record.
+ The string is assumed to be a UTF16 string if AUnicode=true, otherwise it is
+ an ansi string. }
+procedure TBIFFGrid.ExtractString(ABufIndex: Integer; AUnicode: Boolean;
+ ACharCount: Integer; out AString: String; out ANumbytes: Integer);
+var
+ sa: AnsiString;
+ sw: WideString;
+ n: Integer;
+begin
+ if AUnicode then // uncompressed unicode --> 2 bytes per char
+ begin
+ if ABufIndex + ACharCount * SizeOf(WideChar) >= Length(FBuffer) then
+ begin
+ n := (Length(FBuffer) - ABufIndex) div SizeOf(WideChar);
+ FPendingCharCount := ACharCount - n; // number of chars to be read from subsequent CONTINUE record
+ end else
+ begin
+ n := ACharCount;
+ FPendingCharCount := 0;
+ end;
+ SetLength(sw, n);
+ ANumBytes := n * SizeOf(WideChar);
+ Move(FBuffer[ABufIndex], sw[1], ANumBytes);
+ AString := UTF8Encode(WideStringLEToN(sw));
+ end else
+ begin // ansi or compressed unicode
+ if ABufIndex + ACharCount >= Length(FBuffer) then
+ begin
+ n := Length(FBuffer) - ABufIndex;
+ FPendingCharCount := ACharCount - n; // number of chars in subsequent CONTINUE record
+ end else
+ begin
+ n := ACharCount;
+ FPendingCharCount := 0;
+ end;
+ SetLength(sa, n);
+ ANumBytes := n;
+ Move(FBuffer[ABufIndex], sa[1], ANumBytes);
+ AString := AnsiToUTF8(sa); // to do: use code page of file
+ end;
+end;
+
+procedure TBIFFGrid.ExtractString(ABufIndex: Integer; ALenBytes: Byte; AUnicode: Boolean;
+ out AString: String; out ANumBytes: Integer;
+ IgnoreCompressedFlag: Boolean = false);
+var
+ rtfRuns: TRichTextFormattingRuns;
+ rtfIndex: LongWord;
+begin
+ ExtractString(ABufIndex, ALenbytes, AUnicode, AString, ANumBytes,
+ rtfRuns, rtfIndex, IgnoreCompressedFlag);
+end;
+
+procedure TBIFFGrid.ExtractString(ABufIndex: Integer; ALenBytes: Byte; AUnicode: Boolean;
+ out AString: String; out ANumBytes: Integer;
+ out ARichTextRuns: TRichTextFormattingRuns;
+ out ABufIndexOfFirstRichTextRun: LongWord;
+ IgnoreCompressedFlag: Boolean = false);
+var
+ ls: Integer; // Character count of string
+ w: Word;
+ dw: DWord;
+ optn: Byte;
+ n: Integer; // Byte count in string character array
+ asianPhoneticBytes: DWord;
+ numRichRuns: Word;
+ offs: Integer;
+ rtfBufIndex: Int64;
+ rtfIndex: Integer;
+begin
+ ABufIndexOfFirstRichTextRun := LongWord(-1);
+ SetLength(ARichTextRuns, 0);
+
+ if Length(FBuffer) = 0 then begin
+ AString := '';
+ ANumBytes := 0;
+ exit;
+ end;
+ if ALenBytes = 1 then
+ ls := FBuffer[ABufIndex]
+ else begin
+ Move(FBuffer[ABufIndex], w, 2);
+ ls := WordLEToN(w);
+ end;
+ if AUnicode then begin
+ offs := ALenBytes;
+ optn := FBuffer[ABufIndex + ALenBytes];
+ inc(offs, 1);
+
+ if optn and $08 <> 0 then // rich text
+ begin
+ Move(FBuffer[ABufIndex + offs], w, 2);
+ numRichRuns := WordLEToN(w);
+ inc(offs, 2);
+ end else
+ numRichRuns := 0;
+ SetLength(ARichTextRuns, numRichRuns);
+
+ if optn and $04 <> 0 then // Asian phonetic
+ begin
+ Move(FBuffer[ABufIndex + offs], dw, 4);
+ AsianPhoneticBytes := DWordLEToN(dw);
+ inc(offs, 4);
+ end else
+ asianPhoneticBytes := 0;
+
+ if (optn and $01 = 0) and (not IgnoreCompressedFlag) then
+ // compressed --> 1 byte per character
+ ExtractString(ABufIndex + offs, false, ls, AString, n)
+ else
+ // non-compressed unicode
+ ExtractString(ABufIndex + offs, true, ls, AString, n);
+
+ ANumBytes := offs + n + numRichRuns * 4 + asianPhoneticBytes;
+
+ rtfIndex := 0;
+ rtfBufIndex := ABufIndex + offs + n;
+ ABufIndexOfFirstRichTextRun := rtfBufIndex;
+ while rtfIndex < numRichRuns do begin
+ Move(FBuffer[rtfBufIndex], w, 2);
+ ARichTextRuns[rtfIndex].FirstIndex := WordLEToN(w);
+ Move(FBuffer[rtfBufIndex+2], w, 2);
+ ARichTextRuns[rtfIndex].FontIndex := WordLEToN(w);
+ inc(rtfIndex);
+ inc(rtfBufIndex, 4);
+ end;
+ end else
+ begin
+ // ansi string
+ SetLength(ARichTextRuns, 0); // no rich text formatting for ansi strings
+ ExtractString(ABufIndex + ALenBytes, false, ls, AString, n);
+ ANumbytes := ALenBytes + n;
+ end;
+end;
+
+
+function TBIFFGrid.GetStringType: String;
+begin
+ case FFormat of
+ sfExcel2: Result := 'Byte';
+ sfExcel5: Result := 'Byte';
+ sfExcel8: Result := 'Unicode';
+ end;
+end;
+
+
+procedure TBIFFGrid.PopulateGrid;
+begin
+ FBufferIndex := 0;
+ FCurrRow := FixedRows;
+ FDetails.Clear;
+ case FRecType of
+ $0000, $0200:
+ ShowDimensions;
+ $0001, $0201:
+ ShowBlankCell;
+ $0002:
+ ShowInteger;
+ $0003, $0203:
+ ShowNumberCell;
+ $0004, $0204:
+ ShowLabelCell;
+ $0005, $0205:
+ ShowBoolCell;
+ $0006:
+ ShowFormula;
+ $0007, $0207:
+ ShowString;
+ $0008, $0208:
+ ShowRow;
+ $0009, $0209, $0409, $0809:
+ ShowBOF;
+ $000A:
+ ShowEOF;
+ $000C:
+ ShowCalcCount;
+ $000D:
+ ShowCalcMode;
+ $000E:
+ ShowPrecision;
+ $000F:
+ ShowRefMode;
+ $0010:
+ ShowDelta;
+ $0011:
+ ShowIteration;
+ $0012:
+ ShowProtect;
+ $0013:
+ ShowPassword;
+ $0014:
+ ShowHeader;
+ $0015:
+ ShowFooter;
+ $0016:
+ ShowExternCount;
+ $0017:
+ ShowExternSheet;
+ $0018, $0218:
+ ShowDefinedName;
+ $0019:
+ ShowWindowProtect;
+ $001C:
+ ShowNote;
+ $001D:
+ ShowSelection;
+ $001E, $041E:
+ ShowFormat;
+ $001F:
+ ShowFormatCount;
+ $0022:
+ ShowDateMode;
+ $0024:
+ ShowColWidth;
+ $0025, $0225:
+ ShowDefRowHeight;
+ $0026:
+ ShowLeftMargin;
+ $0027:
+ ShowRightMargin;
+ $0028:
+ ShowTopMargin;
+ $0029:
+ ShowBottomMargin;
+ $002A:
+ ShowPrintHeaders;
+ $002B:
+ ShowPrintGridLines;
+ $0031:
+ ShowFont;
+ $003C:
+ ShowContinue;
+ $003D:
+ ShowWindow1;
+ $003E, $023E:
+ ShowWindow2;
+ $0040:
+ ShowBackup;
+ $0041:
+ ShowPane;
+ $0042:
+ ShowCodePage;
+ $0043:
+ ShowXF;
+ $0044:
+ ShowIXFE;
+ $0045:
+ ShowFontColor;
+ $0055:
+ ShowDefColWidth;
+ $005B:
+ ShowFileSharing;
+ $005C:
+ ShowWriteAccess;
+ $005D:
+ ShowObj;
+ $005F:
+ ShowRecalc;
+ $007D:
+ ShowColInfo;
+ $0081:
+ ShowSheetPR;
+ $0085:
+ ShowSheet;
+ $0086:
+ ShowWriteProt;
+ $008C:
+ ShowCountry;
+ $008D:
+ ShowHideObj;
+ $0092:
+ ShowPalette;
+ $099:
+ ShowStandardWidth;
+ $00A1:
+ ShowPageSetup;
+ $00AB:
+ ShowGCW;
+ $00C1:
+ ShowMMS;
+ $009C:
+ ShowFnGroupCount;
+ $00BE:
+ ShowMulBlank;
+ $00BD:
+ ShowMulRK;
+ $00D6:
+ ShowRString;
+ $00D7:
+ ShowDBCell;
+ $00DA:
+ ShowBookBool;
+ $00E0:
+ ShowXF;
+ $00E1:
+ ShowInterfaceHdr;
+ $00E2:
+ ShowInterfaceEnd;
+ $00E5:
+ ShowMergedCells;
+ $00EC:
+ ShowMSODrawing;
+ $00FC:
+ ShowSST;
+ $00FD:
+ ShowLabelSSTCell;
+ $013D:
+ ShowTabID;
+ $0161:
+ ShowDSF;
+ $01AE:
+ ShowExternBook;
+ $01AF:
+ ShowProt4Rev;
+ $01B6:
+ ShowTXO;
+ $01B7:
+ ShowRefreshAll;
+ $01B8:
+ ShowHyperlink;
+ $01BC:
+ ShowProt4RevPass;
+ $01C0:
+ ShowExcel9File;
+ $027E:
+ ShowRK;
+ $0293:
+ ShowStyle;
+ $04BC:
+ ShowSharedFormula;
+ $0800:
+ ShowHyperlinkTooltip;
+ $087C:
+ ShowXFCRC;
+ $087D:
+ ShowXFEXT;
+ $0892:
+ ShowStyleExt;
+ $105C:
+ ShowClrtClient;
+ else
+ RowCount := 2;
+ Rows[1].Clear;
+ end;
+end;
+
+
+procedure TBIFFGrid.SetBIFFNodeData(AData: PBIFFNodeData;
+ ABuffer: TBIFFBuffer; AFormat: TsSpreadsheetFormat);
+begin
+ if AData = nil then
+ exit;
+ FFormat := AFormat;
+ FRecType := AData^.RecordID;
+ FInfo := AData^.Tag;
+ SetLength(FBuffer, Length(ABuffer));
+ if Length(FBuffer) > 0 then
+ Move(ABuffer[0], FBuffer[0], Length(FBuffer));
+ PopulateGrid;
+ if Assigned(FOnDetails) then FOnDetails(self, FDetails);
+end;
+
+
+procedure TBIFFGrid.ShowBackup;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Save backup copy of workbook:'#13);
+ if w = 0
+ then FDetails.Add('0 = no backup')
+ else FDetails.Add('1 = backup copy is saved when workbook is saved');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Save backup copy of workbook');
+end;
+
+
+procedure TBIFFGrid.ShowBlankCell;
+var
+ numBytes: Integer;
+ b: Byte = 0;
+ w: Word = 0;
+ dbl: Double;
+begin
+ RowCount := IfThen(FFormat = sfExcel2, FixedRows + 5, FixedRows + 3);
+ // Offset 0: Row & Offset 2: Column
+ ShowRowColData(FBufferIndex);
+
+ // Offset 4: Cell attributes (BIFF2) or XF record index (> BIFF2)
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add('Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add('Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b, b]),
+ 'Cell protection and XF index');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b, b]),
+ 'Indexes of format and font records');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add('Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add('Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add('Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add('Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+ end else
+ begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowBOF;
+var
+ numBytes: Integer;
+ w: Word;
+ s: String;
+begin
+ case FFormat of
+ sfExcel2: RowCount := FixedRows + 2;
+ { //Excel3 & 4 not supported by fpspreadsheet
+ sfExcel3, sfExcel4: RowCount := FixedRows + 3;
+ }
+ sfExcel5: RowCount := FixedRows + 4;
+ sfExcel8: RowCount := FixedRows + 6;
+ end;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('BIFF version:'#13);
+ case FRecType of
+ $0009,
+ $0209,
+ $0409: FDetails.Add('not used');
+ $0809: case FFormat of
+ sfExcel5: FDetails.Add('$0500 = BIFF5');
+ sfExcel8: FDetails.Add('$0600 = BIFF8');
+ end;
+ else case w of
+ $0000: FDetails.Add('$0000 = BIFF5');
+ $0200: FDetails.Add('$0200 = BIFF2');
+ $0300: FDetails.Add('$0300 = BIFF3');
+ $0400: FDetails.Add('$0400 = BIFF4');
+ $0500: FDetails.Add('$0500 = BIFF5');
+ $0600: FDetails.Add('$0600 = BIFF8');
+ end;
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'BIFF version');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ s := '$0010=Sheet, $0020=Chart, $0040=Macro sheet';
+ if FFormat > sfExcel2 then
+ s := '$0005=WB globals, $0006=VB module, ' + s + ', $0100=Workspace';
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Type of data:'#13);
+ FDetails.Add(Format('$%.4x = %s', [w, BofName(w)]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ Format('Type of data (%s)', [s]));
+
+ if FFormat > sfExcel2 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ { Excel3/4 not supported in fpSpreadsheet
+ if FFormat in [sfExcel3, sfExcel4] then
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'not used')
+ else}
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Build identifier (must not be zero)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Build year (must not be zero)');
+ end;
+ end;
+
+ if FFormat = sfExcel8 then begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'File history flags');
+
+ numBytes :=4;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Lowest Excel version that can read all records of this file');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowBookBool;
+var
+ numbytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Some properties assosciated with notebook:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit 0 = 0: External link values are saved.')
+ else FDetails.Add('Bit 0 = 1: External link values are NOT saved.');
+ FDetails.Add('Bit 1: to be ignored');
+ if w and $0004 = 0
+ then FDetails.Add('Bit 2 = 0: Workbook does not have a mail envelope')
+ else FDetails.Add('Bit 2 = 1: Workbook has a mail envelope');
+ if w and $0008 = 0
+ then FDetails.Add('Bit 3 = 0: Mail envelope is NOT visible.')
+ else FDetails.Add('Bit 3 = 1: Mail envelope is visible.');
+ if w and $0010 = 0
+ then FDetails.Add('Bit 4 = 0: Mail envelope has NOT been initialized.')
+ else FDetails.Add('Bit 4 = 1: Mail envelope has been initialized.');
+ case (w and $0060) shr 5 of
+ 0: FDetails.Add('Bits 5-6 (Update external links) = 0: Prompt user to update');
+ 1: FDetails.Add('Bits 5-6 (Update external linls) = 1: Do not update, and do not prompt user.');
+ 2: FDetails.Add('Bits 5-6 (Update external links) = 2: Silently update external links.');
+ end;
+ FDetails.Add('Bit 7: undefined, must be ignored');
+ if w and $0100 = 0
+ then FDetails.Add('Bit 8 = 0: Do not hide borders of tables that do not contain the active cell')
+ else FDetails.Add('Bit 8 = 1: Hide borders of tables that do not contain the active cell');
+ FDetails.Add('Bits 9-15: MUST BE zero, MUST be ignored');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Specifies some properties assosciated with a workbook');
+end;
+
+procedure TBIFFGrid.ShowBoolCell;
+var
+ numBytes: Integer;
+ w: Word;
+ b: Byte;
+begin
+ if FFormat = sfExcel2 then
+ RowCount := FixedRows + 7
+ else
+ RowCount := FixedRows + 5;
+
+ ShowRowColData(FBufferIndex);
+
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add('Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add('Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell protection and XF index');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Indexes of format and font records');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add('Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add('Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add('Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add('Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+ end else
+ begin // BIFF3 - BIFF 8
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+ end;
+
+ // boolean value
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes,
+ Format('%d (%s)', [b, Uppercase(BoolToStr(Boolean(b), true))]),
+ 'Boolean value (0=FALSE, 1=TRUE)'
+ );
+
+ // bool/error flag
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if b = 0 then
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '0 (boolean value)',
+ 'Boolean/Error value flag (0=boolean, 1=error value)')
+ else
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '1 (error value)',
+ 'Boolean/Error value flag (0=boolean, 1=error value)');
+end;
+
+procedure TBIFFGrid.ShowBottomMargin;
+var
+ numBytes: Integer;
+ dbl: Double;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Bottom page margin in inches (IEEE 754 floating-point value, 64-bit double precision)');
+end;
+
+
+procedure TBIFFGrid.ShowCalcCount;
+var
+ numBytes: Word;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Maximum number of iterations allowed in circular references');
+end;
+
+
+procedure TBIFFGrid.ShowCalcMode;
+var
+ numBytes: Word;
+ w: word;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if w = $FFFF then
+ s := '–1 = automatically except for multiple table operations'
+ else if w = 0 then
+ s := '0 = manually'
+ else if w = 1 then
+ s := '1 = automatically (default)';
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), s);
+end;
+
+
+procedure TBIFFGrid.ShowCellAddress;
+{ Note: The bitmask assignment to relative column/row is reversed in relation
+ to OpenOffice documentation in order to match with Excel files. }
+var
+ numBytes: Word;
+ b: Byte;
+ w: Word;
+ r,c: Integer;
+ s: String;
+begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes); // row --> w
+ r := WordLEToN(w);
+ if FFormat = sfExcel8 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex+2], w, numBytes); // column --w1
+ c := WordLEToN(w);
+ if FCurrRow = Row then begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('RowIndex = %d (%s)', [r, ABS_REL[c and $4000 <> 0]]));
+ end;
+ s := Format('%d ($%.4x)', [r, r]);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Row index');
+ if FCurrRow = Row then begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: ColIndex = %d (%s)', [c and $3FFF, ABS_REL[c and $8000 <> 0]]));
+ if c and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if c and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ s := Format('%d ($%.4x)', [c, c]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index');
+ end else
+ begin
+ numbytes := 1;
+ Move(FBuffer[FBufferIndex+2], b, numBytes);
+ c := b;
+ if FCurrRow = Row then begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: RowIndex = %d (%s)', [r and $3FFF, ABS_REL[r and $4000 <> 0]]));
+ if r and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if r and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ //s := Format('$%.4x (%d, %s)', [r, r and $3FFF, ABS_REL[r and $4000 <> 0]]);
+ s := Format('%d ($%.4x)', [r, r]);
+ ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Row index');
+ if FCurrRow = Row then begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('ColIndex = %d (%s)', [c, ABS_REL[r and $8000 <> 0]]));
+ end;
+ //s := Format('$%.2x (%d, %s)', [c, c, ABS_REL[r and $8000 <> 0]]);
+ s := Format('%d ($%.4x)', [c, c]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowCellAddressRange(AFormat: TsSpreadsheetFormat);
+{ Note: The bitmask assignment to relative column/row is reversed in relation
+ to OpenOffice documentation in order to match with Excel files.
+
+ The spreadsheet format is passed as a parameter because some BIFF8 records
+ used these fields in BIFF5 format. }
+var
+ numbytes: Word;
+ b: Byte;
+ w: Word;
+ r, c, r2, c2: Integer;
+ s: String;
+begin
+ if AFormat = sfExcel8 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ r := WordLEToN(w);
+ if FCurrRow = Row then begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('RowIndex = %d (%s)', [r, ABS_REL[c and $4000 <> 0]]));
+ end;
+ s := Format('%d ($%.4x)', [r, r]);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'First row index');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ r2 := WordLEToN(w);
+ if FCurrRow = Row then begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('RowIndex = %d (%s)', [r2, ABS_REL[c and $4000 <> 0]]));
+ end;
+ s := Format('%d ($%.4x)', [r2, r2]);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Last row index');
+
+ Move(FBuffer[FBufferIndex], w, numBytes); // column
+ c := WordLEToN(w);
+ Move(FBuffer[FBufferIndex+2], w, numBytes);
+ c2 := WordLEToN(w);
+
+ if FCurrRow = Row then begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: ColIndex = %d (%s)', [c and $3FFF, ABS_REL[c and $8000 <> 0]]));
+ if c and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if c and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ s := Format('%d ($%.4x)', [c, c]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'First column index');
+
+ if FCurrRow = Row then
+ begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: ColIndex = %d (%s)', [c2 and $3FFF, ABS_REL[c2 and $8000 <> 0]]));
+ if c2 and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if c2 and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ s := Format('%d ($%.4x)', [c2, c2]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Last column index');
+ end
+ else
+ begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ r := WordLEToN(w);
+ Move(FBuffer[FBufferIndex+2], w, numBytes);
+ r2 := WordLEToN(w);
+
+ numbytes := 1;
+ c := FBuffer[FBufferIndex+4];
+ c2 := FBuffer[FBufferIndex+5];
+
+ if FCurrRow = Row then
+ begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: RowIndex = %d (%s)', [r and $3FFF, ABS_REL[r and $4000 <> 0]]));
+ if r and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if r and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ s := Format('%d ($%.4x)', [r, r]);
+ ShowInRow(FCurrRow, FBufferIndex, 2, s, 'First row index');
+
+ if FCurrRow = Row then
+ begin
+ FDetails.Add('RowIndex information:'#13);
+ FDetails.Add(Format('Bits 0-13: RowIndex = %d (%s)', [r2 and $3FFF, ABS_REL[r2 and $4000 <> 0]]));
+ if r2 and $4000 = 0
+ then FDetails.Add('Bit 14=0: absolute column index')
+ else FDetails.Add('Bit 14=1: relative column index');
+ if r2 and $8000 = 0
+ then FDetails.Add('Bit 15=0: absolute row index')
+ else FDetails.Add('Bit 15=1: relative row index');
+ end;
+ s := Format('%d ($%.4x)', [r2, r2]);
+ ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Last row index');
+
+ if FCurrRow = Row then
+ begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('ColIndex = %d (%s)', [c, ABS_REL[r and $8000 <> 0]]));
+ end;
+ s := Format('%d ($%.4x)', [c, c]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'First column index');
+
+ if FCurrRow = Row then
+ begin
+ FDetails.Add('ColIndex information:'#13);
+ FDetails.Add(Format('ColIndex = %d (%s)', [c2, ABS_REL[r2 and $8000 <> 0]]));
+ end;
+ s := Format('%d ($%.4x)', [c2, c2]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Last column index');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowClrtClient;
+var
+ w: Word;
+ dw: DWord;
+ numbytes: Word;
+begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+
+ RowCount := FixedRows + w + 1;
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Number of colors (must be 3)');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]),
+ 'Foreground color (system window text color)');
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]),
+ 'Background color (system window color)');
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), '???');
+end;
+
+
+procedure TBIFFGrid.ShowCodePage;
+var
+ numBytes: Word;
+ w: Word;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ s := CodePageName(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Code page:'#13);
+ FDetails.Add(Format('$%.04x = %s', [w, s]));
+ end;
+ if s <> '' then s := 'Code page identifier (' + s + ')' else s := 'Code page identifier';
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), s);
+end;
+
+
+procedure TBIFFGrid.ShowColInfo;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ if FFormat = sfExcel2 then
+ exit;
+
+ RowCount := FixedRows + 5;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index of first column in range');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index of last column in range');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d (%f characters)', [w, w/256]),
+ 'Width of the columns in 1/256 of the width of the zero character, using default font (first FONT record in the file)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to XF record for default column formatting');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Column options:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Columns are NOT hidden')
+ else FDetails.Add('Bit $0001 = 1: Columns are hidden');
+ FDetails.Add(Format('Bits $0700 = %d: Outline level of the columns (0 = no outline)', [(w and $0700) shr 8]));
+ if w and $1000 = 0
+ then FDetails.Add('Bit $1000 = 0: Columns are NOT collapsed')
+ else FDetails.Add('Bit $1000 = 1: Columns are collapsed');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), 'Option flags');
+end;
+
+
+procedure TBIFFGrid.ShowColWidth;
+var
+ numBytes: Integer;
+ w: Word;
+ b: Byte;
+begin
+ if FFormat <> sfExcel2 then
+ exit;
+
+ RowCount := FixedRows + 3;
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Index of first column');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Index of last column');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Width of the columns in 1/256 of the width of the zero character, using default font (first FONT record in the file)');
+end;
+
+
+procedure TBIFFGrid.ShowContinue;
+var
+ numbytes: Integer;
+ s: String;
+ sa: ansistring;
+ sw: widestring;
+ ls: Integer;
+ i, j: Integer;
+ w: Word;
+ n: Integer;
+ run: Integer;
+ total2: Integer;
+ optn: Byte;
+ rtfRuns: TRichTextFormattingRuns;
+ rtfBufferIndex: LongWord;
+begin
+ case FInfo of
+ BIFFNODE_TXO_CONTINUE1:
+ begin
+ RowCount := FixedRows + 1;
+ numbytes := Length(FBuffer);
+ if FBuffer[FBufferIndex] = 0 then begin
+ ls := Length(FBuffer)-1;
+ SetLength(sa, ls);
+ Move(FBuffer[FBufferIndex+1], sa[1], ls);
+ s := AnsiToUTF8(sa);
+ end else
+ if FBuffer[FBufferIndex] = 1 then begin
+ ls := (Length(FBuffer) - 1) div SizeOf(WideChar);
+ SetLength(sw, ls);
+ Move(FBuffer[FBufferIndex+1], sw[1], ls*SizeOf(WideChar));
+ s := UTF8Encode(sw);
+ end else
+ s := 'ERROR!!!';
+ s := UTF8StringReplace(s, #$0A, '[/n]', [rfReplaceAll]);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Comment text');
+ end;
+
+ BIFFNODE_TXO_CONTINUE2:
+ begin
+ RowCount := FixedRows + 1000;
+ n := 0;
+ numBytes := 2;
+ run := 1;
+ while FBufferIndex < Length(FBuffer) - 4*SizeOf(Word) do begin
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), Format(
+ 'Run %d: Index of first character using this font (0-based)', [run]));
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToSTr(WordLEToN(w)),
+ Format('Run %d: Index to FONT record', [run]));
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInrow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Not used');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInrow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Not used');
+ inc(n);
+
+ inc(run);
+ end;
+
+ // lastRun
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInrow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Number of characters');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInrow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Not used');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInrow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Not used');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Not used');
+ inc(n);
+
+ RowCount := FixedRows + n;
+ end;
+
+ BIFFNODE_SST_CONTINUE:
+ begin // Continues an SST record
+ if FPendingCharCount = -1 then
+ begin
+ RowCount := FixedRows + 1;
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Please select preceding SST record first.');
+ exit;
+ end;
+
+ RowCount := FixedRows + FTotalSST;
+ n := 0;
+
+ optn := FBuffer[FBufferIndex];
+ if optn and $01 = $01 then // wide characters
+ ExtractString(FBufferIndex+1, true, FPendingCharCount, s, numBytes)
+ else
+ ExtractString(FBufferIndex+1, false, FPendingCharCount, s, numbytes);
+ FPendingCharCount := -1;
+ inc(numbytes, 1);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, Format('Shared String #%d (rest)', [FCounterSST]));
+ inc(n);
+
+ FPendingCharCount := -1;
+
+ for i:=FCounterSST+1 to FTotalSST do
+ begin
+ FCounterSST := i;
+ ExtractString(FBufferIndex, 2, true, s, numBytes, rtfRuns, rtfBufferIndex);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, Format('Shared string #%d', [i]));
+ inc(n);
+ if Length(rtfRuns) > 0 then begin
+ numBytes := 2;
+ for j:=0 to High(rtfRuns) do
+ begin
+ ShowInRow(FCurrRow, rtfBufferIndex, 2, IntToStr(rtfRuns[j].FirstIndex),
+ Format('Rich-Text formatting run #%d, index of first character', [j]));
+ ShowInRow(FCurrRow, rtfBufferIndex, 2, IntToStr(rtfRuns[j].FontIndex),
+ Format('Rich-Text formatting run #%d, font index', [j]));
+ inc(n, 2);
+ end;
+ end;
+ if FPendingCharCount > 0 then
+ begin
+ FInfo := BIFFNODE_SST_CONTINUE;
+ break;
+ end;
+ end;
+ RowCount := FixedRows + n;
+ if FPendingCharCount = 0 then
+ FPendingCharCount := -1;
+ end;
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowCountry;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 2;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Windows country identifier for UI language of Excel');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Windows country identifier of system regional settings');
+end;
+
+
+procedure TBIFFGrid.ShowDateMode;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ '0 = Base date is 1899-Dec-31, 1 = Base date is 1904-Jan-01');
+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;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Column width in characters, using the width of the zero character from default '+
+ 'font (first FONT record in the file) + some extra space.');
+end;
+
+
+procedure TBIFFGrid.ShowDefinedName;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ isFuncMacro: Boolean;
+ lenName: Word;
+ ansistr: AnsiString;
+ widestr: WideString;
+ s: String;
+ macro: Boolean;
+ formulaSize: Word;
+ firstTokenBufIdx: Integer;
+ token: Byte;
+ r,c, r2,c2: Integer;
+ builtinName: Boolean;
+begin
+ BeginUpdate;
+ RowCount := FixedRows + 1000;
+ // Brute force simplification because of unknown row count at this point
+ // Will be reduced at the end.
+
+ builtinName := false;
+ if FFormat = sfExcel2 then
+ begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ isFuncMacro := b and $02 <> 0;
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if b and $02 = 0 then
+ FDetails.Add(' Bit $02 = 0: NO function macro or command macro')
+ else
+ FDetails.Add('* Bit $02 = 1: Function macro or command macro');
+ if b and $04 = 0 then
+ FDetails.Add(' Bit $04 = 0: NO Complex function (array formula or user defined)')
+ else
+ FDetails.Add('* Bit $04 = 1: Complex function (array formula or user defined)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Option flags');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if isFuncMacro then
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ '$01 = Function macro, $02 = Command macro')
+ else
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'unknown');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Keyboard shortcut (only for command macro names)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Length of the name (character count)');
+ lenName := b;
+
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(b),
+ 'Size of the formula data');
+ formulaSize := b;
+ end
+ else
+ begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ macro := (w and $0008 <> 0);
+ builtinName := (w and $0020 <> 0);
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit $0001 (flag name "hidden") = 0: Visible')
+ else FDetails.Add('* Bit $0001 (flag name "hidden")= 1: Hidden');
+ if w and $0002 = 0
+ then FDetails.Add(' Bit §0002 (flag name "func") = 0: Command macro')
+ else FDetails.Add('* Bit $0002 (flag name "func") = 1: Function macro');
+ if w and $0004 = 0
+ then FDetails.Add(' Bit $0004 (flag name "vbasic") = 0: Sheet macro')
+ else FDetails.Add('* Bit $0004 (flag name "vbasic") = 1: Visual basic macro');
+ if w and $0008 = 0
+ then FDetails.Add(' Bit $0008 (flag name "macro") = 0: Standard name')
+ else FDetails.Add('* Bit $0008 (flag name "macro") = 1: Macro name');
+ if w and $0010 = 0
+ then FDetails.Add(' Bit $0010 (flag name "complex") = 0: Simple formula')
+ else FDetails.Add('* Bit $0010 (flag name "complex") = 1: Complex formula (array formula or user defined)');
+ if w and $0020 = 0
+ then FDetails.Add(' Bit $0020 (flag name "builtin") = 0: User-defined name')
+ else FDetails.Add('* Bit $0020 (flag name "builtin") = 1: Built-in name');
+ case (w and $0FC0) shr 6 of
+ 0: if macro then
+ FDetails.Add(' Bit $0FC0 = 0: --- forbidden value, must be > 0 ---')
+ else
+ FDetails.Add(' Bit $0FC0 (flag name "funcgroup") = 0: not used (requires "macro" = 1)');
+ 1: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 1: financial');
+ 2: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 2: date & time');
+ 3: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 3: math & trig');
+ 4: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 4: statistical');
+ 5: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 5: lookup & reference');
+ 6: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 6: database');
+ 7: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 7: text');
+ 8: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 8: logical');
+ 9: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 9: information');
+ 10: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 10: commands');
+ 11: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 11: customizing');
+ 12: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 12: macro control');
+ 13: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 13: dde/external');
+ 14: FDetails.Add('* Bit $0FC0 (flag name "funcgroup") = 14: user defined');
+ end;
+ if w and $1000 = 0
+ then FDetails.Add(' Bit $1000 (flag name "binary") = 0: formula definition')
+ else FDetails.add('* Bit $1000 (flag name "binary") = 1: binary data (BIFF5-BIFF8)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Option flags');
+
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInrow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b, b]),
+ 'Keyboard shortcurt (only for command macro names)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ 'Length of the name (character count)');
+ lenName := b;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Size of the formula data');
+ formulaSize := w;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if FFormat = sfExcel5 then
+ ShowInRow(FCurrRow, FBufferIndex, NumBytes, IntToStr(w),
+ '0 = Global name, otherwise index to EXTERNSHEET record (one-based)')
+ else
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'not used');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, NumBytes, IntToStr(w),
+ '0 = Global name, otherwise index to sheet (one-based)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, nuMbytes, IntToStr(b),
+ 'Length of the menu text (character count)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, nuMbytes, IntToStr(b),
+ 'Length of the description text (character count)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, nuMbytes, IntToStr(b),
+ 'Length of the help topic text (character count)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, nuMbytes, IntToStr(b),
+ 'Length of the status bar text (character count)');
+
+ if FFormat = sfExcel5 then begin
+ numBytes := lenName * sizeOf(ansiChar);
+ SetLength(ansiStr, lenName);
+ Move(FBuffer[FBufferIndex], ansiStr[1], numbytes);
+ s := AnsiToUTF8(ansistr);
+ end else
+ begin
+ if (FBuffer[FBufferIndex] and $01 = 0) //and (not IgnoreCompressedFlag)
+ then begin // compressed --> 1 byte per character
+ SetLength(ansiStr, lenName);
+ numbytes := lenName*SizeOf(ansiChar) + 1;
+ Move(FBuffer[FBufferIndex + 1], ansiStr[1], lenName*SizeOf(AnsiChar));
+ s := AnsiToUTF8(ansiStr);
+ end else begin
+ SetLength(wideStr, lenName);
+ numBytes := lenName*SizeOf(WideChar) + 1;
+ Move(FBuffer[FBufferIndex + 1], wideStr[1], lenName*SizeOf(WideChar));
+ s := UTF8Encode(WideStringLEToN(wideStr));
+ end;
+ end;
+ if builtinName and (Length(s) = 1) then begin
+ s := Format('%s ($%x --> ', [s, ord(s[1])]);
+ case ord(s[1]) of
+ 0: s := s + 'Consolidate_Area)';
+ 1: s := s + 'Auto_Open)';
+ 2: s := s + 'Auto_Close)';
+ 3: s := s + 'Extract)';
+ 4: s := s + 'Database)';
+ 5: s := s + 'Citeria)';
+ 6: s := s + 'Print_Area)';
+ 7: s := s + 'Print_Titles)';
+ 8: s := s + 'Recorder)';
+ 9: s := s + 'Data_Form)';
+ 10: s := s + 'Auto_Activate)';
+ 11: s := s + 'Auto_Deactivate)';
+ 12: s := s + 'Sheet_Title)';
+ 13: s := s + '_FilterDatabase)';
+ else s := s + 'unknown meaning)';
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Name (Unicode string without length field)');
+ end;
+
+ firstTokenBufIdx := FBufferIndex;
+ while FBufferIndex < firstTokenBufIdx + formulaSize do begin
+ token := FBuffer[FBufferIndex];
+ numBytes := 1;
+ case token of
+ $10:
+ begin
+ numBytes := 1;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tList (List operator)');
+ end;
+
+ $29, $39, $49:
+ begin
+ case token of
+ $29: s := 'Token tMemFuncR';
+ $39: s := 'Token tMemFuncV';
+ $49: s := 'Token tMemFuncV';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), s);
+ if FFormat = sfExcel2 then
+ begin
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ w := b;
+ end else
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Size of following subexpression (ends after offset ' + IntToStr(FBufferIndex+w-1+numbytes) + ')');
+ end;
+
+ $3A, $3B, $5A, $5B, $7A, $7B:
+ begin
+ case token of
+ $3A: s := 'Token tRef3dR for "3D or external reference to a cell" (R = Reference)';
+ $5A: s := 'Token tRef3dV for "3D or external reference to a cell" (V = Value)';
+ $7A: s := 'Token tRef3dA for "3D or external reference to a cell" (A = Area)';
+ $3B: s := 'Token tArea3dR for "3D or external reference to a cell range" (R = Reference)';
+ $5B: s := 'Token tArea3dV for "3D or external reference to a cell range" (V = Value)';
+ $7B: s := 'Token tArea3dA for "3D or external reference to a cell range" (A = Area)';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), s);
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if FFormat = sfExcel5 then begin
+ if w and $8000 <> 0 then begin // negative value --> 3D reference
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(SmallInt(w)),
+ 'negative --> 3D reference, 1-based index to EXTERNSHEET record = ' + IntToStr(-SmallInt(w)));
+ numBytes := 8;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '', 'Not used');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Zero-based index to first referenced sheet ($FFFF = deleted sheet)');
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Zero-based index to last referenced sheet ($FFFF = deleted sheet)');
+ end else
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'External reference, 1-based index to EXTERNSHEET record');
+ numBytes := 12;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '', 'Not used');
+ end;
+ end else
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Index to REF entry in EXTERNSHEET record');
+
+ if token in [$3A, $5A, $7A] then
+ ShowCellAddress // Cell address
+ else
+ ShowCellAddressRange(FFormat); // Cell range
+ end;
+
+ else
+ numBytes := 1;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ '(unknown token)');
+ end; // case
+ end; // while
+
+ RowCount := FCurrRow;
+ EndUpdate(true);
+end;
+
+procedure TBIFFGrid.ShowDefRowHeight;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + IfThen(FFormat = sfExcel2, 1, 2);
+
+ if FFormat = sfExcel2 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Default height for unused rows:'#13);
+ FDetails.Add(Format(
+ 'Bits $7FFF = %d: Default height for unused rows, in twips = 1/20 of a point',
+ [w and $7FFF]));
+ if w and $8000 = 0 then
+ FDetails.Add('Bit $8000 = 0: Row height changed manually')
+ else
+ FDetails.Add('Bit $8000 = 1: Row height not changed manually');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Default height for unused rows, in twips = 1/20 of a point');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Row height and default font height do match')
+ else FDetails.Add('Bit $0001 = 1: Row height and default font height do not match');
+ if w and $0002 = 0
+ then FDetails.Add('Bit $0002 = 0: Row is visible')
+ else FDetails.Add('Bit $0002 = 1: Row is hidden');
+ if w and $0004 = 0
+ then FDetails.Add('Bit $0004 = 0: No additional space above the row')
+ else FDetails.Add('Bit $0004 = 1: Additional space above the row');
+ if w and $0008 = 0
+ then FDetails.Add('Bit $0008 = 0: No additional space below the row')
+ else FDetails.Add('Bit $0008 = 1: Additional space below the row');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [WordLEToN(w)]),
+ 'Option flags');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Default height for unused rows, in twips = 1/20 of a point');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowDelta;
+var
+ numBytes: Integer;
+ dbl: Double;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Maximum change in iteration (IEEE 754 floating-point value, 64-bit double precision)');
+end;
+
+
+procedure TBIFFGrid.ShowDimensions;
+var
+ numBytes: Integer;
+ dw: DWord;
+ w: Word;
+begin
+ RowCount := FixedRows + IfThen(FFormat = sfExcel2, 4, 5);
+
+ if FFormat = sfExcel8 then begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(DWordLEToN(dw)),
+ 'Index to first used row');
+
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(DWordLEToN(dw)),
+ 'Index to last used row, increased by 1');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to first used row');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to last used row, increased by 1');
+ end;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to first used column');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to last used column, increased by 1');
+
+ if FFormat <> sfExcel2 then begin
+ numBytes := 2;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '',
+ '(not used)');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowDSF;
+var
+ w: Word;
+ numbytes: Integer;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), 'Reserved, MUST be ignored');
+end;
+
+
+procedure TBIFFGrid.ShowEOF;
+begin
+ RowCount := FixedRows + 1;
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', '(no content)');
+end;
+
+
+procedure TBIFFGrid.ShowExcel9File;
+begin
+ RowCount := FixedRows + 1;
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Optional and unused');
+end;
+
+
+procedure TBIFFGrid.ShowExternBook;
+var
+ numBytes: Integer;
+ w: Word;
+ wideStr: WideString;
+ ansiStr: AnsiString;
+ s: String;
+ i, n: Integer;
+ b: Byte;
+ rtfRuns: TRichTextFormattingRuns;
+begin
+ BeginUpdate;
+ RowCount := FixedRows + 1000;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ n := WordLEToN(w);
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(n),
+ 'Number of sheet names / number of sheets');
+
+ if Length(FBuffer) - FBufferIndex = 2 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ SetLength(ansiStr, 1);
+ ansiStr[1] := char((w and $FF00) shr 8);
+ s := Format('%s (string bytes <#%.2x> <#%.2x>)', [ansistr, w and $00FF, (w and $FF00) shr 8]);
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ '(relict of BIFF5)');
+ end else begin
+ ExtractString(FBufferIndex, 2, true, s, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Encoded URL without sheet name:'#13);
+ case s[1] of
+ #0: FDetails.Add('First character = #00: Reference relative to current sheet');
+ #1: FDetails.Add('First character = #01: Encoded URL follows');
+ #2: if FFormat = sfExcel8 then
+ FDetails.Add('First character = #02: Reference to a sheet in own document; sheet name follows')
+ else
+ FDetails.Add('First character = #02: Reference to the corrent sheet (nothing will follow)');
+ #3: if FFormat = sfExcel5 then
+ FDetails.Add('First character = #03: Reference to a sheet in own document; sheet name follows')
+ else
+ FDetails.Add('First character = #03: not used');
+ #4: if FFormat = sfExcel5 then
+ FDetails.ADd('First character = #03: Reference to the own workbook, sheet is unspecified (nothing will follow)')
+ else
+ FDetails.Add('First character = #03: not used');
+ end;
+ end;
+ if s[1] in [#0, #1, #2, #3, #4] then Delete(s, 1, 1);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ 'Encoded URL without sheet name (Unicode string, 16-bit string length)');
+
+ for i:=0 to n-1 do begin
+ ExtractString(FBufferIndex, 2, true, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ 'Sheet name (Unicode string with 16-bit string length)');
+ end;
+ end;
+
+ RowCount := FCurrRow;
+ EndUpdate(true);
+end;
+
+
+procedure TBIFFGrid.ShowExternCount;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Number of following EXTERNSHEET records');
+end;
+
+
+procedure TBIFFGrid.ShowExternSheet;
+var
+ numBytes: Integer;
+ w: Word;
+ s: String;
+ nREF: Integer;
+ i: Integer;
+ len: Byte;
+ ansiStr: AnsiString;
+begin
+ if FFormat <= sfExcel5 then begin
+ RowCount := FixedRows + 1;
+ len := FBuffer[0];
+ if FBuffer[1] = $03 then inc(len);
+ numBytes := len*SizeOf(AnsiChar) + 1;
+ SetLength(ansiStr, len);
+ Move(FBuffer[1], ansiStr[1], len*SizeOf(AnsiChar));
+ s := AnsiToUTF8(ansiStr);
+ if FCurrRow = Row then begin
+ FDetails.Add('Encoded document and sheet name:'#13);
+ if s[1] = #03 then begin
+ FDetails.Add('First character = $03: EXTERNSHEET stores a reference to one of the own sheets');
+ FDetails.Add('Document name: ' + Copy(s, 2, Length(s)));
+ end else
+ if (Length(s) = 1) and (s[1] = ':') then begin
+ FDetails.Add('Special EXTERNSHEET record for an add-in function. EXTERNName record with the name of the function follows.');
+ end else
+ FDetails.Add('Document name: ' + s);
+ end;
+ if s[1] = #03 then begin
+ Delete(s, 1, 1);
+ s := '<#03>' + s;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ 'Encoded document and sheet name (Byte string, 8-bit string length)');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ nREF := WordLEToN(w);
+
+ RowCount := FixedRows + 1 + nREF*3;
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(nREF),
+ 'Number of following REF structures');
+
+ for i:=1 to nREF do begin
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ Format('REF #%d: Index to EXTERNBOOK record', [i]));
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ Format('REF #%d: Index to first sheet in EXTERNBOOK sheet list', [i]));
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ Format('REF #%d: Index to last sheet in EXTERNBOOK sheet list', [i]));
+ end;
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowFileSharing;
+var
+ numbytes: Integer;
+ w: Word;
+ s: String;
+begin
+ RowCount := FixedRows + 3;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Recommend read-only state when loading the file:'#13);
+ if w = 0 then FDetails.Add('0 = no') else FDetails.Add('1 = yes');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Recommend read-only state when loading the file');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Hash value calculated from the read-only password');
+
+ ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8,
+ s, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'User name of the file creator' + IfThen(FFormat = sfExcel8,
+ ' (Unicode string, 16-bit string length)',
+ ' (byte string, 8-bit string length)'
+ ));
+end;
+
+
+procedure TBIFFGrid.ShowFnGroupCount;
+var
+ numbytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Number of built-in function categories:'#13);
+ case w of
+ $000E:
+ FDetails.Add(
+ 'There are 14 built-in function categories in the workbook.'#13+
+ 'This implies that the file was last saved by a specific version of the application.'#13+
+ 'The following 9 built-in function categories are visible to the end-user:'#13+
+ ' Financial'#13+
+ ' Date & Time'#13+
+ ' Math & Trig'#13+
+ ' Statistical'#13+
+ ' Lookup & Reference'#13+
+ ' Database'#13+
+ ' Text'#13+
+ ' Logical'#13+
+ ' Information'#13+
+ 'The following 5 built-in function categories are not visible to the end-user:'#13+
+ ' UserDefined'#13+
+ ' Commands'#13+
+ ' Customize'#13+
+ ' MacroControl'#13+
+ ' DDEExternal'
+ );
+ $0010:
+ FDetails.Add(
+ 'There are 16 built-in function categories in the workbook.'#13+
+ 'This implies that the file was last saved by a specific version of the application'#13+
+ 'The following 11 built-in function categories are visible to the end-user:'#13+
+ ' Financial'#13+
+ ' Date & time'#13+
+ ' Math & Trig'#13+
+ ' Statistical'#13+
+ ' Lookup & Reference'+
+ ' Database'#13+
+ ' Text'#13+
+ ' Logical'#13+
+ ' Information'#13+
+ ' Engineering'#13+
+ ' Cube'#13+
+ 'The following 5 built-in function categories are not visible to the end-user:'#13+
+ ' UserDefined'#13+
+ ' Commands'#13+
+ ' Customize'#13+
+ ' MacroControl'#13+
+ ' DDEExternal'
+ );
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Number of built-in function categories');
+end;
+
+
+procedure TBIFFGrid.ShowFont;
+var
+ numbytes: Integer;
+ w: Word;
+ b: Byte;
+ s: String;
+begin
+ RowCount := IfThen(FFormat = sfExcel2, 3, 10) + FixedRows;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d (= %.1gpt)', [w, w/20]),
+ 'Font height in twips (=1/20 point)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit $0001 = 0: not bold')
+ else FDetails.Add('x Bit $0001 = 1: bold (redundant in BIFF5-BIFF8)');
+ if w and $0002 = 0
+ then FDetails.Add(' Bit $0002 = 0: not italic')
+ else FDetails.Add('x Bit $0002 = 1: italic');
+ if w and $0004 = 0
+ then FDetails.Add(' Bit $0004 = 0: not underlined')
+ else FDetails.Add('x Bit $0004 = 1: underlined (redundant in BIFF5-BIFF8)');
+ if w and $0008 = 0
+ then FDetails.Add(' Bit $0008 = 0: not struck out')
+ else FDetails.Add('x Bit $0008 = 1: struck out');
+ if w and $0010 = 0
+ then FDetails.Add(' Bit $0010 = 0: not outlined')
+ else FDetails.Add('x Bit $0010 = 1: outlined');
+ if w and $0020 = 0
+ then FDetails.Add(' Bit $0020 = 0: not shadowed')
+ else FDetails.Add('x Bit $0020 = 1: shadowed');
+ if w and $0040 = 0
+ then FDetails.Add(' Bit $0040 = 0: not condensed')
+ else FDetails.Add('x Bit $0040 = 1: condensed');
+ if w and $0080 = 0
+ then FDetails.Add(' Bit $0080 = 0: not extended')
+ else FDetails.Add('x Bit $0080 = 1: extended');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Option flags');
+
+ if FFormat <> sfExcel2 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Color index');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w,w]),
+ 'Font weight (400=normal, 700=bold)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Escapement:'#13);
+ case w of
+ 0: FDetails.Add('0 = none');
+ 1: FDetails.Add('1 = superscript');
+ 2: FDetails.Add('2 = subscript');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Escapement ($00=none, $01=superscript, $02=subscript)');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Underline type:'#13);
+ case b of
+ $00: FDetails.Add('$00 = no underline');
+ $01: FDetails.Add('$01 = single underline');
+ $02: FDetails.Add('$02 = double underline');
+ $21: FDetails.Add('$21 = single accounting');
+ $22: FDetails.Add('$22 = double accounting');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Underline type ($00=none, $01=single, $02=double, ...)');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Font family:'#13);
+ case b of
+ $00: FDetails.Add('$00 = None (unknown or don''t care)');
+ $01: FDetails.Add('$01 = Roman (variable width, serifed)');
+ $02: FDetails.Add('$02 = Swiss (variable width, sans-serifed)');
+ $03: FDetails.Add('$03 = Modern (fixed width, serifed or sans-serifed)');
+ $04: FDetails.Add('$04 = Script (cursive)');
+ $05: FDetails.Add('$05 = Decorative (specialised, for example Old English, Fraktur)');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%.2x', [b]),
+ 'Font family');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ case b of
+ $00: s := 'ANSI Latin';
+ $01: s := 'System default';
+ $02: s := 'Symbol';
+ $4D: s := 'Apple Roman';
+ $80: s := 'ANSI Japanese Shift-JIS';
+ $81: s := 'ANSI Korean (Hangul)';
+ $82: s := 'ANSI Korean (Johab)';
+ $86: s := 'ANSI Chinese Simplified GBK';
+ $88: s := 'ANSI Chinese Traditional BIG5';
+ $A1: s := 'ANSI Greek';
+ $A2: s := 'ANSI Turkish';
+ $A3: s := 'ANSI Vietnamese';
+ $B1: s := 'ANSI Hebrew';
+ $B2: s := 'ANSI Arabic';
+ $BA: s := 'ANSI Baltic';
+ $CC: s := 'ANSI Cyrillic';
+ $DE: s := 'ANSI Thai';
+ $EE: s := 'ANSI Latin II (Central European)'; // East Europe in MS docs!
+ $FF: s := 'OEM Latin I';
+ else s := '';
+ end;
+ if s <> '' then s := Format('$%.2x: %s', [b, s]) else s := Format('$%.2x', [b]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ 'Character set');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Not used');
+ end;
+
+ ExtractString(FBufferIndex, 1, FFormat=sfExcel8, s, numbytes);
+ if FFormat = sfExcel8 then
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Font name (unicode string, 8-bit string length)')
+ else
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Font name (byte string, 8-bit string length)');
+end;
+
+
+procedure TBIFFGrid.ShowFontColor;
+var
+ numBytes: Integer;
+ w: Word;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ NumBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ case w of
+ $0000: s := 'EGA Black (rgb = $000000)';
+ $0001: s := 'EGA White (rgb = $FFFFFF)';
+ $0002: s := 'EGA Red (rgb = $0000FF)';
+ $0003: s := 'EGA Green (rgb = $00FF00)';
+ $0004: s := 'EGA Blue (rgb = $FF0000)';
+ $0005: s := 'EGA Yellow (rgb = $00FFFF)';
+ $0006: s := 'EGA Magenta (rgb = $FF00FF)';
+ $0007: s := 'EGA Cyan (rgb = $FFFF00)';
+ $7FFF: s := 'Automatic (system window text colour)';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.04x)', [w, w]),
+ Format('Font color index into preceding FONT record (%s)', [s]));
+end;
+
+procedure TBIFFGrid.ShowFooter;
+var
+ numbytes: Integer;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ if Length(FBuffer) = 0 then
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', '(empty record)')
+ else
+ begin
+ ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8,
+ s, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Page footer string' + IfThen(FFormat = sfExcel8,
+ ' (Unicode string, 16-bit string length)',
+ ' (byte string, 8-bit string length)'
+ ));
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowFormat;
+var
+ numBytes: Integer;
+ w: word;
+ b: Byte;
+ s: String;
+begin
+ RowCount := IfThen(FFormat = sfExcel2, FixedRows + 1, FixedRows + 2);
+ if FFormat <> sfExcel2 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'FormatIndex used in other records');
+ end;
+ b := IfThen(FFormat=sfExcel8, 2, 1);
+ ExtractString(FBufferIndex, b, (FFormat=sfExcel8), s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ Format('Number format string (%s string, %d-bit string length)', [GetStringType, b*8]));
+end;
+
+
+procedure TBIFFGrid.ShowFormatCount;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ if FFormat = sfExcel2 then begin
+ RowCount := 1 + FixedRows;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Number of FORMAT records');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowFormula;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ q: QWord;
+ dbl: double absolute q;
+ bytearr: array[0..7] of byte absolute q;
+ wordarr: array[0..3] of word absolute q;
+// s: String;
+ tokenBytes: Integer;
+// firstTokenBufIdx: Integer;
+// token: Byte;
+ r,c, r2,c2: Integer;
+begin
+ BeginUpdate;
+ RowCount := FixedRows + 1000;
+ // Brute force simplification because of unknown row count at this point
+ // Will be reduced at the end.
+
+ // Offset 0 = Row, Offset 2 = Column
+ ShowRowColData(FBufferIndex);
+ // Offset 4 = Cell attributes (BIFF2) or XF ecord index (> BIFF2)
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('x Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add(' Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('x Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add(' Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('x Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell protection and XF index');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Indexes of format and font records');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add('Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add('Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add('Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add('Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+ end;
+
+ // Offset 6: Result of formula
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], q, numBytes);
+ if wordarr[3] <> $FFFF then begin
+ if FCurrRow = Row then begin
+ FDetails.Add('Formula result:'#13);
+ FDetails.Add(Format('Bytes 0-7: $%.15x --> IEEE 764 floating-point value, 64-bit double precision'#13+
+ ' = %g', [q, dbl]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Result of formula (IEEE 764 floating-point value, 64-bit double precision)');
+ end else begin
+ case bytearr[0] of
+ 0: begin // String result
+ if FCurrRow = Row then begin
+ FDetails.Add('Formula result:'#13);
+ FDetails.Add('Byte 0 = 0 --> Result is string, follows in STRING record');
+ FDetails.Add('Byte 1-5: Not used');
+ FDetails.Add('Byte 6&7: $FFFF --> no floating point number');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]),
+ 'Result is a string, follows in STRING record');
+ end;
+ 1: begin // BOOL result
+ if FCurrRow = Row then begin
+ FDetails.Add('Formula result:'#13);
+ FDetails.Add('Byte 0 = 1 --> Result is BOOLEAN');
+ FDetails.Add('Byte 1: Not used');
+ if bytearr[2] = 0
+ then FDetails.Add('Byte 2 = 0 --> FALSE')
+ else FDetails.Add('Byte 2 = 1 --> TRUE');
+ FDetails.Add('Bytes 3-5: Not used');
+ FDetails.Add('Bytes 6&7: $FFFF --> no floating point number');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]),
+ 'Result is BOOLEAN');
+ end;
+ 2: begin // ERROR result
+ if FCurrRow = Row then begin
+ FDetails.Add('Formula result:'#13);
+ FDetails.Add('Byte 0 = 2 --> Result is an ERROR value');
+ FDetails.Add('Byte 1: Not used');
+ case bytearr[2] of
+ $00: FDetails.Add('Byte 2 = $00 --> #NULL! Intersection of two cell ranges is empty');
+ $07: FDetails.Add('Byte 2 = $07 --> #DIV/0! Division by zero');
+ $0F: FDetails.Add('Byte 2 = $0F --> #VALUE! Wrong type of operand');
+ $17: FDetails.Add('Byte 2 = $17 --> #REF! Illegal or deleted cell reference');
+ $1D: FDetails.Add('Byte 2 = $1D --> #NAME? Wrong function or range name');
+ $24: FDetails.Add('Byte 2 = $24 --> #NUM! Value range overflow');
+ $2A: FDetails.Add('Byte 2 = $2A --> #N/A Argument or function not available');
+ end;
+ FDetails.Add('Bytes 6&7: $FFFF --> no floating point number');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]),
+ 'Result is an ERROR value');
+ end;
+ 3: begin // EMPTY cell
+ if FCurrRow = Row then begin
+ FDetails.Add('Formula result:'#13);
+ FDetails.Add('Byte 0 = 3 --> Result is an empty cell, for example an empty string');
+ FDetails.Add('Byte 1-5: Not used');
+ FDetails.Add('Bytes 6&7: $FFFF --> no floating point number');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]),
+ 'Result is an EMPTY cell (empty string)');
+ end;
+ end;
+ end;
+
+ // Option flags
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ case b of
+ 0: FDetails.Add('0 = Do not recalculate');
+ 1: FDetails.Add('1 = Recalculate always');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), 'Option flags');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Do not recalculate')
+ else FDetails.Add('Bit $0001 = 1: Recalculate always');
+ FDetails.Add('Bit $0002: Reserved - MUST be zero, MUST be ignored');
+ if w and $0004 = 0
+ then FDetails.Add('Bit $0004 = 0: Cell does NOT have a fill alignment or a center-across-selection alignment.')
+ else FDetails.Add('Bit $0004 = 1: Cell has either a fill alignment or a center-across-selection alignment.');
+ if w and $0008 = 0
+ then FDetails.Add('Bit $0008 = 0: Formula is NOT part of a shared formula')
+ else FDetails.Add('Bit $0008 = 1: Formula is part of a shared formula');
+ FDetails.Add('Bit $0010: Reserved - MUST be zero, MUST be ignored');
+ if w and $0020 = 0
+ then FDetails.Add('Bit $0020 = 0: Formula is NOT excluded from formula error checking')
+ else FDetails.Add('Bit $0020 = 1: Formula is excluded from formula error checking');
+ FDetails.Add('Bits $FC00: Reserved - MUST be zero, MUST be ignored');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Option flags');
+ end;
+
+ // Not used
+ if (FFormat >= sfExcel5) then begin
+ numBytes := 4;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used');
+ end;
+
+ // Size of Token array (in Bytes)
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ tokenBytes := b;
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ tokenBytes := WordLEToN(w);
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(tokenBytes),
+ 'Size of formula data (in Bytes)');
+
+ ShowFormulaTokens(tokenBytes);
+
+ RowCount := FCurrRow;
+ EndUpdate(true);
+end;
+
+
+procedure TBIFFGrid.ShowFormulaTokens(ATokenBytes: Integer);
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ s: String;
+ dbl: Double;
+ firstTokenBufIndex: Integer;
+ token: Byte;
+ r, c: Word;
+begin
+ // Tokens and parameters
+ firstTokenBufIndex := FBufferIndex;
+ while FBufferIndex < firstTokenBufIndex + ATokenBytes do begin
+ token := FBuffer[FBufferIndex];
+ numBytes := 1;
+ case token of
+ $01: begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]),
+ 'Token for "Cell is part of shared formula"');
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to row of first FORMULA record in the formula range');
+ if FFormat = sfExcel2 then begin
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ 'Index to column of first FORMULA record in the formula range');
+ end else begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to column of first FORMULA record in the formula range');
+ end;
+ end;
+ $02: begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]),
+ 'Token for "Cell is part of a multiple operations table"');
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first row of the table range');
+ if FFormat = sfExcel2 then begin
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ 'Index to first column of the table range');
+ end else begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first column of the table range');
+ end;
+ end;
+ $03: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "+" (add)');
+ $04: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "-" (subtract)');
+ $05: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "*" (multiply)');
+ $06: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "/" (divide)');
+ $07: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "^" (power)');
+ $08: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "&" (concat)');
+ $09: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "<" (less than)');
+ $0A: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "<=" (less equal)');
+ $0B: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "=" (equal)');
+ $0C: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token ">=" (greater equal)');
+ $0D: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token ">" (greater than)');
+ $0E: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "<>" (not equal)');
+ $0F: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token " " (intersect)');
+ $10: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "list character"');
+ $11: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token ":" (range)');
+ $12: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "+" (unary plus)');
+ $13: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "-" (unary minus)');
+ $14: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "%" (percent)');
+ $15: ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]),
+ 'Token "()" (operator in parenthesis)');
+ $16: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token "missing argument"');
+ $17: begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tSTR (Label)');
+ ExtractString(FBufferIndex, 1, (FFormat = sfExcel8), s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'String value');
+ end;
+ $1C: begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tERR (Error)');
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if FCurrRow = Row then begin
+ FDetails.Add('Error code:'#13);
+ FDetails.Add(Format('Code $%.2x --> "%s"', [b, GetErrorValueStr(TsErrorValue(b))]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Error code');
+ end;
+ $1D: begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tBOOL');
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ '0=FALSE, 1=TRUE');
+ end;
+ $1E: begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tINT (Integer)');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Integer value');
+ end;
+ $1F: begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tNUM (Number)');
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%g', [dbl]), //FloatToStr(dbl),
+ 'IEEE 754 floating-point value');
+ end;
+ $20, $40, $60:
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tARRAY');
+ if FFormat = sfExcel2 then numBytes := 6 else numBytes := 7;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '', '(not used)');
+ end;
+ $21, $41, $61:
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tFUNC (Function with fixed argument count)');
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ s := Format('Index of function (%s)', [SheetFuncName(b)]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), s);
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ s := Format('Index of function (%s)', [SheetFuncName(w)]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), s);
+ end;
+ end;
+ $22, $42, $62:
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tFUNCVAR (Function with variable argument count)');
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Number of arguments');
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ s := Format('Index of built-in function (%s)', [SheetFuncName(b)]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), s);
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ s := Format('Index of built-in function (%s)', [SheetFuncName(w)]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), s);
+ end;
+ end;
+ $23, $43, $63:
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ 'Token tNAME');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ case FFormat of
+ sfExcel2: s := 'DEFINEDNAME or EXTERNALNAME record';
+ sfExcel5: s := 'DEFINEDNAME record in Global Link Table';
+ sfExcel8: s := 'DEFINEDNAME record in Link Table';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ '1-based index to '+s);
+ case FFormat of
+ sfExcel2: numBytes := 5;
+ sfExcel5: numBytes := 12;
+ sfExcel8: numBytes := 2;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used)');
+ end;
+ $24, $44, $64:
+ begin
+ case token of
+ $24: s := 'reference';
+ $44: s := 'value';
+ $64: s := 'array';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ Format('Token tREF (Cell %s)', [s]));
+ ShowCellAddress;
+ end;
+ $25, $45, $65:
+ begin
+ case token of
+ $25: s := 'reference';
+ $45: s := 'value';
+ $65: s := 'array';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ Format('Token tAREA (Cell range %s)', [s]));
+ ShowCellAddressRange(FFormat);
+ end;
+ $2C, $4C, $6C:
+ begin
+ case token of
+ $2C: s := 'reference';
+ $4C: s := 'value';
+ $6C: s := 'array';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ Format('Token tREFN (Relative reference to cell %s in same sheet)', [s]));
+
+ // Encoded relative cell address
+ if FFormat = sfExcel8 then
+ begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes); // row
+ r := WordLEToN(w);
+ Move(FBuffer[FBufferIndex+2], w, numBytes); // column with flags
+ c := WordLEToN(w);
+
+ { Note: The bitmask assignment to relative column/row is reversed in relation
+ to OpenOffice documentation in order to match with Excel files. }
+ if Row = FCurrRow then begin
+ FDetails.Add('Encoded cell address (row):'#13);
+ if c and $8000 = 0 then
+ begin
+ FDetails.Add('Row index is ABSOLUTE (see Encoded column index)');
+ FDetails.Add('Absolute row index: ' + IntToStr(r));
+ end else
+ begin
+ FDetails.Add('Row index is RELATIVE (see Encoded column index)');
+ FDetails.Add('Relative row index: ' + IntToStr(Smallint(r)));
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [r, r]),
+ 'Encoded row index');
+
+ // Bit mask $4000 --> column
+ // Bit mask $8000 --> row
+ if Row = FCurrRow then
+ begin
+ FDetails.Add('Encoded cell address (column):'#13);
+ if c and $4000 = 0
+ then FDetails.Add('Bit 14=0: Column index is ABSOLUTE')
+ else FDetails.Add('Bit 14=1: Column index is RELATIVE');
+ if c and $8000 = 0
+ then FDetails.Add('Bit 15=0: Row index is ABSOLUTE')
+ else FDetails.Add('Bit 15=1: Row index is RELATIVE');
+ FDetails.Add('');
+ if c and $4000 = 0
+ then FDetails.Add('Absolute column index: ' + IntToStr(Lo(c)))
+ else FDetails.Add('Relative column index: ' + IntToStr(ShortInt(Lo(c))));
+ end;
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [c, c]),
+ 'Encoded column index');
+ end
+ else
+ // Excel5 (Excel2 does not support shared formulas)
+ begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ r := w and $3FFF;
+ b := FBuffer[FBufferIndex+2];
+ c := b;
+
+ // Bit mask $4000 --> column
+ // Bit mask $8000 --> row
+ if Row = FCurrRow then begin
+ FDetails.Add('Encoded cell address (row):'#13);
+ if w and $4000 = 0
+ then FDetails.Add('Bit 14=0: Column index is ABSOLUTE')
+ else FDetails.Add('Bit 14=0: Column index is RELATIVE');
+ if w and $8000 = 0
+ then FDetails.Add('Bit 15=0: Row index is ABSOLUTE')
+ else FDetails.Add('Bit 15=1: Row index is RELATIVE');
+ FDetails.Add('');
+ if w and $8000 = 0
+ then FDetails.Add('Absolute row index: ' + IntToStr(r))
+ else FDetails.Add('Relative row index: ' + IntToStr(Smallint(r)));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Encoded row index');
+
+ if Row = FCurrRow then
+ begin
+ FDetails.Add('Encoded cell address (column):'#13);
+ if w and $4000 = 0 then begin
+ FDetails.Add('Column index is ABSOLUTE (see Encoded row index)');
+ FDetails.Add('Absolute column index: ' + IntToStr(c));
+ end else begin
+ FDetails.Add('Column index is RELATIVE (see Encoded row index)');
+ FDetails.Add('Relative column index: ' + IntToStr(ShortInt(c)));
+ end;
+ end;
+ numBytes := 1;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b, b]),
+ 'Encoded column index');
+ end;
+ end;
+
+ else
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]),
+ '(unknown token)');
+
+ end; // case
+ end; // while
+
+end;
+
+procedure TBIFFGrid.ShowGCW;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ i,j: Integer;
+ bit: Byte;
+begin
+ RowCount := FixedRows + 33;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Size of Global Column Width bit field (1 bit per column), must be 32');
+
+ numBytes := 1;
+ for i:= 0 to w-1 do begin
+ b := FBuffer[FBufferIndex];
+ if FCurrRow = Row then begin
+ FDetails.Add(Format('GCW (Global column width) record, byte #%d:'#13, [i]));
+ bit := 1;
+ for j:=0 to 7 do begin
+ if b and bit = 0
+ then FDetails.Add(Format('Bit $%.2x=0: Column %d uses width of COLWIDTH record.', [bit, j+i*8]))
+ else FDetails.Add(Format('Bit $%.2x=1: Column %d uses width of STANDARDWIDTH record '+
+ '(or, if not available, DEFCOLWIDTH record)', [bit, j+i*8]));
+ bit := bit * 2;
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ Format('Widths of columns %d-%d', [i*8, i*8+7]));
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowHeader;
+var
+ numbytes: Integer;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ if Length(FBuffer) = 0 then
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', '(empty record)')
+ else
+ begin
+ ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8,
+ s, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Page header string' + IfThen(FFormat = sfExcel8,
+ ' (Unicode string, 16-bit string length)',
+ ' (byte string, 8-bit string length)'
+ ));
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowHideObj;
+var
+ numBytes: word;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Viewing mode for objects:'#13);
+ case w of
+ 0: FDetails.Add('0 = Show all objects');
+ 1: FDetails.Add('1 = Show placeholders');
+ 2: FDetails.Add('2 = Do not show objects');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Viewing mode for objects');
+end;
+
+
+procedure TBIFFGrid.ShowHyperlink;
+var
+ numbytes: Word;
+ w: Word;
+ dw: DWord;
+ n: Integer;
+ guid: TGUID;
+ flags: DWord;
+ nchar, size: DWord;
+ widestr: WideString;
+ ansistr: ansistring;
+ s: String;
+begin
+ n := 0;
+ RowCount := FixedRows + 1000;
+
+ ShowCellAddressRange(FFormat);
+ inc(n, 4);
+
+ numbytes := 16;
+ Move(FBuffer[FBufferIndex], guid, numbytes);
+ s := GuidToString(guid);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, GuidToString(guid), 'GUID of standard link');
+ inc(n);
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x (%d)', [dw, dw]), 'Unknown');
+ inc(n);
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ flags := DWordToLE(dw);
+ if FCurrRow = row then begin
+ FDetails.Add('Option flags:'#13);
+ if flags and $0001 = 0
+ then FDetails.Add(' Bit $0001=0: No link')
+ else FDetails.ADd('* Bit $0001=1: File link or URL');
+ if flags and $0002 = 0
+ then FDetails.Add(' Bit $0002=0: Relative path')
+ else FDetails.Add('* Bit $0002=1: Absolute path');
+ if flags and $0014 = 0
+ then FDetails.Add(' Bits $0014=0: No desriptions')
+ else FDetails.Add('* Bits $0014=1: Description (both bits)');
+ if flags and $0008 = 0
+ then FDetails.Add(' Bit $0008=0: No text mark')
+ else FDetails.Add('* Bit $0008=1: Text mark');
+ if flags and $0080 = 0
+ then FDetails.Add(' Bit $0080=0: No target frame')
+ else FDetails.Add('* Bit $0080=1: Target frame');
+ if flags and $0100 = 0
+ then FDetails.Add(' Bit $0100=0: File link or URL')
+ else FDetails.Add('* Bit $0100=1: UNC path (incl server name)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x (%d)', [flags, flags]),
+ 'Option flags');
+ inc(n);
+
+ if flags and $0014 = $0014 then // hyperlink has description
+ begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ nchar := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(nchar),
+ 'Character count of description text, incl trailing zero word');
+ inc(n);
+
+ numbytes := 2*nchar;
+ SetLength(widestr, nchar);
+ Move(FBuffer[FBufferIndex], widestr[1], 2*nchar);
+ s := UTF16ToUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of description text (no unicode string header, always 16-bit characters, zero-terminated)');
+ inc(n);
+ end;
+
+ if flags and $0080 <> 0 then // Hyperlink has target frame
+ begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ nchar := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(nchar),
+ 'Character count of target frame, incl trailing zero word');
+ inc(n);
+
+ numbytes := 2*nchar;
+ SetLength(widestr, nchar);
+ Move(FBuffer[FBufferIndex], widestr[1], 2*nchar);
+ s := UTF16ToUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of target frame (no unicode string header, always 16-bit characters, zero-terminated)');
+ inc(n);
+ end;
+
+ if flags and $0011 <> 0 then // hyperlink contains URL ***OR*** a local file
+ begin
+ numbytes := 16;
+ Move(FBuffer[FBufferIndex], guid, numbytes);
+ s := GuidToString(guid);
+ if s = '{79EAC9E0-BAF9-11CE-8C82-00AA004BA90B}' then // case: URL
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'GUID of URL Moniker');
+ inc(n);
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ size := DWordToLE(dw);
+ nchar := size div 2 - 1;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(size),
+ 'Size of URL character array, incl. trailing zero word');
+ inc(n);
+
+ numbytes := 2*nchar;
+ SetLength(widestr, nchar);
+ Move(FBuffer[FBufferIndex], widestr[1], 2*nchar);
+ s := UTF16ToUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of the URL (no unicode string header, always 16-bit characters, zero-terminated');
+ inc(n);
+ end else
+ if s = '{00000303-0000-0000-C000-000000000046}' then // case: local file
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'GUID of File Moniker');
+ inc(n);
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Directory up-level count. Each leading "..\" in the file link is deleted and increases this counter.');
+ inc(n);
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ nchar := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(nchar),
+ 'Character count of the shortened file path and name, incl trailing zero byte.');
+ inc(n);
+
+ numbytes := nchar;
+ SetLength(ansistr, nchar);
+ Move(FBuffer[FBufferIndex], ansistr[1], nchar);
+ s := AnsiToUTF8(ansistr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of the shortened file path and name (no unicode string header, always 8-bit characters, zero-terminated)');
+ inc(n);
+
+ for w := 1 to 6 do begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [DWordToLE(dw)]),
+ 'Unknown');
+ inc(n);
+ end;
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ size := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(size),
+ 'Size of following file link field incl string length field and additional data field');
+ inc(n);
+
+ if size > 0 then begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ size := DWordToLE(dw);
+ nchar := size div 2;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(size),
+ 'Size of extended file path and name character array');
+ inc(n);
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordToLE(w)),
+ 'Unknown');
+ inc(n);
+
+ numBytes := size;
+ SetLength(widestr, nchar);
+ Move(FBuffer[FBufferIndex], widestr[1], numbytes);
+ s := UTF16ToUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of extended file path and array (No unicode string header, always 16-bit characters, NOT zero-terminated)');
+ inc(n);
+ end;
+ end;
+ end // if flags and $0011 <> 0
+ else begin
+ // case: Hyperlink to current workbook
+ end;
+
+ if flags and $0008 <> 0 then // hyperlink contains text mark field
+ begin
+ numBytes := 4;
+
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ nchar := DWordToLE(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(nchar),
+ 'Character count of the text mark, incl trailing zero word');
+ inc(n);
+
+ numbytes := 2*nchar;
+ SetLength(widestr, nchar);
+ Move(FBuffer[FBufferIndex], widestr[1], 2*nchar);
+ s := UTF16ToUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of the text mark, without "#" sign, no unicode string header, always 16-bit characters, zero-terminated)');
+ inc(n);
+ end;
+
+ RowCount := FixedRows + n;
+end;
+
+
+procedure TBIFFGrid.ShowHyperlinkTooltip;
+var
+ numbytes: Word;
+ w: Word;
+ widestr: widestring;
+ s: string;
+begin
+ RowCount := FixedRows + 6;
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordToLE(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x (%d)', [w, w]),
+ 'Repeated record ID');
+
+ ShowCellAddressRange(sfExcel8);
+
+ numbytes := Length(FBuffer) - FBufferIndex;
+ SetLength(widestr, numbytes div 2);
+ Move(FBuffer[FBufferIndex], widestr[1], numbytes);
+ s := UTF16toUTF8(widestr);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ 'Character array of the tool tip, no Unicode string header, always 16-bit characters, zero-terminated');
+end;
+
+
+procedure TBIFFGrid.ShowInRow(var ARow: Integer; var AOffs: LongWord;
+ ASize: Word; AValue,ADescr: String; ADescrOnly: Boolean = false);
+begin
+ if ADescrOnly then
+ begin
+ Cells[0, ARow] := '';
+ Cells[1, ARow] := '';
+ Cells[2, ARow] := '';
+ end else
+ begin
+ Cells[0, ARow] := IntToStr(AOffs);
+ Cells[1, ARow] := IntToStr(ASize);
+ Cells[2, ARow] := AValue;
+ end;
+ Cells[3, ARow] := ADescr;
+ inc(ARow);
+ inc(AOffs, ASize);
+end;
+
+
+procedure TBIFFGrid.ShowInteger;
+var
+ numBytes: Integer;
+ w: Word;
+ b: Byte;
+begin
+ // BIFF2 only
+ if (FFormat <> sfExcel2) then
+ exit;
+
+ RowCount := FixedRows + 5;
+ ShowRowColData(FBufferIndex);
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('x Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add(' Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('x Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add(' Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('x Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell protection and XF index');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Indexes of format and font records');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('x Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('x Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('x Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('x Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('x Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add(' Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('x Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add(' Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('x Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add(' Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('x Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add(' Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('x Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add(' Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('x Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Unsigned 16-bit integer cell value');
+end;
+
+
+procedure TBIFFGrid.ShowInterfaceEnd;
+begin
+ RowCount := FixedRows + 1;
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', 'End of Globals Substream');
+end;
+
+
+procedure TBIFFGrid.ShowInterfaceHdr;
+var
+ numbytes: Integer;
+ w: Word;
+begin
+ if FFormat < sfExcel8 then begin
+ RowCount := FixedRows;
+ exit;
+ end;
+
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Code page of user interface:'#13);
+ FDetails.Add(Format('$%.4x = %s', [w, CodePageName(w)]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]),
+ 'Begin of Globals Substream, code page of user interface');
+end;
+
+
+procedure TBIFFGrid.ShowIteration;
+var
+ numBytes: Integer;
+ w: word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Iterations:'#13);
+ case w of
+ 0: FDetails.Add('0 = Iterations off');
+ 1: FDetails.Add('1 = Iterations on');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Iterations on/off');
+end;
+
+
+procedure TBIFFGrid.ShowIXFE;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to XF record');
+end;
+
+// Called for LABEL
+procedure TBIFFGrid.ShowLabelCell;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ s: String;
+begin
+ RowCount := IfThen(FFormat = sfExcel2, FixedRows + 6, FixedRows + 4);
+ ShowRowColData(FBufferIndex);
+ if (FFormat = sfExcel2) then begin
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('x Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add(' Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('x Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add(' Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('x Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell protection and XF index');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Indexes of format and font records');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add('Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add('Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add('Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add('Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+ end;
+
+ b := IfThen(FFormat=sfExcel2, 1, 2);
+ ExtractString(FBufferIndex, b, (FFormat = sfExcel8), s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s,
+ Format('%s string, %d-bit string length', [GetStringType, b*8]));
+end;
+
+
+procedure TBIFFGrid.ShowLabelSSTCell;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+begin
+ RowCount := FixedRows + 4;
+ ShowRowColData(FBufferIndex);
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(dw),
+ 'Index into SST record (shared string table)');
+end;
+
+
+procedure TBIFFGrid.ShowLeftMargin;
+var
+ numBytes: Integer;
+ dbl: Double;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Left page margin in inches (IEEE 754 floating-point value, 64-bit double precision)');
+end;
+
+
+procedure TBIFFGrid.ShowMergedCells;
+var
+ w: Word;
+ numBytes: Integer;
+ i, n: Integer;
+begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ n := WordLEToN(w); // count of merged ranges in this record
+
+ RowCount := FixedRows + 1 + n*4;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(n),
+ 'Count of merged ranges in this record');
+
+ for i:=1 to n do begin
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ Format('Merged range #%d: First row = %d', [i, w]));
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ Format('Merged range #%d: Last row = %d', [i, w]));
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ Format('Merged range #%d: First column = %d', [i, w]));
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ Format('Merged range #%d: Last column = %d', [i, w]));
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowMMS;
+var
+ w: Word;
+ numbytes: Integer;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), 'Reserved, MUST be ignored');
+end;
+
+{ Only those records needed for comments are deciphered. }
+procedure TBIFFGrid.ShowMSODrawing;
+var
+ n: Integer;
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+ recType: Word;
+ recLen: DWord;
+ isContainer: Boolean;
+ indent: String;
+ level: Integer;
+
+ function PrepareIndent(ALevel: Integer): String;
+ var
+ i: Integer;
+ begin
+ Result := '';
+ for i := 1 to ALevel do Result := Result + ' ';
+ end;
+
+ procedure DoShowHeader(out ARecType: Word; out ARecLen: DWord;
+ out IsContainer: Boolean);
+ var
+ s: String;
+ instance: Word;
+ version: Word;
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ IsContainer := (w and $000F = $000F);
+
+ if IsContainer and (FBufferIndex > 0) then
+ indent := PrepareIndent(level+1);
+
+ s := IfThen(IsContainer, '***** CONTAINER *****', '--- ATOM ---');
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', indent + s, TRUE);
+ inc(n);
+
+ version := w and $000F;
+ instance := (w and $FFF0) shr 4;
+ if Row = FCurrRow then begin
+ FDetails.Add('OfficeArtDrawing Header:'#13);
+ FDetails.Add(Format('Bits 3-0 = $%.1x: Version', [version]));
+ FDetails.Add(Format('Bits 15-4 = $%.3x: Instance', [instance]));
+ end;
+ s := Format('OfficeArtDrawing Header: Version %d, instance %d', [version, instance]);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.04x', [w]), indent + s);
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ARecType := w;
+ case ARecType of
+ $F00A: //, $F00B:
+ case instance of
+ $01: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Rectangle)';
+ $02: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Rounded rectangle)';
+ $03: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Ellipse)';
+ $04: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Diamond)';
+ $05: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Triangle)';
+ $06: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Right triangle)';
+ $07: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Parallelogram)';
+ $08: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Trapezoid)';
+ $09: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Hexagon)';
+ $0A: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Pentagon)';
+ $0B: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Plus)';
+ $0C: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Star)';
+ $0D: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Arrow)';
+ $0E: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Thick arrow)';
+ $0F: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Irregular pentagon)';
+ $10: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Cube)';
+ $11: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Speech balloon)';
+ $12: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Seal)';
+ $13: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Curved arc)';
+ $14: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Line)';
+ $15: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Plaque)';
+ $16: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Cylinder)';
+ $17: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Donut)';
+ $CA: Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + ' (Text box)';
+ end;
+ $F00B:
+ Cells[3, FCurrRow-1] := Cells[3, FCurrRow-1] + Format(' (i.e., %d properties)', [instance]);
+ end;
+
+ case ARecType of
+ $F000: s := 'OfficeArtDggContainer (all the OfficeArt file records containing document-wide data)';
+ $F001: s := 'OfficeArtBStoreContainer (all the BLIPs used in all the drawings associated with parent OfficeArtDggContainer record)';
+ $F002: s := 'OfficeArtDgContainer (all file records for the objects in a drawing)';
+ $F003: s := 'OfficeArtSpgrContainer (groups of shapes)';
+ $F004: s := 'OfficeArtSpContainer (shape)';
+ $F005: s := 'OfficeArtSolverContainer (rules applicable to the shapes contained in an OfficeArtDgContainer record)';
+ $F006: s := 'OfficeArtFDGGBlock record (document-wide information about all drawings saved in the file)';
+ $F007: s := 'OfficeArtFBSE record (File BLIP Store Entry (FBSE) containing information about the BLIP)';
+ $F008: s := 'OfficeArtFDG record (number of shapes, drawing identifier, and shape identifier of the last shape in a drawing)';
+ $F009: s := 'OfficeArtFSPGR record (coordinate system of the group shape that the anchors of the child shape are expressed in)';
+ $F00A: s := 'OfficeArtFSP record (instance of a shape)';
+ $F00B: s := 'OfficeArtFOPT record (table of OfficeArtRGFOPTE records)';
+ $F00D: s := 'OfficeArtClientTextBox (text related data for a shape)';
+ $F00F: s := 'OfficeArtChildAnchor record (anchors for the shape containing this record)';
+ $F010: s := 'OfficeArtClientAnchor record (location of a shape)';
+ $F011: s := 'OfficeArtClientData record (information about a shape)';
+ $F012: s := 'OfficeArtFConnectorRule record (connection between two shapes by a connector shape)';
+ $F014: s := 'OfficeArtFArcRule record (Specifies an arc rule. Each arc shape MUST correspond to a unique arc rule)';
+ $F017: s := 'OfficeArtFCalloutRule record (Callout rule: One callout rule MUST exist per callout shape)';
+ $F01A: s := 'OfficeArtBlipEMF record (BLIP file data for the enhanced metafile format (EMF))';
+ $F01B: s := 'OfficeArtBlipWMF record (BLIP file data for the Windows Metafile Format (WMF))';
+ $F01C: s := 'OfficeArtBlipPICT record (BLIP file data for the Macintosh PICT format)';
+ $F01D: s := 'OfficeArtBlipJPEG record (BLIP file data for the Joint Photographic Experts Group (JPEG) format)';
+ $F01E: s := 'OfficeArtBlipPNG record (BLIP file data for the Portable Network Graphics (PNG) format)';
+ $F01F: s := 'OfficeArtBlipDIB record (BLIP file data for the device-independent bitmap (DIB) format)';
+ $F029: s := 'OfficeArtBlipTIFF record (BLIP file data for the TIFF format)';
+ $F118: s := 'OfficeArtFRITContainer record (container for the table of group identifiers that are used for regrouping ungrouped shapes)';
+ $F119: s := 'OfficeArtFDGSL record (specifies both the selected shapes and the shape that is in focus in the drawing)';
+ $F11A: s := 'OfficeArtColorMRUContainer record (most recently used custom colors)';
+ $F11D: s := 'OfficeArtFPSPL record (former hierarchical position of the containing object that is either a shape or a group of shapes)';
+ $F11E: s := 'OfficeArtSplitMenuColorContainer record (container for the colors that were most recently used to format shapes)';
+ $F121: s := 'OfficeArtSecondaryFOPT record (table of OfficeArtRGFOPTE records)';
+ $F122: s := 'OfficeArtTertiaryFOPT record (table of OfficeArtRGFOPTE records)';
+ else s := 'Not known to BIFFExplorer';
+ end;
+ if Row = FCurrRow then begin
+ FDetails.Add('OfficeArtDrawing Record Type:'#13);
+ FDetails.Add(Format('$%.4x: %s', [ARecType, s]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ indent + 'Record type: ' + s);
+ inc(n);
+
+ numbytes := 4;
+ Move(FBuffer[FbufferIndex], ARecLen, Numbytes);
+ ARecLen := DWordLEToN(ARecLen);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d', [ARecLen]),
+ indent + 'Record length');
+ inc(n);
+ end;
+
+ procedure DoShowOfficeArtFDG; // $F008
+ // The OfficeArtFDG record specifies the number of shapes, the drawing
+ // identifier, and the shape identifier of the last shape in a drawing.
+ begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(dw),
+ indent + 'Number of shapes in this drawing');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(dw),
+ indent + 'Shape identifier of the last shape in this drawing');
+ inc(n);
+ end;
+
+ procedure DoShowOfficeArtFSPGR; // $F009
+ // The OfficeArtFSPGR record specifies the coordinate system of the group
+ // shape that the anchors of the child shape are expressed in. This record
+ // is present only for group shapes.
+ var
+ rt: Word;
+ begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(LongInt(DWordLEToN(dw))),
+ indent + 'xLeft');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(LongInt(DWordLEToN(dw))),
+ indent + 'yTop');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(LongInt(DWordLEToN(dw))),
+ indent + 'xRight');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(LongInt(DWordLEToN(dw))),
+ indent + 'yBottom');
+ inc(n);
+ end;
+
+ procedure DoShowOfficeArtFSP; // §F00A
+ // The OfficeArtFSP record specifies an instance of a shape.
+ // The record header contains the shape type, and the record itself
+ // contains the shape identifier and a set of bits that further define the shape.
+ var
+ rt: word;
+ s: String;
+ begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ indent + 'Shape identifier');
+ inc(n);
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ s := '';
+ if Row = FCurrRow then begin
+ FDetails.Add('Shape options:'#13);
+ if dw and $0001 = 0
+ then FDetails.Add(' Bit 1=0: Shape is NOT a group shape')
+ else FDetails.Add('x Bit 1=1: Shape is a group shape');
+ if dw and $0002 = 0
+ then FDetails.Add(' Bit 2=0: Shape is NOT a child shape')
+ else FDetails.Add('x Bit 2=1: Shape is a child shape');
+ if dw and $0004 = 0
+ then FDetails.Add(' Bit 3=0: Shape is NOT the top-most group shape (patriarch)')
+ else FDetails.Add('x Bit 3=1: Shaoe is the top-most group shape (patriarch)');
+ if dw and $0008 = 0
+ then FDetails.Add(' Bit 4=0: Shape has NOT been deleted')
+ else FDetails.Add('x Bit 4=1: Shape has been deleted');
+ if dw and $0010 = 0
+ then FDetails.Add(' Bit 5=0: Shape is NOT an OLE object')
+ else FDetails.Add('x Bit 5=1: Shape is an OLE object');
+ if dw and $0020 = 0
+ then FDetails.Add(' Bit 6=0: Shape does NOT have a valid master in the hspMaster property')
+ else FDetails.Add('x Bit 6=1: Shape has a valid master in the hspMaster property');
+ if dw and $0040 = 0
+ then FDetails.Add(' Bit 7=0: Shape is NOT horizontally flipped')
+ else FDetails.Add('x Bit 7=1: Shape is horizontally flipped');
+ if dw and $0080 = 0
+ then FDetails.Add(' Bit 8=0: Shape is NOT vertically flipped')
+ else FDetails.Add('x Bit 8=1: Shape is vertically flipped');
+ if dw and $0100 = 0
+ then FDetails.Add(' Bit 9=0: Shape is NOT a connector shape')
+ else FDetails.Add('x Bit 9=1: Shape is a connector shape');
+ if dw and $0200 = 0
+ then FDetails.Add(' Bit 10=0: Shape doe NOT have an anchor')
+ else FDetails.Add('x Bit 10=1: Shape has an anchor');
+ if dw and $0400 = 0
+ then FDetails.Add(' Bit 11=0: Shape is NOT a background shape')
+ else FDetails.Add('x Bit 11=1: Shape is a background shape');
+ if dw and $0800 = 0
+ then FDetails.Add(' Bit 12=0: Shape does NOT have a shape type property')
+ else FDetails.Add('x Bit 12=1: Shape has a shape type property');
+ FDetails.Add(' Bits 13-32: unused');
+ end;
+ s := '';
+ if dw and $0001 <> 0 then s := s + 'group shape, ';
+ if dw and $0002 <> 0 then s := s + 'child shape, ';
+ if dw and $0004 <> 0 then s := s + 'patriarch, ';
+ if dw and $0008 <> 0 then s := s + 'deleted, ';
+ if dw and $0010 <> 0 then s := s + 'OLE object, ';
+ if dw and $0020 <> 0 then s := s + 'master, ';
+ if dw and $0040 <> 0 then s := s + 'flipped hor, ';
+ if dw and $0080 <> 0 then s := s + 'flipped vert, ';
+ if dw and $0100 <> 0 then s := s + 'connector shape, ';
+ if dw and $0200 <> 0 then s := s + 'anchor, ';
+ if dw and $0400 <> 0 then s := s + 'background, ';
+ if dw and $0800 <> 0 then s := s + 'shape type, ';
+ if s <> '' then begin
+ Delete(s, Length(s)-1, 2);
+ s := 'Shape options: ' + s;
+ end else
+ s := 'Shape options';
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x (%d)', [dw, dw]), indent + s);
+ inc(n);
+ end;
+
+ procedure DoShowOfficeArtFOPT(ARecLen: DWord); // $F00B
+ // The OfficeArtFOPT record specifies a table of OfficeArtRGFOPTE records.
+ var
+ startIndex: Int64;
+ opid: Word;
+ op: DWord;
+ s: String;
+ begin
+ startIndex := FBufferIndex;
+ while FBufferIndex < startIndex + ARecLen do
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], opid, numbytes);
+ opid := WordLEToN(opid);
+ case opid of
+ $007F: s := 'OfficeArtFOPTEOPID: Protection boolean properties';
+ $0080: s := 'OfficeArtFOPTEOPID: TextID';
+ $0081: s := 'OfficeArtFOPTEOPID: dxTextLeft';
+ $0082: s := 'OfficeArtFOPTEOPID: dyTextTop';
+ $0083: s := 'OfficeArtFOPTEOPID: dxTextRight';
+ $0084: s := 'OfficeArtFOPTEOPID: dyTextBottom';
+ $0085: s := 'OfficeArtFOPTEOPID: Wrap text';
+ $0086: s := 'OfficeArtFOPTEOPID: Unused';
+ $0087: s := 'OfficeArtFOPTEOPID: Text anchor';
+ $0088: s := 'OfficeArtFOPTEOPID: Text flow';
+ $0089: s := 'OfficeArtFOPTEOPID: Font rotation';
+ $008A: s := 'OfficeArtFOPTEOPID: Next shape in sequence of linked shapes';
+ $008B: s := 'OfficeArtFOPTEOPID: Text direction';
+ $008C: s := 'OfficeArtFOPTEOPID: Unused';
+ $008D: s := 'OfficeArtFOPTEOPID: Unused';
+ $00BF: s := 'OfficeArtFOPTEOPID: Boolean properties for the text in a shape';
+ $00C0: s := 'OfficeArtFOPTEOPID: Text for this shape’s geometry text';
+ $00C2: s := 'OfficeArtFOPTEOPID: Alignment of text in the shape';
+ $00C3: s := 'OfficeArtFOPTEOPID: Font size, in points, of the geometry text for this shape';
+ $00C4: s := 'OfficeArtFOPTEOPID: Amount of spacing between characters in the text';
+ $00C5: s := 'OfficeArtFOPTEOPID: Font to use for the text';
+ $0158: s := 'OfficeArtFOPTEOPID: Type of connection point';
+ $0181: s := 'OfficeArtFOPTEOPID: Fill color';
+ $0183: s := 'OfficeArtFOPTEOPID: Background color of the fill';
+ $0185: s := 'OfficeArtFOPTEOPID: Foreground color of the fill';
+ $01BF: s := 'OfficeArtFOPTEOPID: Fill style boolean properties';
+ $01C0: s := 'OfficeArtFOPTEOPID: Line color';
+ $01C3: s := 'OfficeArtFOPTEOPID: Line foreground color for black & white display mode';
+ $01FF: s := 'OfficeArtFOPTEOPID: Line style boolean properties';
+ $0201: s := 'OfficeArtFOPTEOPID: Shadow color';
+ $0203: s := 'OfficeArtFOPTEOPID: Shadow primary color modifier if in black & white mode';
+ $023F: s := 'OfficeArtFOPTEOPID: Shadow style boolean properties';
+ $03BF: s := 'OfficeArtFOPTEOPID: Group shape boolean properties';
+ else s := 'OfficeArtFOPTEOPID that specifies the header information for this property';
+ end;
+ s := indent + s;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x (%d)', [opid, opid]), s);
+ inc(n);
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], op, numbytes);
+ op := DWordLEToN(op);
+ s := '';
+ case opid of
+ $0087: case op of
+ 0: s := s + ': text at top';
+ 1: s := s + ': text vertically centered';
+ 2: s := s + ': text at bottom';
+ 3: s := s + ': text at top and centered horizontally';
+ 4: s := s + ': text at center of box';
+ 5: s := s + ': text at bottom and centered horizontally';
+ end;
+ $0089: case op of
+ 0: s := s + ': horizontal';
+ 1: s := s + ': 90° clockwise, vertical down';
+ 2: s := s + ': horizontal, 180° rotated';
+ 3: s := s + ': 90° counter-clickwise, vertical up';
+ end;
+ $008B: case op of
+ 0: s := s + ': left-to-right';
+ 1: s := s + ': right-to-left';
+ 2: s := s + ': determined from text string';
+ end;
+ $00C2: case op of
+ 0: s := s + ': stretched';
+ 1: s := s + ': centered';
+ 2: s := s + ': left-aligned';
+ 3: s := s + ': right-aligned';
+ 4: s := s + ': justified';
+ 5: s := s + ': word-justified';
+ end;
+ $0158: case op of
+ 0: s := s + ': no connection point';
+ 1: s := s + ': Edit points of shape are used as connection points';
+ 2: s := s + ': Custom array of connection points';
+ 3: s := s + ': standard 4 connection points at the top, bottom, left, and right side centers';
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x (%d)', [op, op]),
+ indent + 'Value of this property' + s);
+ inc(n);
+ end;
+ end;
+
+ procedure DoShowOfficeArtClientTextbox(ARecLen: Word); // $F00D
+ begin
+ numBytes := ARecLen;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '...', indent + 'Text data follow in TXO record', true);
+ inc(n);
+ end;
+
+ procedure DoShowOfficeArtClientAnchorData(StructureKind: Integer); // $F010
+ begin
+ case StructureKind of
+ 0: begin // OfficeArtClientAnchorSheet
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Move/resize flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit 0=0: Shape will NOT be kept intact when the cells are moved')
+ else FDetails.Add('x Bit 0=1: Shape will be kept intact when the cells are moved');
+ if w and $0002 = 0
+ then FDetails.Add(' Bit 1=0: Shape will NOT be kept intact when the cells are resized')
+ else FDetails.Add('x Bit 1=1: Shape will be kept intact when the cells are resized');
+ FDetails.Add( ' Bit 2=0: reserved (must be 0)');
+ FDetails.Add( ' Bit 3=0: reserved (must be 0)');
+ FDetails.Add( ' Bit 4=0: reserved (must be 0)');
+ FDetails.Add( ' Bits 15-5: unused');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), indent + 'Move/resize flags');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'Column of the cell under the top left corner of the bounding rectangle of the shape');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'x coordinate of the top left corner of the bounding rectangle relative to the corner of the underlying cell (as 1/1024 of that cell’s width)');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'Row of the cell under the top left corner of the bounding rectangle of the shape');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'y coordinate of the top left corner of the bounding rectangle relative to the corner of the underlying cell (as 1/256 of that cell’s height');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'Column of the cell under the bottom right corner of the bounding rectangle of the shape');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'x coordinate of the bottom right corner of the bounding rectangle relative to the corner of the underlying cell (as 1/1024 of that cell’s width)');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'Row of the cell under the bottom right corner of the bounding rectangle of the shape');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'y coordinate of the bottom right corner of the bounding rectangle relative to the corner of the underlying cell (as 1/256 of that cell’s height');
+ inc(n);
+ end;
+ 1: begin // "Small" rectangle structure
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'top');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'left');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'right');
+ inc(n);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ indent + 'bottom');
+ inc(n);
+ end;
+ 2: begin // standard rectangle structure
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ indent + 'top');
+ inc(n);
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ indent + 'left');
+ inc(n);
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ indent + 'right');
+ inc(n);
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ indent + 'bottom');
+ inc(n);
+ end;
+ end;
+ end;
+
+ procedure DoShowOfficeArtRecord(out ARecType:Word; out ARecLen: DWord;
+ out AIsContainer: Boolean);
+ var
+ startIndex, endindex: Int64;
+ totalbytes: Int64;
+ begin
+ totalbytes := 0;
+ startIndex := FBufferIndex + 8;
+ repeat
+ DoShowHeader(ARecType, ARecLen, AIsContainer);
+ if totalbytes = 0 then endindex := startindex + ARecLen;
+ totalbytes := totalbytes + ARecLen;
+ if AIsContainer then begin
+ inc(level);
+ indent := PrepareIndent(level);
+ DoShowOfficeArtRecord(ARecType, ARecLen, AIsContainer);
+ end else
+ case ARecType of
+ $F008: DoShowOfficeArtFDG;
+ $F009: DoShowOfficeArtFSPGR; // shape group
+ $F00A: DoShowOfficeArtFSP; // instance of a shape
+ $F00B: DoShowOfficeArtFOPT(ARecLen); // table of OfficeArtRGFOPTE records
+ $F00D: DoShowOfficeArtClientTextbox(ARecLen);
+ $F010: DoShowOfficeArtClientAnchorData(0); // 0 - use OfficeArtClientAnchorSheet because contained in a sheet stream
+// $F122: DoShowOfficeArtRGFOPTE(AIndent); // (tertiary) table of OfficeArtRGFOPTE records
+ else if ARecLen <> 0 then begin
+ ShowInRow(FCurrRow, FBufferIndex, ARecLen, '', indent + 'Skipping this unknown record...');
+ inc(n);
+ end;
+ end;
+ until (FBufferIndex >= endindex) or (FBufferIndex >= Length(FBuffer));
+ dec(level);
+ FBufferIndex := endindex;
+ end;
+
+begin
+ RowCount := FixedRows + 1000;
+ n := 0;
+ level := -1;
+ DoShowOfficeArtRecord(recType, recLen, isContainer);
+ RowCount := FixedRows + n;
+end;
+
+procedure TBIFFGrid.ShowMulBlank;
+var
+ w: Word;
+ numbytes: Integer;
+ i, nc: Integer;
+begin
+ nc := (Length(FBuffer) - 6) div 2;
+ RowCount := FixedRows + 3 + nc;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to row');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first column');
+
+ for i:=0 to nc-1 do begin
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ Format('Index to XF record #%d', [i]));
+ end;
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to last column');
+end;
+
+
+procedure TBIFFGrid.ShowMulRK;
+var
+ w: Word;
+ numBytes: Integer;
+ i, nc: Integer;
+ dw: DWord;
+ encint: DWord;
+ encdbl: QWord;
+ dbl: Double absolute encdbl;
+ s: String;
+begin
+ nc := (Length(FBuffer) - 6) div 6;
+ RowCount := FixedRows + 3 + nc*2;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to row');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first column');
+
+ for i:=0 to nc-1 do begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ Format('Index to XF record #%d', [i]));
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+
+ if Row = FCurrRow then begin
+ FDetails.Add('RK Value:'#13);
+ if dw and $00000001 = 0
+ then FDetails.Add('Bit 0 = 0: Value not changed')
+ else FDetails.Add('Bit 0 = 1: Encoded value is multiplied by 100.');
+ if dw and $00000002 = 0
+ then FDetails.Add('Bit 1 = 0: Floating point value')
+ else FDetails.Add('Bit 1 = 1: Signed integer value');
+ if dw and $00000002 = 0 then begin
+ encdbl := (QWord(dw) and QWord($FFFFFFFFFFFFFFFC)) shl 32;
+ if dw and $00000001 = 1 then
+ s := Format('%.2f', [dbl*0.01])
+ else
+ s := Format('%.0f', [dbl]);
+ end
+ else begin
+ s := Format('$%.16x', [-59000000]);
+ encint := ((dw and DWord($FFFFFFFC)) shr 2) or (dw and DWord($C0000000));
+ // "arithmetic shift" = replace left-most bits by original bits
+ if dw and $00000001 = 1 then
+ s := FloatToStr(encint*0.01)
+ else
+ s := IntToStr(encint);
+ end;
+ FDetails.Add('Bits 31-2: Encoded value ' + s);
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes,
+ Format('$%.8x', [dw]),
+ Format('RK value #%d', [i])
+ );
+ end;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to last column');
+end;
+
+procedure TBIFFGrid.ShowNote;
+var
+ numBytes: Integer;
+ w: Word = 0;
+ s: String;
+begin
+ RowCount := IfThen(FFormat = sfExcel8, 6, 5);
+
+ // Offset 0: Row and Col index
+ ShowRowColData(FBufferIndex);
+
+ if FFormat = sfExcel8 then begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Comment flags:'#13);
+ if (w and $0002 <> 0)
+ then FDetails.Add('x Bit 1=1: Comment is shown at all times')
+ else FDetails.Add(' Bit 1=0: Comment is not shown at all tiems');
+ if (w and $0080 <> 0)
+ then FDetails.Add('x Bit 7=1: Row with comment is hidden')
+ else FDetails.Add(' Bit 7=0: Row with comment is visible');
+ if (w and $0100 <> 0)
+ then FDetails.Add('x Bit 8=1: Column with comment is hidden')
+ else FDetails.Add(' Bit 8=0: Column with comment is visible');
+ FDetails.Add('All other bits are reserved and must be ignored.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Flags');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Object ID');
+
+ ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8,
+ s, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Author');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Total length of comment');
+
+ numBytes := Min(Length(FBuffer) - FBufferIndex, 2048);
+ SetLength(s, numBytes);
+ Move(FBuffer[FBufferIndex], s[1], numBytes);
+ SetLength(s, Length(s));
+ s := UTF8StringReplace(s, #10, '[\n]', [rfReplaceAll]);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Comment text');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowNumberCell;
+var
+ numBytes: Integer;
+ b: Byte = 0;
+ w: Word = 0;
+ dbl: Double;
+begin
+ RowCount := IfThen(FFormat = sfExcel2, FixedRows + 6, FixedRows + 4);
+ // Offset 0: Row & Offsset 2: Column
+ ShowRowColData(FBufferIndex);
+ // Offset 4: Cell attributes (BIFF2) or XF ecord index (> BIFF2)
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell protection and XF index:'#13);
+ FDetails.Add(Format('x Bits 5-0 = %d: XF Index', [b and $3F]));
+ case b and $40 of
+ 0: FDetails.Add(' Bit 6 = 0: Cell is NOT locked.');
+ 1: FDetails.Add('x Bit 6 = 1: Cell is locked.');
+ end;
+ case b and $80 of
+ 0: FDetails.Add(' Bit 7 = 0: Formula is NOT hidden.');
+ 1: FDetails.Add('x Bit 7 = 1: Formula is hidden.');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell protection and XF index');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Indexes to format and font records:'#13);
+ FDetails.Add(Format('Bits 5-0 = %d: Index to FORMAT record', [b and $3f]));
+ FDetails.Add(Format('Bits 7-6 = %d: Index to FONT record', [(b and $C0) shr 6]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]),
+ 'Indexes of format and font records');
+
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell style:'#13);
+ case b and $07 of
+ 0: FDetails.Add('x Bits 2-0 = 0: Horizontal alignment is GENERAL');
+ 1: FDetails.Add('x Bits 2-0 = 1: Horizontal alignment is LEFT');
+ 2: FDetails.Add('x Bits 2-0 = 2: Horizontal alignment is CENTERED');
+ 3: FDetails.Add('x Bits 2-0 = 3: Horizontal alignment is RIGHT');
+ 4: FDetails.Add('x Bits 2-0 = 4: Horizontal alignment is FILLED');
+ end;
+ if b and $08 = 0
+ then FDetails.Add(' Bit 3 = 0: Cell has NO left border')
+ else FDetails.Add('x Bit 3 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add(' Bit 4 = 0: Cell has NO right border')
+ else FDetails.Add('x Bit 4 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add(' Bit 5 = 0: Cell has NO top border')
+ else FDetails.Add('x Bit 5 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add(' Bit 6 = 0: Cell has NO bottom border')
+ else FDetails.Add('x Bit 6 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add(' Bit 7 = 0: Cell has NO shaded background')
+ else FDetails.Add('x Bit 7 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]),
+ 'Cell style');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+ end;
+ // Offset 6: Double value
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%g', [dbl]), //FloatToStr(dbl),
+ 'IEEE 764 floating-point value');
+end;
+
+
+procedure TBIFFGrid.ShowObj;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+ savedBufferIndex: Integer;
+ fieldType: Word;
+ fieldSize: Word;
+ s: String;
+ i, n: Integer;
+ guid: TGUID;
+begin
+ if FFormat = sfExcel8 then begin
+ n := 0;
+ RowCount := FixedRows + 1000;
+ while FBufferIndex < Length(FBuffer) do begin
+ savedBufferIndex := FBufferIndex;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ fieldType := WordLEToN(w);
+ case fieldType of
+ $00: s := 'ftEnd (End of OBJ record)';
+ $01: s := '(Reserved)';
+ $02: s := '(Reserved)';
+ $03: s := '(Reserved)';
+ $04: s := 'ftMacro (fmla-style macro)';
+ $05: s := 'ftButton (Command button)';
+ $06: s := 'ftGmo (Group marker)';
+ $07: s := 'ftCf (Clipboard format)';
+ $08: s := 'ftPioGrbit (Picture option flags)';
+ $09: s := 'ftPictFmla (Picture fmla-style macro)';
+ $0A: s := 'ftCbls (Checkbox link)';
+ $0B: s := 'ftRbo (Radio button)';
+ $0C: s := 'ftSbs (Scrollbar)';
+ $0D: s := 'ftNts (Note structure)';
+ $0E: s := 'ftSbsFmla (Scroll bar fmla-style macro)';
+ $0F: s := 'ftGboData (Group box data)';
+ $10: s := 'ftEdoData (Edit control data)';
+ $11: s := 'ftRboData (Radio button data)';
+ $12: s := 'ftCblsData (Check box data)';
+ $13: s := 'ftLbsData (List box data)';
+ $14: s := 'ftCblsFmla (Check box link fmla-style macro)';
+ $15: s := 'ftCmo (Common object data)';
+ else s := '(unknown)';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.04x', [fieldType]),
+ Format('Subrecord type: %s', [s]));
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ fieldSize := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(fieldSize), 'Size of subrecord');
+ inc(n);
+
+ case fieldType of
+ $000D:
+ begin // ftNts, from https://msdn.microsoft.com/en-us/library/office/dd951373%28v=office.12%29.aspx
+ numBytes := 16;
+ Move(FBuffer[FBufferIndex], guid, numBytes);
+ s := GuidToString(guid);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'GUID of comment');
+ inc(n);
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Shared Note (0 = false, 1 = true)');
+ inc(n);
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)),
+ 'Unused (undefined, must be ignored)');
+ inc(n);
+ end;
+
+ $0015:
+ begin // common object data
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ case w of
+ $00: s := 'Group';
+ $01: s := 'Line';
+ $02: s := 'Rectangle';
+ $03: s := 'Oval';
+ $04: s := 'Arc';
+ $05: s := 'Chart';
+ $06: s := 'Text';
+ $07: s := 'Button';
+ $08: s := 'Picture';
+ $09: s := 'Polybon';
+ $0A: s := '(Reserved)';
+ $0B: s := 'Checkbox';
+ $0C: s := 'Option button';
+ $0D: s := 'Edit box';
+ $0E: s := 'Label';
+ $0F: s := 'Dialog box';
+ $10: s := 'Spinner';
+ $11: s := 'Scrollbar';
+ $12: s := 'List box';
+ $13: s := 'Group box';
+ $14: s := 'Combobox';
+ $15: s := '(Reserved)';
+ $16: s := '(Reserved)';
+ $17: s := '(Reserved)';
+ $18: s := '(Reserved)';
+ $19: s := 'Comment';
+ $1A: s := '(Reserved)';
+ $1B: s := '(Reserved)';
+ $1C: s := '(Reserved)';
+ $1D: s := '(Reserved)';
+ $1E: s := 'Microsoft Office drawing';
+ else s := '(Unknown)';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.04x', [w]),
+ 'Object type: '+s);
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.04x', [w]),
+ 'Object ID number');
+ inc(n);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 <> 0
+ then FDetails.Add('x Bit $0001 = 1: Object is locked when sheet is protected.')
+ else FDetails.Add(' Bit $0001 = 0: Object is NOT locked when sheet is protected.');
+ if w and $000E <> 0
+ then FDetails.Add('! Bit $0002 <> 0: Reserved - must be zero - THIS SEEMS TO BE AN ERROR!')
+ else FDetails.Add(' Bit $0002 = 0: Reserved - must be zero');
+ if w and $0010 <> 0
+ then FDetails.Add('x Bit $0010 = 1: Image of this object is intended to be included when printing')
+ else FDetails.Add(' Bit $0010 = 0: Image of this object is NOT intended to be included when printing');
+ if w and $1FE0 <> 0
+ then FDetails.Add('! Bits 12-5 <> 0: Reserved - must be zero - THIS SEEMS TO BE AN ERROR!')
+ else FDetails.Add(' Bits 12-5 = 0: Reserved - must be zero');
+ if w and $2000 <> 0
+ then FDetails.Add('x Bit $2000 = 1: Object uses automatic fill style.')
+ else FDetails.Add(' Bit $2000 = 0: Object does NOT use automatic fill style.');
+ if w and $4000 <> 0
+ then FDetails.Add('x Bit $4000 = 1: Object uses automatic line style.')
+ else FDetails.Add(' Bit $4000 = 0: Object does NOT use automatic line style.');
+ if w and $8000 <> 0
+ then FDetails.Add('! Bit $8000 = 1: Reserved - must be zero - THIS SEEMS TO BE AN ERROR!')
+ else FDetails.Add(' Bit $8000 = 0: Reserved - must be zero.');
+ end;
+ s := '';
+ if w and $0001 <> 0 then s := s + 'locked, ';
+ if w and $0010 <> 0 then s := s + 'print, ';
+ if w and $2000 <> 0 then s := s + 'automatic fill style, ';
+ if w and $4000 <> 0 then s := s + 'automatic line style, ';
+ if s <> '' then begin
+ Delete(s, Length(s)-1, 2);
+ s := 'Option flags:' + s;
+ end else
+ s := 'Option flags';
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.04x', [w]), s);
+ inc(n);
+ end;
+ end;
+ FBufferIndex := savedBufferIndex + 4 + fieldSize;
+ end;
+ RowCount := FixedRows + n;
+ end else
+ if FFormat = sfExcel5 then begin
+ // to do
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowPageSetup;
+var
+ numBytes: Integer;
+ w: Word;
+ s: String;
+ dbl: Double;
+begin
+ if FFormat in [sfExcel5, sfExcel8] then RowCount := FixedRows + 11
+ else RowCount := FixedRows + 6;
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Paper size:'#13);
+ FDetails.Add(Format('%d - %s', [w, PaperSizeName(w)]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Paper size');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Scaling factor in percent');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLETON(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Start page number');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLETON(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Fit worksheet width to this number of pages (0 = use as many as needed)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLETON(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Fit worksheet height to this number of pages (0 = use as many as needed)');
+
+ { Excel4 not supported in fpspreadsheet }
+ {
+ if FFormat = sfExcel4 then begin
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLETON(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Print pages in columns')
+ else FDetails.Add('Bit $0001 = 1: Print pages in rows');
+ if w and $0002 = 0
+ then FDetails.add('Bit $0002 = 0: Landscape')
+ else FDetails.Add('Bit $0002 = 1: Portrait');
+ if w and $0004 = 0
+ then FDetails.Add('Bit $0004 = 0: Paper size, scaling factor, and paper orientation ' +
+ '(portrait/landscape) ARE initialised')
+ else FDetails.Add('Bit $0004 = 1: Paper size, scaling factor, and paper orientation ' +
+ '(portrait/landscape) are NOT initialised');
+ if w and $0008 = 0
+ then FDetails.Add('Bit $0008 = 0: Print colored')
+ else FDetails.add('Bit $0008 = 1: Print black and white');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x (%d)', [w, w]),
+ 'Option flags');
+ end else }
+ if (FFormat in [sfExcel5, sfExcel8]) then begin
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Print pages in columns')
+ else FDetails.Add('Bit $0001 = 1: Print pages in rows');
+ if w and $0002 = 0
+ then FDetails.add('Bit $0002 = 0: Landscape')
+ else FDetails.Add('Bit $0002 = 1: Portrait');
+ if w and $0004 = 0
+ then FDetails.Add('Bit $0004 = 0: Paper size, scaling factor, and paper orientation ' +
+ '(portrait/landscape) ARE initialised')
+ else FDetails.Add('Bit $0004 = 1: Paper size, scaling factor, and paper orientation ' +
+ '(portrait/landscape) are NOT initialised');
+ if w and $0008 = 0
+ then FDetails.Add('Bit $0008 = 0: Print colored')
+ else FDetails.add('Bit $0008 = 1: Print black and white');
+ if w and $0010 = 0
+ then FDetails.Add('Bit $0010 = 0: Default print quality')
+ else FDetails.Add('Bit $0010 = 1: Draft quality');
+ if w and $0020 = 0
+ then FDetails.Add('Bit $0020 = 0: Do NOT print cell notes')
+ else FDetails.Add('Bit $0020 = 0: Print cell notes');
+ if w and $0040 = 0
+ then FDetails.Add('Bit $0040 = 0: Use paper orientation (portrait/landscape) flag abov')
+ else FDetails.Add('Bit $0040 = 1: Use default paper orientation (landscape for chart sheets, portrait otherwise)');
+ if w and $0080 = 0
+ then FDetails.Add('Bit $0080 = 0: Automatic page numbers')
+ else FDetails.Add('Bit $0080 = 1: Use start page number above');
+ if w and $0200 = 0
+ then FDetails.Add('Bit $0200 = 0: Print notes as displayed')
+ else FDetails.Add('Bit $0200 = 1: Print notes at end of sheet');
+ case (w and $0C00) shr 10 of
+ 0: FDetails.Add('Bit $0C00 = 0: Print errors as displayed');
+ 1: FDetails.add('Bit $0C00 = 1: Do not print errors');
+ 2: FDetails.Add('Bit $0C00 = 2: Print errors as "--"');
+ 3: FDetails.Add('Bit $0C00 = 4: Print errors as "#N/A"');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x (%d)', [w, w]),
+ 'Option flags');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Print resolution in dpi');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Vertical print resolution in dpi');
+
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), 'Header margin');
+
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), 'Footer margin');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Number of copies to print');
+ end;
+
+end;
+
+procedure TBIFFGrid.ShowPalette;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+ npal: Integer;
+ i: Integer;
+ s: String;
+begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ npal := WordLEToN(w);
+
+ RowCount := FixedRows + 1 + npal;
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(npal),
+ 'Number of palette colors');
+
+ for i := 0 to npal-1 do begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWordLEToN(dw);
+ s := Format('Palette color, index #%d ($%.2x)',[i, i]);
+ case i of
+ $00..$07: ;
+ $08..$3F: s := s + ', user-defined palette';
+ $40 : s := s + ', system window text color for border lines';
+ $41 : s := s + ', system window background color for pattern background';
+ $43 : s := s + ', system face color (dialogue background color)';
+ $4D : s := s + ', system window text colour for chart border lines';
+ $4E : s := s + ', system window background color for chart areas';
+ $4F : s := s + ', automatic color for chart border lines (seems to be always Black)';
+ $50 : s := s + ', system tool tip background color (used in note objects)';
+ $51 : s := s + ', system tool tip text color (used in note objects)';
+ $7FFF : s := s + ', system window text color for fonts';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]), s);
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowPane;
+var
+ numBytes: Integer;
+ w: Word;
+ b: Byte;
+begin
+ RowCount := FixedRows + IfThen(FFormat < sfExcel5, 5, 6);
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Position of vertical split (twips or columns (if frozen))');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Position of horizontal split (twips or rows (if frozen))');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible row in bottom pane(s)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible column in right pane(s)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(b),
+ 'Identifier of pane with active cell cursor');
+
+ if FFormat >= sfExcel5 then begin
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBUfferIndex, numBytes, IntToStr(b), 'not used');
+ end;
+end;
+
+procedure TBIFFGrid.ShowPassword;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Password verifier for sheet or workbook:'#13);
+ if w = 0
+ then FDetails.Add('0 = No password')
+ else FDetails.Add(Format('$%.4x = Password verifier', [w]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Password verifier for sheet or workbook');
+end;
+
+
+procedure TBIFFGrid.ShowPrecision;
+var
+ numbytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Precision-as-displayed mode:'#13);
+ if w = 0
+ then FDetails.Add('0 = Precision-as-displayed mode selected')
+ else FDetails.Add('1 = Precision-as-displayed mode NOT selected');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Precision-as-displayed mode');
+end;
+
+
+procedure TBIFFGrid.ShowPrintGridLines;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Print sheet grid lines:'#13);
+ if w = 0
+ then FDetails.Add('0 = Do not print sheet grid lines')
+ else FDetails.Add('1 = Print sheet grid lines');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Print sheet grid lines');
+end;
+
+
+procedure TBIFFGrid.ShowPrintHeaders;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Print row/column headers');
+ FDetails.Add('(the area with row numbers and column letters):'#13);
+ if w = 0
+ then FDetails.Add('0 = Do not print row/column headers')
+ else FDetails.Add('1 = Print row/column headers');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Print row/column headers');
+end;
+
+
+procedure TBIFFGrid.ShowProt4Rev;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Removal of the shared workbook''s revision logs:'#13);
+ if w = 0
+ then FDetails.Add('0 = Removal of the shared workbook''s revision logs is allowed.')
+ else FDetails.Add('1 = Removal of the shared workbook''s revision logs is NOT allowed.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Removal of the shared workbook''s revision logs');
+end;
+
+
+procedure TBIFFGrid.ShowProt4RevPass;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Password verifier needed to change the PROT4REV record:'#13);
+ if w = 0
+ then FDetails.Add('0 = No password.')
+ else FDetails.Add(Format('$%.04x = Password verifier.', [w]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w,w]),
+ 'Password verifier needed to change the PROT4REV record');
+end;
+
+
+procedure TBIFFGrid.ShowProtect;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Protection state of the workbook:'#13);
+ if w = 0
+ then FDetails.Add(' 0 = Workbook is NOT protected.')
+ else FDetails.Add('x 1 = Workbook is protected.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Protection state of the workbook');
+end;
+
+
+procedure TBIFFGrid.ShowRecalc;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('"Recalculate before save" option:'#13);
+ if w = 0
+ then FDetails.Add(' 0 = Do not recalculate')
+ else FDetails.Add('x 1 = Recalculate before saving the document');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Recalculate before saving');
+end;
+
+
+procedure TBIFFGrid.ShowRefMode;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FbufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell reference mode:'#13);
+ if w = 0
+ then FDetails.Add('0 = RC mode (i.e. cell address shown as "R(1)C(-1)"')
+ else FDetails.Add('1 = A1 mode (i.e. cell address shown as "B1")');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Cell reference mode');
+end;
+
+
+procedure TBIFFGrid.ShowRefreshAll;
+var
+ numbytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('RefreshAll record:'#13);
+ if w = 0
+ then FDetails.Add(' 0 = Do not force refresh of external data ranges, PivotTables and XML maps on workbook load.')
+ else FDetails.Add('x 1 = Force refresh of external data ranges, PivotTables and XML maps on workbook load.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]),
+ 'Force refresh of external data ranges, Pivot tables and XML maps on workbook load');
+end;
+
+
+procedure TBIFFGrid.ShowRightMargin;
+var
+ numBytes: Integer;
+ dbl: Double;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Right page margin in inches (IEEE 754 floating-point value, 64-bit double precision)');
+end;
+
+
+procedure TBIFFGrid.ShowRK;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+ encint: DWord;
+ encdbl: QWord;
+ dbl: Double absolute encdbl;
+ s: String;
+begin
+ RowCount := FixedRows + 4;
+
+ ShowRowColData(FBufferIndex);
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to XF record');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWordLEToN(dw);
+
+ if dw and $00000002 = 0 then begin
+ encdbl := (QWord(dw) and QWord($FFFFFFFFFFFFFFFC)) shl 32;
+ if dw and $00000001 = 1 then
+ s := Format('%.2f', [dbl*0.01])
+ else
+ s := Format('%.0f', [dbl]);
+ end
+ else begin
+ s := Format('$%.16x', [-59000000]);
+ encint := ((dw and DWord($FFFFFFFC)) shr 2) or (dw and DWord($C0000000));
+ // "arithmetic shift" = replace left-most bits by original bits
+ if dw and $00000001 = 1 then
+ s := FloatToStr(encint*0.01)
+ else
+ s := IntToStr(encint);
+ end;
+
+ if Row = FCurrRow then begin
+ FDetails.Add('RK Value:'#13);
+ if dw and $00000001 = 0
+ then FDetails.Add('Bit 0 = 0: Value not changed')
+ else FDetails.Add('Bit 0 = 1: Encoded value is multiplied by 100.');
+ if dw and $00000002 = 0
+ then FDetails.Add('Bit 1 = 0: Floating point value')
+ else FDetails.Add('Bit 1 = 1: Signed integer value');
+ FDetails.Add('Bits 31-2: Encoded value ' + s);
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes,
+ Format('$%.8x', [QWord(dw)]), 'RK value ['+s+']');
+end;
+
+
+procedure TBIFFGrid.ShowRow;
+var
+ numBytes: Integer;
+ dw: DWord;
+ w: Word;
+ b: Byte;
+begin
+ RowCount := FixedRows + IfThen(FFormat = sfExcel2, 10, 7);
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index of this row');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to column of the first cell which is described by a cell record');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to column of the last cell which is described by a cell record, increased by 1');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Row height:'#13);
+ FDetails.Add(Format('Bits 14-0 = %d: Row height in twips (1/20 pt) --> %.1f-pt',
+ [w and $7FFF, (w and $7FFF)/20.0])
+ );
+ if w and $8000 = 0
+ then FDetails.Add('Bit 15 = 0: Row has custom height')
+ else FDetails.Add('Bit 15 = 1: Row has default height');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Bits 14-0: Height of row in twips (1/20 pt), Bit 15: Row has default height');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used)');
+
+ if FFormat = sfExcel2 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ '0=No defaults written, 1=Default row attribute field and XF index occur below');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Relative offset to calculate stream position of the first cell record for this row');
+
+ if b = 1 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Cell protection and XF index');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Indexes to FORMAT and FONT records');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Cell style');
+ end;
+ end
+ else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '',
+ 'In BIFF5-BIFF8 this field is not used anymore, but the DBCELL record instead.');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags and default row formatting:'#13);
+ FDetails.Add(Format('Bits 0-2 = %d: Outline level of the row', [dw and $00000007]));
+ if dw and $00000010 = 0
+ then FDetails.Add('Bit 4 = 0: Outline group does not start or end here and is not collapsed')
+ else FDetails.Add('Bit 4 = 1: Outline group starts or ends here and is collapsed');
+ if dw and $00000020 = 0
+ then FDetails.Add('Bit 5 = 0: Row is NOT hidden')
+ else FDetails.Add('Bit 5 = 1: Row is hidden');
+ if dw and $00000040 = 0
+ then FDetails.Add('Bit 6 = 0: Row height and default font height do match.')
+ else FDetails.Add('Bit 6 = 1: Row height and default font height do NOT match.');
+ if dw and $00000080 = 0
+ then FDetails.Add('Bit 7 = 0: Row does NOT have explicit default format.')
+ else FDetails.Add('Bit 7 = 1: Row has explicit default format.');
+ FDetails.Add('Bit 8 = 1: Is always 1');
+ FDetails.Add(Format('Bits 16-27 = %d: Index to default XF record', [(dw and $0FFF0000) shr 16]));
+ if dw and $10000000 = 0
+ then FDetails.Add('Bit 28 = 0: No additional space above the row.')
+ else FDetails.Add('Bit 28 = 1: Additional space above the row.');
+ if dw and $20000000 = 0
+ then FDetails.Add('Bit 29 = 0: No additional space below the row.')
+ else FDetails.Add('Bit 29 = 1: Additional space below the row.');
+ if dw and $40000000 = 0
+ then FDetails.Add('Bit 30 = 0: D0 NOT show phonetic text for all cells in the row.')
+ else FDetails.Add('Bit 30 = 1: Show phonetic text for all cells in the row.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]),
+ 'Option flags and default row formatting');
+ end;
+end;
+
+procedure TBIFFGrid.ShowRowColData(var ABufIndex: LongWord);
+var
+ w: Word;
+ numBytes: Integer;
+begin
+ // Row
+ numBytes := 2;
+ Move(FBuffer[ABufIndex], w, numBytes);
+ ShowInRow(FCurrRow, ABufIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to row');
+ // Column
+ numBytes := 2;
+ Move(FBuffer[ABufIndex], w, numBytes);
+ ShowInRow(FCurrRow, ABufIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to column');
+end;
+
+
+procedure TBIFFGrid.ShowRString;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ s: String;
+ len: Integer;
+ j: Integer;
+ wideStr: wideString;
+ ansiStr: ansiString;
+begin
+ if FFormat < sfExcel5 then
+ exit;
+
+ RowCount := FixedRows + 5;
+
+ ShowRowColData(FBufferIndex);
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]),
+ 'Index of XF record');
+
+ // String length
+ Move(FBuffer[FBufferIndex], w, 2);
+ len := WordLEToN(w);
+
+ if FFormat = sfExcel8 then
+ begin
+ SetLength(widestr, len);
+ Move(FBuffer[FBufferIndex+3], widestr[1], len*2);
+ s := UTF8Encode(WideStringLEToN(widestr));
+ numbytes := 3 + len*2;
+ end else
+ begin
+ SetLength(ansistr, len);
+ Move(FBuffer[FBufferIndex+2], ansistr[1], len);
+ s := AnsiToUTF8(ansistr);
+ numbytes := 2 + len;
+ end;
+
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s,
+ Format('%s string, 16-bit string length', [GetStringType]));
+
+ // Number of rich-text formatting runs
+ numbytes := IfThen(FFormat = sfExcel8, 2, 1);
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ len := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(len),
+ 'Count of rich-text formatting runs');
+
+ // Formatting run data
+ RowCount := RowCount + 2*len;
+ for j:=0 to len-1 do
+ begin
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ Format('Rich-Text formatting run #%d, index of first character', [j]));
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ Format('Rich-Text formatting run #%d, font index', [j]));
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowSelection;
+var
+ numBytes: Integer;
+ w: word;
+ b: Byte;
+ i, n: Integer;
+begin
+ Move(FBuffer[FBufferIndex+7], w, 2);
+ n := WordLEToN(w);
+
+ RowCount := FixedRows + 5 + n*4;
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Pane identifier (see PANE record)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to row of the active cell');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to column of the active cell');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index into the following cell range list to the entry that contains the active cell');
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(n),
+ 'Number of following cell range addresses');
+
+ numbytes := 2;
+ for i:=1 to n do begin
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to first row');
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to last row');
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to first column');
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to last column');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowSharedFormula;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ tokenBytes: Integer;
+begin
+ BeginUpdate;
+ RowCount := FixedRows + 1000;
+ // Brute force simplification because of unknown row count at this point
+ // Will be reduced at the end.
+
+ // Index to first row
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to first row');
+
+ // Index to last row
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to last row');
+
+ // Index to first column
+ numBytes := 1; // 8-bit also for BIFF8!
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to first column');
+
+ // Index to last column
+ numBytes := 1; // 8-bit also for BIFF8!
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to last column');
+
+ // Not used
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Not used');
+
+ // Number of existing FORMULA records for this shared formula
+ numBytes := 1;
+ Move(FBuffer[FBufferIndex], b, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Number of FORMULA records in shared formula');
+
+ // Size of Token array (in Bytes)
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ tokenBytes := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(tokenBytes),
+ 'Size of formula data (in Bytes)');
+
+ // Formula tokens
+ ShowFormulaTokens(tokenBytes);
+
+ RowCount := FCurrRow;
+ EndUpdate(true);
+end;
+
+
+procedure TBIFFGrid.ShowSheet;
+var
+ numBytes: Integer;
+ dw: DWord;
+ b: Byte;
+ s: String;
+begin
+ RowCount := FixedRows + 4;
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.8x)', [dw, dw]),
+ 'Absolute stream position of BOF record of sheet represented by this record.');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ 'Sheet state (0=visible, 1=hidden, 2="very" hidden)');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Sheet type ($00=worksheet, $02=Chart, $06=VB module)');
+
+ ExtractString(FBufferIndex, 1, (FFormat = sfExcel8), s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, IfThen(FFormat=sfExcel8,
+ 'Sheet name (unicode string, 8-bit string length)',
+ 'Sheet name (byte string, 8-bit string length)')
+ );
+end;
+
+
+procedure TBIFFGrid.ShowSheetPR;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit $0001 = 0: Do not show automatic page breaks')
+ else FDetails.Add('x Bit $0001 = 1: Show automatic page breaks');
+ if w and $0010 = 0
+ then FDetails.Add(' Bit $0010 = 0: Standard sheet')
+ else FDetails.Add('x Bit $0010 = 1: Dialog sheet (BIFF5-BIFF8)');
+ if w and $0020 = 0
+ then FDetails.Add(' Bit $0020 = 0: No automatic styles in outlines')
+ else FDetails.Add('x Bit $0020 = 1: Apply automatic styles to outlines');
+ if w and $0040 = 0
+ then FDetails.Add(' Bit $0040 = 0: Outline buttons above outline group')
+ else FDetails.Add('x Bit $0040 = 1: Outline buttons below outline group');
+ if w and $0080 = 0
+ then FDetails.Add(' Bit $0080 = 0: Outline buttons left of outline group')
+ else FDetails.Add('x Bit $0080 = 1: Outline buttons right of outline group');
+ if w and $0100 = 0
+ then FDetails.Add(' Bit $0100 = 0: Scale printout in percent')
+ else FDetails.Add('x Bit $0100 = 1: Fit printout to number of pages');
+ if w and $0200 = 0
+ then FDetails.Add(' Bit $0200 = 0: Save external linked values (BIFF3-BIFF4 only)')
+ else FDetails.Add('x Bit $0200 = 1: Do NOT save external linked values (BIFF3-BIFF4 only)');
+ if w and $0400 = 0
+ then FDetails.Add(' Bit $0400 = 0: Do not show row outline symbols')
+ else FDetails.Add('x Bit $0400 = 1: Show row outline symbols');
+ if w and $0800 = 0
+ then FDetails.Add(' Bit $0800 = 0: Do not show column outline symbols')
+ else FDetails.Add('x Bit $0800 = 1: Show column outline symbols');
+ case (w and $3000) shr 12 of
+ 0: FDetails.Add('x Bits $3000 = $0000: Arrange windows tiled');
+ 1: FDetails.Add('x Bits $3000 = $1000: Arrange windows horizontal');
+ 2: FDetails.Add('x Bits $3000 = $2000: Arrange windows vertical');
+ 3: FDetails.Add('x Bits $3000 = $3000: Arrange windows cascaded');
+ end;
+ if w and $4000 = 0
+ then FDetails.Add('x Bits $4000 = 0: Excel like expression evaluation (BIFF4-BIFF8 only)')
+ else FDetails.Add('x Bits $4000 = 1: Lotus like expression evaluation (BIFF4-BIFF8 only)');
+ if w and $8000 = 0
+ then FDetails.Add('x Bits $8000 = 0: Excel like formula editing (BIFF4-BIFF8 only)')
+ else FDetails.Add('x Bits $8000 = 1: Lotus like formula editing (BIFF4-BIFF8 only)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x (%d)', [w, w]),
+ 'Option flags');
+end;
+
+procedure TBIFFGrid.ShowSST;
+var
+ numBytes: Integer;
+ s: String;
+ total1, total2: DWord;
+ i, j, n: Integer;
+ rtfRuns: TRichTextFormattingRuns;
+ rtfIndex: LongWord;
+ w: Word;
+begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], total1, numBytes);
+ Move(FBuffer[FBufferIndex+4], total2, numBytes);
+ total1 := DWordLEToN(total1);
+ total2 := DWordLEToN(total2);
+ FTotalSST := total2;
+
+ RowCount := FixedRows + 1000;
+
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(total1),
+ 'Total number of shared strings in the workbook');
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(total2),
+ 'Number of following strings');
+
+ FPendingCharCount := -1;
+ n := 0;
+ for i:=1 to FTotalSST do begin
+ FCounterSST := i;
+ ExtractString(FBufferIndex, 2, true, s, numBytes, rtfRuns, rtfIndex); // BIFF8 only --> 2 length bytes
+ inc(n);
+ if FPendingCharCount = 0 then begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, IfThen(Length(rtfRuns) > 0,
+ Format('Shared string #%d (Count of Rich-Text formatting runs: %d)', [i, Length(rtfRuns)]),
+ Format('Shared string #%d', [i])));
+// ShowInRow(FCurrRow, FBufferIndex, numBytes, s, Format('Shared string #%d', [i]));
+ for j:=0 to High(rtfRuns) do
+ begin
+ ShowInRow(FCurrRow, rtfIndex, 2, IntToStr(rtfRuns[j].FirstIndex),
+ Format(' Rich-Text formatting run #%d, index of first character', [j]));
+ ShowInRow(FCurrRow, rtfIndex, 2, IntToStr(rtfRuns[j].FontIndex),
+ Format(' Rich-Text formatting run #%d, font index', [j]));
+ inc(n, 2);
+ end;
+ end
+ else
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, Format('Shared string #%d - partial (--> CONTINUE)', [i]));
+ FInfo := BIFFNODE_SST_CONTINUE;
+ break;
+ end;
+ end;
+ RowCount := FixedRows + 2 + n;
+end;
+
+
+procedure TBIFFGrid.ShowStandardWidth;
+var
+ w: Word;
+ numBytes: Integer;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d (%f characters)', [w, w/256]),
+ 'Default column width (overrides DFCOLWIDTH, in 1/256 of "0" width)');
+end;
+
+
+procedure TBIFFGrid.ShowString;
+var
+ numBytes: Integer;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ case FFormat of
+ sfExcel2:
+ begin
+ ExtractString(FBufferIndex, 1, false, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Byte string, 8-bit string length');
+ end;
+ sfExcel5:
+ begin
+ ExtractString(FBufferIndex, 2, false, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Byte string, 16-bit string length');
+ end;
+ sfExcel8:
+ begin
+ ExtractString(FBufferIndex, 2, true, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Unicode string, 16-bit string length');
+ end;
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowStyle;
+var
+ numBytes: Integer;
+ b: Byte;
+ w: Word;
+ s: String;
+ isRowLevel: Boolean;
+ isColLevel: Boolean;
+begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if w and $8000 = 0 then
+ RowCount := FixedRows + 2
+ else
+ RowCount := FixedRows + 3;
+ if Row = FCurrRow then begin
+ FDetails.Add('Style:'#13);
+ FDetails.Add(Format('Bits 0-11 = %d: Index to style XF record', [w and $0FFFF]));
+ if w and $8000 = 0
+ then FDetails.Add('Bit 15 = 0: user-defined style')
+ else FDetails.Add('Bit 15 = 1: built-in style');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Style index and type');
+
+ if w and $8000 = 0 then begin
+ if FFormat = sfExcel8 then begin
+ ExtractString(FBufferIndex, 2, true, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Style name (Unicode string, 16-bit string length)');
+ end else begin
+ ExtractString(FBufferIndex, 1, false, s, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Style name (Byte string, 8-bit string length)');
+ end;
+ end else begin
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ isRowLevel := (b = 1);
+ isColLevel := (b = 2);
+ if FCurrRow = Row then begin
+ FDetails.Add('Identifier for built-in cell style:'#13);
+ case b of
+ 0: FDetails.Add('0 = normal');
+ 1: FDetails.Add('1 = RowLevel (see next field)');
+ 2: FDetails.Add('2 = ColLevel (see next field)');
+ 3: FDetails.Add('3 = Comma');
+ 4: FDetails.Add('4 = Currency');
+ 5: FDetails.Add('5 = Percent');
+ 6: FDetails.Add('6 = Comma [0]');
+ 7: FDetails.Add('7 = Currency [0]');
+ 8: FDetails.Add('8 = Hyperlink');
+ 9: FDetails.Add('9 = Followed hyperlink');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Identifier for built-in cell style');
+
+ b := FBuffer[FBufferIndex];
+ if FCurrRow = Row then begin
+ FDetails.Add('Level for RowLevel or ColLevel style (zero-based):'#13);
+ if b = $FF then
+ FDetails.Add('$FF = no RowLevel or ColLevel style')
+ else
+ if isRowLevel then
+ FDetails.Add('RowLevel = ' + IntToStr(b))
+ else if isColLevel then
+ FDetails.Add('ColLevel = ' + IntToStr(b));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ 'Level for RowLevel or ColLevel style (if available)');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowStyleExt;
+var
+ numBytes: Integer;
+ w: Word;
+ b: Byte;
+ bs: Byte;
+ s: String;
+begin
+ RowCount := FixedRows + 11;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]),
+ 'Future record type');
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Attributes:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit 0 = 0: The containing record does not specify a range of cells.')
+ else FDetails.Add('x Bit 0 = 1: The containing record specifies a range of cells.');
+ FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+
+ 'when saving the file whithout having reckognized this record.');
+ FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Attributes');
+ numbytes := 8;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Reserved');
+
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Flags:'#13);
+ if b and $01 = 0
+ then FDetails.Add(' Bit 0 = 0: no built-in style')
+ else FDetails.Add('x Bit 0 = 1: built-in style');
+ if b and $02 = 0
+ then FDetails.Add(' Bit 1 = 0: NOT hidden')
+ else FDetails.Add('x Bit 1 = 1: hidden (i.e. is displayed in user interface)');
+ FDetails.Add('Bit 2: specifies whether the built-in cell style was modified '+
+ 'by the user and thus has a custom definition.');
+ FDetails.Add('Bit 3-7: Reserved');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Flags');
+
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Category:'#13);
+ case b of
+ 0: FDetails.Add('Bits 0-7 = 0: Custom style');
+ 1: FDetails.Add('Bits 0-7 = 1: Good, bad, neutral style');
+ 2: FDetails.Add('Bits 0-7 = 2: Data model style');
+ 3: FDetails.Add('Bits 0-7 = 3: Title and heading style');
+ 4: FDetails.Add('Bits 0-7 = 4: Themed cell style');
+ 5: FDetails.Add('Bits 0-7 = 5: Number format style');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Category');
+
+ numbytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Built-in style:'#13);
+ FDetails.Add('An unsigned integer that specifies the type of the built-in cell style.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Built-in style');
+ bs := b;
+
+ numbytes := 1;
+ b := FBuffer[FBufferindex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Outline depth level:'#13);
+ FDetails.Add('An unsigned integer that specifies the depth level of row/column automatic outlining.');
+ if (bs in [1, 2]) then
+ FDetails.Add(Format('Bits 0-7 = %d: Outline level is %d', [b, b+1]))
+ else
+ FDetails.Add(Format('Bits 0-7 = $%.2x: MUST be $FF, MUST be ignoried', [b]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]), 'Outline depth level');
+
+ ExtractString(FBufferIndex, 1, true, s, numBytes, true);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Name of the style name to extend (Unicode string, 8-bit string length)');
+
+ numbytes := 2;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'XFProps (reserved)');
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Count of XFProp structures to follow in array');
+
+
+end;
+
+
+procedure TBiffGrid.ShowTabID;
+var
+ numbytes: Integer;
+ w: word;
+ i, n: Integer;
+begin
+ numbytes := 2;
+ n := Length(FBuffer) div numbytes;
+ RowCount := FixedRows + n;
+ for i := 1 to n do begin
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]),
+ 'Unique sheet identifier');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowTopMargin;
+var
+ numBytes: Integer;
+ dbl: Double;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 8;
+ Move(FBuffer[FBufferIndex], dbl, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl),
+ 'Top page margin in inches (IEEE 754 floating-point value, 64-bit double precision)');
+end;
+
+
+procedure TBIFFGrid.ShowTXO;
+var
+ numbytes: Word;
+ w: Word;
+ s, sh, sv, sl: String;
+begin
+ RowCount := FixedRows + 9;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ sh := '';
+ case (w and $000E) shr 1 of
+ 1: sh := sh + 'left-aligned, ';
+ 2: sh := sh + 'centered, ';
+ 3: sh := sh + 'right-aligned, ';
+ 4: sh := sh + 'justified, ';
+ end;
+ sv := '';
+ case (w and $0070) shr 4 of
+ 1: sv := sv + 'top, ';
+ 2: sv := sv + 'middle, ';
+ 3: sv := sv + 'bottom, ';
+ 4: sv := sv + 'justify, ';
+ end;
+ s := sh + sv;
+ if (w and $0200) shr 9 <> 0 then s := s + 'lock text, ';
+ if Row = FCurrRow then begin
+ FDetails.Add( 'Option flags:'#13);
+ FDetails.Add( 'Bit 0: Reserved');
+ if sh = '' then sh := 'none';
+ FDetails.Add( 'Bits 1-3: 0 = Horizontal text alignment: ' + sh);
+ if sv = '' then sv := 'none';
+ FDetails.Add( 'Bits 4-6: 0 = Vertical text alignment: ' + sv);
+ FDetails.Add( 'Bits 7-8: Reserved');
+ case (w and $0200) shr 9 of
+ 0: FDetails.Add('Bit 9: Lock Text Option is off.');
+ 1: FDetails.Add('Bit 9: Lock Text Option is on');
+ end;
+ FDetails.Add( 'Bits 10-15: Reserved');
+ end;
+ if s <> '' then begin
+ Delete(s, Length(s)-1, 2);
+ s := 'Option flags: ' + s;
+ end else
+ s := 'Option flags';
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), s);
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ case w of
+ 0: s := 'No rotation (text appears left to right';
+ 1: s := 'Text appears top to bottom; letters are upright';
+ 2: s := 'Text is rotated 90 degrees counterclockwise';
+ 3: s := 'Text is rotated 90 degrees clockwise';
+ end;
+ if Row = FCurrRow then begin
+ FDetails.Add('Orientation of text with the object boundary:'#13);
+ FDetails.Add(Format('%d = %s', [w, s]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w),
+ 'Orientation of text within the object boundary: ' + s);
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Reserved (must be 0)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Reserved (must be 0)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Reserved (must be 0)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Length (in characters) of text (in first following CONTINUE record)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Length of formatting runs (in second following CONTINUE record)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Reserved (must be 0)');
+
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Reserved (must be 0)');
+end;
+
+procedure TBIFFGrid.ShowWindow1;
+var
+ numBytes: Word;
+ b: Byte;
+ w: word;
+begin
+ RowCount := FixedRows + IfThen(FFormat < sfExcel5, 5, 9);
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Horizontal position of the document window (in twips = 1/20 pt)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Vertical position of the document window (in twips = 1/20 pt)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Width of the document window (in twips = 1/20 pt)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Height of the document window (in twips = 1/20 pt)');
+
+ if FFormat < sfExcel5 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(b)),
+ '0 = Window is visible; 1 = window is hidden');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:');
+ if w and $0001 = 0
+ then FDetails.Add(' Bit $0001 = 0: Window is visible')
+ else FDetails.Add('x Bit $0001 = 1: Window is hidden');
+ if w and $0002 = 0
+ then FDetails.Add(' Bit $0002 = 0: Window is open')
+ else FDetails.Add('x Bit $0002 = 1: Window is minimized');
+ if w and $0008 = 0
+ then FDetails.Add(' Bit $0008 = 0: Horizontal scrollbar hidden')
+ else FDetails.Add('x Bit $0008 = 1: Horizontal scrollbar visible');
+ if w and $0010 = 0
+ then FDetails.Add(' Bit $0010 = 0: Vertical scrollbar hidden')
+ else FDetails.Add('x Bit $0010 = 1: Vertical scrollbar visible');
+ if w and $0020 = 0
+ then FDetails.Add(' Bit $0020 = 0: Worksheet tab bar hidden')
+ else FDetails.Add('x Bit $0020 = 1: Worksheet tab bar visible');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]),
+ 'Option flags');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to active (displayed) worksheet');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index of first visible tab in the worksheet tab bar');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Number of selected worksheets (highlighted in the worksheet tab bar)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Width of worksheet tab bar (in 1/1000 of window width). '+
+ 'The remaining space is used by the horizontal scrollbar.');
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowWindow2;
+var
+ numBytes: Word;
+ b: Byte;
+ w: word;
+ dw : DWord;
+begin
+ if FFormat = sfExcel2 then begin
+ RowCount := FixedRows + 9;
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Show formula results; 1 = Show formulas');
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Do not show grid lines; 1 = Show grid lines');
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Do not show sheet headers; 1 = Show sheet headers');
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Panes are not frozen; 1 = Panes are frozen');
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Show zero values as empty cells; 1 = Show zero values');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible row');
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible column');
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b),
+ '0 = Use manual grid line colour (below); 1 = Use automatic grid line colour');
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [DWordLEToN(dw)]),
+ 'Grid line RGB color');
+ end else begin
+ RowCount := FixedRows + IfThen(FFormat = sfExcel5, 4, 8);
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Option flags:');
+ if w and $0001 = 0
+ then FDetails.Add(' Bit $0001 = 0: Show formula results')
+ else FDetails.Add('x Bit $0001 = 1: Show formulas');
+ if w and $0002 = 0
+ then FDetails.Add(' Bit $0002 = 0: Do not show grid lines')
+ else FDetails.Add('x Bit $0002 = 1: Show grid lines');
+ if w and $0004 = 0
+ then FDetails.Add(' Bit $0004 = 0: Do not show sheet headers')
+ else FDetails.Add('x Bit $0004 = 1: Show sheet headers');
+ if w and $0008 = 0
+ then FDetails.Add(' Bit $0008 = 0: Panes are not frozen')
+ else FDetails.Add('x Bit $0008 = 1: Panes are frozen');
+ if w and $0010 = 0
+ then FDetails.Add(' Bit $0010 = 0: Show zero values as empty cells')
+ else FDetails.Add('x Bit $0010 = 1: Show zero values');
+ if w and $0020 = 0
+ then FDetails.Add(' Bit $0020 = 0: Manual grid line color')
+ else FDetails.Add('x Bit $0020 = 1: Automatic grid line color');
+ if w and $0040 = 0
+ then FDetails.Add(' Bit $0040 = 0: Columns from left to right')
+ else FDetails.Add('x Bit $0040 = 1: Columns from right to left');
+ if w and $0080 = 0
+ then FDetails.Add(' Bit $0080 = 0: Do not show outline symbols')
+ else FDetails.Add('x Bit $0080 = 1: Show outline symbols');
+ if w and $0100 = 0
+ then FDetails.Add(' Bit $0100 = 0: Keep splits if pane freeze is removed')
+ else FDetails.Add('x Bit $0100 = 1: Remove splits if pane freeze is removed');
+ if w and $0200 = 0
+ then FDetails.Add(' Bit $0200 = 0: Sheet not selected')
+ else FDetails.Add('x Bit $0200 = 1: Sheet selected');
+ if w and $0400 = 0
+ then FDetails.Add(' Bit $0400 = 0: Sheet not active')
+ else FDetails.Add('x Bit $0400 = 1: Sheet active');
+ if w and $0800 = 0
+ then FDetails.Add(' Bit $0800 = 0: Show in normal view')
+ else FDetails.Add('x Bit $0800 = 1: Show in page break preview');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]),
+ 'Option flags');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible row');
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Index to first visible column');
+
+ if FFormat =sfExcel5 then begin
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [DWordLEToN(dw)]),
+ 'Grid line RGB color');
+ end else begin
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Color index of grid line color');
+
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Not used');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Cached magnification factor in page break preview (in percent); 0 = Default (60%)');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)),
+ 'Cached magnification factor in normal view (in percent); 0 = Default (100%)');
+
+ numBytes := 4;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Not used');
+ end;
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowWindowProtect;
+var
+ numBytes: Integer;
+ w: Word;
+begin
+ RowCount := FixedRows + 1;
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Protection state of workbook windows:'#13);
+ if w = 0
+ then FDetails.Add('0 = The workbook windows can be resized or moved and the window state can be changed.')
+ else FDetails.Add('1 = The workbook windows cannot be resized or moved and the window state cannot be changed.');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'Protection state of the workbook windows');
+end;
+
+
+procedure TBIFFGrid.ShowWriteAccess;
+var
+ numbytes: Integer;
+ s: String;
+begin
+ RowCount := FixedRows + 1;
+ ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8, s, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'User name (i.e., the name that you type when you install Microsoft Excel');
+end;
+
+
+procedure TBIFFGrid.ShowWriteProt;
+begin
+ RowCount := FixedRows + 2;
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Write protect: if present file is write-protected');
+ ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Write protection password is in FILESHARING record');
+end;
+
+
+procedure TBIFFGrid.ShowXF;
+var
+ numBytes: Word;
+ b: Byte;
+ w: word;
+ dw : DWord;
+begin
+ if FFormat = sfExcel2 then begin
+ RowCount := FixedRows + 4;
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b),
+ 'Index to font record');
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, '',
+ '(not used)');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Number format and cell flags:'#13);
+ FDetails.Add(Format('Bits 0-5 = %d: Index to FORMAT record', [b and $3F]));
+ if b and $40 = 0
+ then FDetails.Add('Bit 6 = 0: Cell is not locked')
+ else FDetails.Add('Bit 6 = 1: Cell is locked');
+ if b and $80 = 0
+ then FDetails.Add('Bit 7 = 0: Formula is not hidden')
+ else FDetails.Add('Bit 7 = 1: Formula is hidden');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b, b]),
+ 'Number format and cell flags');
+
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Horizontal alignment, border style and background:'#13);
+ case b and $07 of
+ 0: FDetails.Add('Bits $07 = 0: Horizontal alignment "General"');
+ 1: FDetails.Add('Bits $07 = 1: Horizontal alignment "Left"');
+ 2: FDetails.Add('Bits $07 = 2: Horizontal alignemnt "Centered"');
+ 3: FDetails.Add('Bits $07 = 3: Horizontal alignment "Right"');
+ 4: FDetails.Add('Bits $07 = 4: Horizontal alignment "Filled"');
+ 5: FDetails.Add('Bits $07 = 5: Horizontal alignment "Justified"');
+ 6: FDetails.Add('Bits $07 = 6: Horizontal alignment "Centred across selection"');
+ 7: FDetails.Add('Bits $07 = 7: Horizontal alignment "Distributed"');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit $08 = 0: Cell has no left border')
+ else FDetails.Add('Bit $08 = 1: Cell has left black border');
+ if b and $10 = 0
+ then FDetails.Add('Bit $10 = 0: Cell has no right border')
+ else FDetails.Add('Bit $10 = 1: Cell has right black border');
+ if b and $20 = 0
+ then FDetails.Add('Bit $20 = 0: Cell has no top border')
+ else FDetails.Add('Bit $20 = 1: Cell has top black border');
+ if b and $40 = 0
+ then FDetails.Add('Bit $40 = 0: Cell has no bottom border')
+ else FDetails.Add('Bit $40 = 1: Cell has bottom black border');
+ if b and $80 = 0
+ then FDetails.Add('Bit $80 = 0: Cell has no shaded background')
+ else FDetails.Add('Bit $80 = 1: Cell has shaded background');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Horizontal alignment, border style, and background');
+ end
+ else
+ begin // XF (BIFF5 and BIFF8)
+ RowCount := FixedRows + IfThen(FFormat=sfExcel5, 7, 10);
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to font record');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)),
+ 'Index to format record');
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('XFType, cell protection, parent style XF:'#13);
+ if w and $0001 = 0
+ then FDetails.Add('Bit $0001 = 0: Cell is not locked')
+ else FDetails.Add('Bit $0001 = 1: Cell is locked');
+ if w and $0002 = 0
+ then FDetails.Add('Bit $0002 = 0: Formula is not hidden')
+ else FDetails.Add('Bit $0002 = 1: Formula is hidden');
+ if w and $0004 = 0
+ then FDetails.Add('Bit $0004 = 0: Cell XF')
+ else FDetails.Add('Bit $0004 = 1: Style XF');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]),
+ 'XFType, cell protection, parent style XF');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Alignment and text break:'#13);
+ case b and $03 of
+ 0: FDetails.Add('Bits 0-2 = 0: Horizontal alignment "General"');
+ 1: FDetails.Add('Bits 0-2 = 1: Horizontal alignment "Left"');
+ 2: FDetails.Add('Bits 0-2 = 2: Horizontal alignemnt "Centered"');
+ 3: FDetails.Add('Bits 0-2 = 3: Horizontal alignment "Right"');
+ 4: FDetails.Add('Bits 0-2 = 4: Horizontal alignment "Filled"');
+ 5: FDetails.Add('Bits 0-2 = 5: Horizontal alignment "Justified"');
+ 6: FDetails.Add('Bits 0-2 = 6: Horizontal alignment "Centred across selection"');
+ 7: if FFormat = sfExcel8 then
+ FDetails.Add('x Bits 0-2 = 7: Horizontal alignment "Distributed"');
+ end;
+ if b and $08 = 0
+ then FDetails.Add('Bit 3 = 0: Text is not wrapped.')
+ else FDetails.Add('Bit 3 = 1: Text is wrapped at right border.');
+ case (b and $70) shr 4 of
+ 0: FDetails.Add('Bits 4-6 = 0: Vertical alignment "Top"');
+ 1: FDetails.Add('Bits 4-6 = 1: Vertical alignment "Centered"');
+ 2: FDetails.Add('Bits 4-6 = 2: Vertical alignment "Bottom"');
+ 3: FDetails.Add('Bits 4-6 = 3: Vertical alignment "Justified"');
+ 4: if FFormat = sfExcel8 then
+ FDetails.Add('Bits 4-6 = 4: Vertical alignment "Distributed"');
+ end;
+ if FFormat = sfExcel8 then begin
+ if b and $80 = 0
+ then FDetails.Add('Bit 3 = 0: Do NOT justify last line in justified or distibuted text')
+ else FDetails.Add('Bit 3 = 1: Justify last line in justified or distibuted text');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Alignment and text break');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if FFormat = sfExcel5 then begin
+ if Row = FCurrRow then begin
+ FDetails.Add('Text orientation and flags for used attribute groups:'#13);
+ case (b and $03) of
+ 0: FDetails.Add('Bits $03 = 0: not rotated');
+ 1: FDetails.Add('Bits $03 = 1: not rotated, letters stacked top-to-bottom');
+ 2: FDetails.Add('Bits $03 = 2: text rotated 90° counter-clockwise');
+ 3: FDetails.Add('Bits $03 = 3: text rotated 90° clockwise');
+ end;
+ if b and $04 = 0
+ then FDetails.Add('Bit $04 = 0: No flag for number format')
+ else FDetails.Add('Bit $04 = 1: Flag for number format');
+ if b and $08 = 0
+ then FDetails.Add('Bit $08 = 0: No flag for font')
+ else FDetails.Add('Bit $08 = 2: Flag for font');
+ if b and $10 = 0
+ then FDetails.Add('Bit $10 = 0: No flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction')
+ else FDetails.Add('Bit $10 = 1: Flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction');
+ if b and $20 = 0
+ then FDetails.Add('Bit $20 = 0: No flag for border lines')
+ else FDetails.Add('Bit $20 = 1: Flag for border lines');
+ if b and $40 = 0
+ then FDetails.Add('Bit $40 = 0: No flag for background area style')
+ else FDetails.Add('Bit $40 = 1: Flag for background area style');
+ if b and $80 = 0
+ then FDetails.Add('Bit $80 = 0: No flag for cell protection (cell locked and formula hidden)')
+ else FDetails.Add('Bit $80 = 1: Flag for cell protection (cell locked and formula hidden)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]),
+ 'Text orientation and flags for used attribute groups');
+ end else
+ begin // sfExcel8
+ if Row = FCurrRow then begin
+ FDetails.Add('Text rotation angle:'#13);
+ if b = 0 then
+ FDetails.Add('not rotated')
+ else if b <= 90 then
+ FDetails.Add(Format('%d degrees counter-clockwise', [b]))
+ else if b <= 180 then
+ FDetails.Add(Format('%d degrees clockwize', [b-90]))
+ else if b = 255 then
+ FDetails.Add('not rotated, letters stacked top-to-bottom');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), 'Text rotation angle');
+ end;
+
+ if FFormat = sfExcel8 then begin
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Indentation, shrink to cell size, and text direction:'#13);
+ FDetails.Add(Format('Bits 0-3: Indent level = %d', [b and $0F]));
+ if b and $10 = 0
+ then FDetails.Add('Bit $10 = 0: Don''t shrink content to fit into cell')
+ else FDetails.Add('Bit $10 = 1: Shrink content to fit into cell');
+ if b and $20 = 0
+ then FDetails.Add('Bit $20 = 0: Merge Cell option is OFF')
+ else FDetails.Add('Bit $20 = 1: Merge Cell option is ON');
+ case (b and $C0) shr 6 of
+ 0: FDetails.Add('Bits 6-7 = 0: Text direction according to context');
+ 1: FDetails.Add('Bits 6-7 = 1: Text direction left-to-right');
+ 2: FDetails.Add('Bits 6-7 = 2: Text direction right-to-left');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]),
+ 'Indentation, shrink to cell size, and text direction');
+
+ numBytes := 1;
+ b := FBuffer[FBufferIndex];
+ if Row = FCurrRow then begin
+ FDetails.Add('Flags for used attribute groups:'#13);
+ if b and $04 = 0
+ then FDetails.Add('Bit $04 = 0: No flag for number format')
+ else FDetails.Add('Bit $04 = 1: Flag for number format');
+ if b and $08 = 0
+ then FDetails.Add('Bit $08 = 0: No flag for font')
+ else FDetails.Add('Bit $08 = 2: Flag for font');
+ if b and $10 = 0
+ then FDetails.Add('Bit $10 = 0: No flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction')
+ else FDetails.Add('Bit $10 = 1: Flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction');
+ if b and $20 = 0
+ then FDetails.Add('Bit $20 = 0: No flag for border lines')
+ else FDetails.Add('Bit $20 = 1: Flag for border lines');
+ if b and $40 = 0
+ then FDetails.Add('Bit $40 = 0: No flag for background area style')
+ else FDetails.Add('Bit $40 = 1: Flag for background area style');
+ if b and $80 = 0
+ then FDetails.Add('Bit $80 = 0: No flag for cell protection (cell locked and formula hidden)')
+ else FDetails.Add('Bit $80 = 1: Flag for cell protection (cell locked and formula hidden)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]),
+ 'Flags for used attribute groups');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell border lines and background area:'#13);
+ case dw and $0000000F of
+ $0000: FDetails.Add('Bits 0-3 = 0: Left border = No line');
+ $0001: FDetails.Add('Bits 0-3 = 1: Left border = thin solid line');
+ $0002: FDetails.Add('Bits 0-3 = 2: Left border = medium solid line');
+ $0003: FDetails.Add('Bits 0-3 = 3: Left border = dashed line');
+ $0004: FDetails.Add('Bits 0-3 = 4: Left border = dotted line');
+ $0005: FDetails.Add('Bits 0-3 = 5: Left border = thick solid line');
+ $0006: FDetails.Add('Bits 0-3 = 6: Left border = double solid line');
+ $0007: FDetails.Add('Bits 0-3 = 7: Left border = hair line');
+ $0008: FDetails.Add('Bits 0-3 = 8: Left border = medium dashed');
+ $0009: FDetails.Add('Bits 0-3 = 9: Left border = thin dash-dotted');
+ $000A: FDetails.Add('Bits 0-3 = 10: Left border = medium dash-dotted');
+ $000B: FDetails.Add('Bits 0-3 = 11: Left border = thin dash-dot-dotted');
+ $000C: FDetails.Add('Bits 0-3 = 12: Left border = medium dash-dot-dotted');
+ $000D: FDetails.Add('Bits 0-3 = 13: Left border = slanted medium dash-dotted');
+ end;
+ case dw and $000000F0 of
+ $0000: FDetails.Add('Bits 4-7 = 0: Right border = No line');
+ $0010: FDetails.Add('Bits 4-7 = 1: Right border = thin solid line');
+ $0020: FDetails.Add('Bits 4-7 = 2: Right border = medium solid line');
+ $0030: FDetails.Add('Bits 4-7 = 3: Right border = dashed line');
+ $0040: FDetails.Add('Bits 4-7 = 4: Right border = dotted line');
+ $0050: FDetails.Add('Bits 4-7 = 5: Right border = thick solid line');
+ $0060: FDetails.Add('Bits 4-7 = 6: Right border = double solid line');
+ $0070: FDetails.Add('Bits 4-7 = 7: Right border = hair line');
+ $0080: FDetails.Add('Bits 4-7 = 8: Right border = medium dashed');
+ $0090: FDetails.Add('Bits 4-7 = 9: Right border = thin dash-dotted');
+ $00A0: FDetails.Add('Bits 4-7 = 10: Right border = medium dash-dotted');
+ $00B0: FDetails.Add('Bits 4-7 = 11: Right border = thin dash-dot-dotted');
+ $00C0: FDetails.Add('Bits 4-7 = 12: Right border = medium dash-dot-dotted');
+ $00D0: FDetails.Add('Bits 4-7 = 13: Right border = slanted medium dash-dotted');
+ end;
+ case dw and $00000F00 of
+ $0000: FDetails.Add('Bits 8-11 = 0: Top border = No line');
+ $0100: FDetails.Add('Bits 8-11 = 1: Top border = thin solid line');
+ $0200: FDetails.Add('Bits 8-11 = 2: Top border = medium solid line');
+ $0300: FDetails.Add('Bits 8-11 = 3: Top border = dashed line');
+ $0400: FDetails.Add('Bits 8-11 = 4: Top border = dotted line');
+ $0500: FDetails.Add('Bits 8-11 = 5: Top border = thick solid line');
+ $0600: FDetails.Add('Bits 8-11 = 6: Top border = double solid line');
+ $0700: FDetails.Add('Bits 8-11 = 7: Top border = hair line');
+ $0800: FDetails.Add('Bits 8-11 = 8: Top border = medium dashed');
+ $0900: FDetails.Add('Bits 8-11 = 9: Top border = thin dash-dotted');
+ $0A00: FDetails.Add('Bits 8-11 = 10: Top border = medium dash-dotted');
+ $0B00: FDetails.Add('Bits 8-11 = 11: Top border = thin dash-dot-dotted');
+ $0C00: FDetails.Add('Bits 8-11 = 12: Top border = medium dash-dot-dotted');
+ $0D00: FDetails.Add('Bits 8-11 = 13: Top border = slanted medium dash-dotted');
+ end;
+ case dw and $0000F000 of
+ $0000: FDetails.Add('Bits 12-15 = 0: Bottom border = No line');
+ $1000: FDetails.Add('Bits 12-15 = 1: Bottom border = thin solid line');
+ $2000: FDetails.Add('Bits 12-15 = 2: Bottom border = medium solid line');
+ $3000: FDetails.Add('Bits 12-15 = 3: Bottom border = dashed line');
+ $4000: FDetails.Add('Bits 12-15 = 4: Bottom border = dotted line');
+ $5000: FDetails.Add('Bits 12-15 = 5: Bottom border = thick solid line');
+ $6000: FDetails.Add('Bits 12-15 = 6: Bottom border = double solid line');
+ $7000: FDetails.Add('Bits 12-15 = 7: Bottom border = hair line');
+ $8000: FDetails.Add('Bits 12-15 = 8: Bottom border = medium dashed');
+ $9000: FDetails.Add('Bits 12-15 = 9: Bottom border = thin dash-dotted');
+ $A000: FDetails.Add('Bits 12-15 = 10: Bottom border = medium dash-dotted');
+ $B000: FDetails.Add('Bits 12-15 = 11: Bottom border = thin dash-dot-dotted');
+ $C000: FDetails.Add('Bits 12-15 = 12: Bottom border = medium dash-dot-dotted');
+ $D000: FDetails.Add('Bits 12-15 = 13: Bottom border = slanted medium dash-dotted');
+ end;
+ FDetails.Add(Format('Bits 16-22 = %d: Color index for left line color', [(dw and $007F0000) shr 16]));
+ FDetails.Add(Format('Bits 23-29 = %d: Color index for right line color', [(dw and $3F800000) shr 23]));
+ if dw and $40000000 = 0
+ then FDetails.Add('Bit 30 = 0: No diagonal line from top left to right bottom')
+ else FDetails.Add('Bit 30 = 1: Diagonal line from top left to right bottom');
+ if dw and $80000000 = 0
+ then FDetails.Add('Bit 31 = 0: No diagonal line from bottom left to right top')
+ else FDetails.Add('Bit 31 = 1: Diagonal line from bottom left to right top');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]),
+ 'Cell border lines and background area');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell border lines and background area (cont''d):'#13);
+ FDetails.Add(Format('Bits 0-6 = %d: Color index for top line color', [(dw and $0000007F)]));
+ FDetails.Add(Format('Bits 7-13 = %d: Color index for bottom line color', [(dw and $00003F80) shr 7]));
+ FDetails.Add(Format('Bits 14-20 = %d: Color index for diagonal line color', [(dw and $001FC000) shr 14]));
+ case dw and $01E00000 shr 17 of
+ $0: FDetails.Add('Bits 21-24 = 0: Diagonal line style = No line');
+ $1: FDetails.Add('Bits 21-24 = 1: Diagonal line style = thin solid line');
+ $2: FDetails.Add('Bits 21-24 = 2: Diagonal line style = medium solid line');
+ $3: FDetails.Add('Bits 21-24 = 3: Diagonal line style = dashed line');
+ $4: FDetails.Add('Bits 21-24 = 4: Diagonal line style = dotted line');
+ $5: FDetails.Add('Bits 21-24 = 5: Diagonal line style = thick solid line');
+ $6: FDetails.Add('Bits 21-24 = 6: Diagonal line style = double solid line');
+ $7: FDetails.Add('Bits 21-24 = 7: Diagonal line style = hair line');
+ $8: FDetails.Add('Bits 21-24 = 8: Diagonal line style = medium dashed');
+ $9: FDetails.Add('Bits 21-24 = 9: Diagonal line style = thin dash-dotted');
+ $A: FDetails.Add('Bits 21-24 = 10: Diagonal line style = medium dash-dotted');
+ $B: FDetails.Add('Bits 21-24 = 11: Diagonal line style = thin dash-dot-dotted');
+ $C: FDetails.Add('Bits 21-24 = 12: Diagonal line style = medium dash-dot-dotted');
+ $D: FDetails.Add('Bits 21-24 = 13: Diagonal line style = slanted medium dash-dotted');
+ end;
+ case (dw and $FC000000) shr 26 of
+ $00: FDetails.Add('Bits 26-31 = 0: Fill pattern = No fill');
+ $01: FDetails.Add('Bits 26-31 = 1: Fill pattern = solid fill');
+ $02: FDetails.Add('Bits 26-31 = 2: Fill pattern = medium fill');
+ $03: FDetails.Add('Bits 26-31 = 3: Fill pattern = dense fill');
+ $04: FDetails.Add('Bits 26-31 = 4: Fill pattern = sparse fill');
+ $05: FDetails.Add('Bits 26-31 = 5: Fill pattern = horizontal fill');
+ $06: FDetails.Add('Bits 26-31 = 6: Fill pattern = vertical fill');
+ $07: FDetails.Add('Bits 26-31 = 7: Fill pattern = backslash fill');
+ $08: FDetails.Add('Bits 26-31 = 8: Fill pattern = slash fill');
+ $09: FDetails.Add('Bits 26-31 = 9: Fill pattern = coarse medium fill');
+ $0A: FDetails.Add('Bits 26-31 = 10: Fill pattern = coarse medium horiz fill');
+ $0B: FDetails.Add('Bits 26-31 = 11: Fill pattern = sparse horizontal fill');
+ $0C: FDetails.Add('Bits 26-31 = 12: Fill pattern = sparse vertical fill');
+ $0D: FDetails.Add('Bits 26-31 = 13: Fill pattern = sparse backslash fill');
+ $0E: FDetails.Add('Bits 26-31 = 14: Fill pattern = sparse slash fill');
+ $0F: FDetails.Add('Bits 26-31 = 15: Fill pattern = cross fill');
+ $10: FDetails.Add('Bits 26-31 = 16: Fill pattern = dense backslash fill');
+ $11: FDetails.Add('Bits 26-31 = 17: Fill pattern = very sparse fill');
+ $12: FDetails.Add('Bits 26-31 = 18: Fill pattern = extremely sparse fill');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]),
+ 'Cell border lines and background area (cont''d)');
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell border lines and background area (cont''d):'#13);
+ FDetails.Add(Format('Bits 0-6 = %d: Color index for pattern color', [(w and $007F)]));
+ FDetails.Add(Format('Bits 7-13 = %d: Color index for pattern background color', [(w and $3F80) shr 7]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Cell border lines and background area (cont''d)');
+ end;
+
+ if FFormat = sfExcel5 then begin
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWordLEToN(dw);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell border lines and background area:'#13);
+ FDetails.Add(Format('Bits 0-6 = %d: Color index for pattern color', [(dw and $007F)]));
+ FDetails.Add(Format('Bits 7-13 = %d: Color index for pattern background color', [(dw and $3F80) shr 7]));
+ case (dw and $003F0000) shr 16 of
+ $00: FDetails.Add('Bits 16-21 = 0: Fill pattern = No fill');
+ $01: FDetails.Add('Bits 16-21 = 1: Fill pattern = solid fill');
+ $02: FDetails.Add('Bits 16-21 = 2: Fill pattern = medium fill');
+ $03: FDetails.Add('Bits 16-21 = 3: Fill pattern = dense fill');
+ $04: FDetails.Add('Bits 16-21 = 4: Fill pattern = sparse fill');
+ $05: FDetails.Add('Bits 16-21 = 5: Fill pattern = horizontal fill');
+ $06: FDetails.Add('Bits 16-21 = 6: Fill pattern = vertical fill');
+ $07: FDetails.Add('Bits 16-21 = 7: Fill pattern = backslash fill');
+ $08: FDetails.Add('Bits 16-21 = 8: Fill pattern = slash fill');
+ $09: FDetails.Add('Bits 16-21 = 9: Fill pattern = coarse medium fill');
+ $0A: FDetails.Add('Bits 16-21 = 10: Fill pattern = coarse medium horiz fill');
+ $0B: FDetails.Add('Bits 16-21 = 11: Fill pattern = sparse horizontal fill');
+ $0C: FDetails.Add('Bits 16-21 = 12: Fill pattern = sparse vertical fill');
+ $0D: FDetails.Add('Bits 16-21 = 13: Fill pattern = sparse backslash fill');
+ $0E: FDetails.Add('Bits 16-21 = 14: Fill pattern = sparse slash fill');
+ $0F: FDetails.Add('Bits 16-21 = 15: Fill pattern = cross fill');
+ $10: FDetails.Add('Bits 16-21 = 16: Fill pattern = dense backslash fill');
+ $11: FDetails.Add('Bits 16-21 = 17: Fill pattern = very sparse fill');
+ $12: FDetails.Add('Bits 16-21 = 18: Fill pattern = extremely sparse fill');
+ end;
+ case dw and $01C00000 shr 22 of
+ $0: FDetails.Add('Bits 22-24 = 0: Bottom line style = No line');
+ $1: FDetails.Add('Bits 22-24 = 1: Bottom line style = thin solid line');
+ $2: FDetails.Add('Bits 22-24 = 2: Bottom line style = medium solid line');
+ $3: FDetails.Add('Bits 22-24 = 3: Bottom line style = dashed line');
+ $4: FDetails.Add('Bits 22-24 = 4: Bottom line style = dotted line');
+ $5: FDetails.Add('Bits 22-24 = 5: Bottom line style = thick solid line');
+ $6: FDetails.Add('Bits 22-24 = 6: Bottom line style = double solid line');
+ $7: FDetails.Add('Bits 22-24 = 7: Bottom line style = hair line');
+ end;
+ FDetails.Add(Format('Bits 25-31 = %d: Color index for bottom line color', [(dw and $FE000000) shr 25]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]),
+ 'Cell border lines & background area');
+
+ numBytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numBytes);
+ dw := DWOrdLEToN(dw);
+ if Row = FCurrRow then begin
+ FDetails.Add('Cell border lines (cont''d):'#13);
+ case dw and $00000007 of
+ $00: FDetails.Add('Bits 0-2 = 0: Top border = No line');
+ $01: FDetails.Add('Bits 0-2 = 1: Top border = thin solid line');
+ $02: FDetails.Add('Bits 0-2 = 2: Top border = medium solid line');
+ $03: FDetails.Add('Bits 0-2 = 3: Top border = dashed line');
+ $04: FDetails.Add('Bits 0-2 = 4: Top border = dotted line');
+ $05: FDetails.Add('Bits 0-2 = 5: Top border = thick solid line');
+ $06: FDetails.Add('Bits 0-2 = 6: Top border = double solid line');
+ $07: FDetails.Add('Bits 0-2 = 7: Top border = hair line');
+ end;
+ case (dw and $00000038) shr 3 of
+ $0000: FDetails.Add('Bits 3-5 = 0: Left border = No line');
+ $0001: FDetails.Add('Bits 3-5 = 1: Left border = thin solid line');
+ $0002: FDetails.Add('Bits 3-5 = 2: Left border = medium solid line');
+ $0003: FDetails.Add('Bits 3-5 = 3: Left border = dashed line');
+ $0004: FDetails.Add('Bits 3-5 = 4: Left border = dotted line');
+ $0005: FDetails.Add('Bits 3-5 = 5: Left border = thick solid line');
+ $0006: FDetails.Add('Bits 3-5 = 6: Left border = double solid line');
+ $0007: FDetails.Add('Bits 3-5 = 7: Left border = hair line');
+ end;
+ case (dw and $000001C0) shr 6 of
+ $0000: FDetails.Add('Bits 6-8 = 0: Right border = No line');
+ $0010: FDetails.Add('Bits 6-8 = 1: Right border = thin solid line');
+ $0020: FDetails.Add('Bits 6-8 = 2: Right border = medium solid line');
+ $0030: FDetails.Add('Bits 6-8 = 3: Right border = dashed line');
+ $0040: FDetails.Add('Bits 6-8 = 4: Right border = dotted line');
+ $0050: FDetails.Add('Bits 6-8 = 5: Right border = thick solid line');
+ $0060: FDetails.Add('Bits 6-8 = 6: Right border = double solid line');
+ $0070: FDetails.Add('Bits 6-8 = 7: Right border = hair line');
+ end;
+ FDetails.Add(Format('Bits 9-15 = %d: Color index for top line color', [(dw and $0000FE00) shr 7]));
+ FDetails.Add(Format('Bits 16-22 = %d: Color index for left line color', [(dw and $007F0000) shr 16]));
+ FDetails.Add(Format('Bits 23-29 = %d: Color index for right line color', [(dw and $3F800000) shr 23]));
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]),
+ 'Cell border lines (cont''d)');
+ end;
+ end;
+end;
+
+
+procedure TBIFFGrid.ShowXFCRC;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+begin
+ RowCount := FixedRows + 7;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]),
+ 'Future record type');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Attributes:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit 0 = 0: The containing record does not specify a range of cells.')
+ else FDetails.Add('x Bit 0 = 1: The containing record specifies a range of cells.');
+ FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+
+ 'when saving the file whithout having reckognized this record.');
+ FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Attributes');
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved');
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved');
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Count of XF records');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]),
+ 'Checksum of XF records');
+end;
+
+
+procedure TBIFFGrid.ShowXFEXT;
+var
+ numBytes: Integer;
+ w: Word;
+ dw: DWord;
+ i, n: Integer;
+ et: Word;
+ es: Word;
+ ct: Word;
+ buffidx: Cardinal;
+ s: String;
+begin
+ BeginUpdate;
+
+ RowCount := FixedRows + 100;
+
+ numBytes := 2;
+ Move(FBuffer[FBufferIndex], w, numBytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]),
+ 'Future record type');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Attributes:'#13);
+ if w and $0001 = 0
+ then FDetails.Add(' Bit 0 = 0: The containing record does not specify a range of cells.')
+ else FDetails.Add('x Bit 0 = 1: The containing record specifies a range of cells.');
+ FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+
+ 'when saving the file whithout having reckognized this record.');
+ FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)');
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]),
+ 'Attributes');
+
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved');
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved');
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]),
+ 'XF index');
+
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved');
+
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ 'Number of extension properties');
+ n := w;
+
+ for i:=1 to n do begin
+ buffidx := FBufferIndex;
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], et, numbytes);
+ et := WordLEToN(et);
+ if Row = FCurrRow then begin
+ FDetails.Add('Type:'#13);
+ case et of
+ $04: FDetails.Add('Full color extension that specifies the cell interior foreground color.');
+ $05: FDetails.Add('Full color extension that specifies the cell interior background color.');
+ $06: FDetails.Add('Gradient extension that specifies a cell interior gradient fill.');
+ $07: FDetails.Add('Full color extension that specifies the top cell border color.');
+ $08: FDetails.Add('Full color extension that specifies the bottom cell border color.');
+ $09: FDetails.Add('Full color extension that specifies the left cell border color.');
+ $0A: FDetails.Add('Full color extension that specifies the right cell border color.');
+ $0B: FDetails.Add('Full color extension that specifies the diagonal cell border color.');
+ $0D: FDetails.Add('Full color extension that specifies the cell text color.');
+ $0E: FDetails.Add('2-byte unsigned integer that specifies a font scheme.');
+ $0F: FDetails.Add('2-byte unsigned integer that specifies the text indentation level (MUST be <= 250).');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [et, et]),
+ Format('Extension property #%d: Type', [i]));
+ Move(FBuffer[FBufferIndex], es, numbytes);
+ es := WordLEToN(es);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(es),
+ Format('Extension property #%d: Data size', [i]));
+
+ case et of
+ $04, $05, $07..$0D: // FullColorExt
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], ct, numbytes);
+ ct := WordLEToN(ct);
+ if Row = FCurrRow then begin
+ FDetails.Add('Full color extension - Color type:'#13);
+ case ct of
+ 0: FDetails.Add('0 - Automatic color');
+ 1: FDetails.Add('1 - Indexed color');
+ 2: FDetails.Add('2 - RGB color');
+ 3: FDetails.Add('3 - Theme color');
+ 4: FDetails.Add('4 - Color not set');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(ct),
+ Format('Extension property #%d (Full color extension): Color type', [i]));
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(integer(w)),
+ Format('Extension property #%d (Full color extension): Color tint', [i]));
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ case ct of
+ 0: s := '(dummy - MUST be 0)';
+ 1: s := '(index)';
+ 2: s := '(RGB value)';
+ 3: s := '(theme)';
+ else s := '';
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [QWord(dw), QWord(dw)]),
+ Format('Extension property #%d (Full color extension): value %s', [i, s]));
+ numbytes := 4;
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [QWord(dw), QWord(dw)]),
+ Format('Extension property #%d (Full color extension): Reserved', [i]));
+ Move(FBuffer[FBufferIndex], dw, numbytes);
+ dw := DWordLEToN(dw);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [QWord(dw), QWord(dw)]),
+ Format('Extension property #%d (Full color extension): Reserved', [i]));
+ end;
+
+ $06: // Gradient
+ begin
+ ShowInRow(FCurrRow, FBufferIndex, es, '(var)',
+ Format('Extension property #%d (Gradient): - not interpreted here -', [i]));
+ end;
+
+ $0E: // Font scheme
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ if Row = FCurrRow then begin
+ FDetails.Add('Font scheme:'#13);
+ case w of
+ 0: FDetails.Add('0 - No font scheme');
+ 1: FDetails.Add('1 - Major scheme');
+ 2: FDetails.Add('2 - Minor scheme');
+ 3: FDetails.Add('3 - Ninched scheme');
+ end;
+ end;
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]),
+ Format('Extension property #%d Font scheme', [i]));
+ end;
+
+ $0F: // Text indentation level
+ begin
+ numbytes := 2;
+ Move(FBuffer[FBufferIndex], w, numbytes);
+ w := WordLEToN(w);
+ ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w),
+ Format('Extension property #%d Text indentation level', [i]));
+ end;
+ end;
+ FBufferIndex := buffidx + es;
+ end;
+ RowCount := FCurrRow;
+
+ EndUpdate(true);
+end;
+
+
+end.
+
diff --git a/applications/biffexplorer/bebiffutils.pas b/applications/biffexplorer/bebiffutils.pas
new file mode 100644
index 000000000..cc41ff108
--- /dev/null
+++ b/applications/biffexplorer/bebiffutils.pas
@@ -0,0 +1,801 @@
+unit beBIFFUtils;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils;
+
+function BOFName(ACode: Word): String;
+function CodePageName(AID: Word): String;
+function PaperSizeName(ACode: Word): String;
+function RecTypeName(ARecType: Word): String;
+function SheetFuncName(AIndex: Word): String;
+function ErrorCodeName(ACode: Byte): String;
+
+
+implementation
+
+function BOFName(ACode: Word): String;
+begin
+ case ACode of
+ $0005: Result := 'Workbook globals';
+ $0006: Result := 'Visual Basic module';
+ $0010: Result := 'Sheet or dialog';
+ $0020: Result := 'Chart';
+ $0040: Result := 'Macro sheet';
+ $0100: Result := 'Workspace';
+ else Result := '';
+ end;
+end;
+
+function CodePageName(AID: Word): String;
+begin
+ case AID of
+ $0016: Result := 'ASCII';
+ $01B5: Result := 'IBM PC CP-437 (US)';
+ $02D0: Result := 'IBM PC CP-720 (OEM Arabic)';
+ $02E1: Result := 'IBM PC CP-737 (Greek)';
+ $0307: Result := 'IBM PC CP-775 (Baltic)';
+ $0352: Result := 'IBM PC CP-850 (Latin I)';
+ $0354: Result := 'IBM PC CP-852 (Latin II (Central European))';
+ $0357: Result := 'IBM PC CP-855 (Cyrillic)';
+ $0359: Result := 'IBM PC CP-857 (Turkish)';
+ $035A: Result := 'IBM PC CP-858 (Multilingual Latin I with Euro)';
+ $035C: Result := 'IBM PC CP-860 (Portuguese)';
+ $035D: Result := 'IBM PC CP-861 (Icelandic)';
+ $035E: Result := 'IBM PC CP-862 (Hebrew)';
+ $035F: Result := 'IBM PC CP-863 (Canadian (French))';
+ $0360: Result := 'IBM PC CP-864 (Arabic)';
+ $0361: Result := 'IBM PC CP-865 (Nordic)';
+ $0362: Result := 'IBM PC CP-866 (Cyrillic (Russian))';
+ $0365: Result := 'IBM PC CP-869 (Greek (Modern))';
+ $036A: Result := 'Windows CP-874 (Thai)';
+ $03A4: Result := 'Windows CP-932 (Japanese Shift-JIS)';
+ $03A8: Result := 'Windows CP-936 (Chinese Simplified GBK)';
+ $03B5: Result := 'Windows CP-949 (Korean (Wansung))';
+ $03B6: Result := 'Windows CP-950 (Chinese Traditional BIG5)';
+ $04B0: Result := 'UTF-16 (BIFF8)';
+ $04E2: Result := 'Windows CP-1250 (Latin II) (Central European)';
+ $04E3: Result := 'Windows CP-1251 (Cyrillic)';
+ $04E4: Result := 'Windows CP-1252 (Latin I) (BIFF4-BIFF5)';
+ $04E5: Result := 'Windows CP-1253 (Greek)';
+ $04E6: Result := 'Windows CP-1254 (Turkish)';
+ $04E7: Result := 'Windows CP-1255 (Hebrew)';
+ $04E8: Result := 'Windows CP-1256 (Arabic)';
+ $04E9: Result := 'Windows CP-1257 (Baltic)';
+ $04EA: Result := 'Windows CP-1258 (Vietnamese)';
+ $0551: Result := 'Windows CP-1361 (Korean (Johab))';
+ $2710: Result := 'Apple Roman';
+ $8000: Result := 'Apple Roman';
+ $8001: Result := 'Windows CP-1252 (Latin I) (BIFF2-BIFF3)';
+ else Result := '';
+ end;
+end;
+
+function ErrorCodeName(ACode: Byte): String;
+begin
+ case ACode of
+ $00: Result := '#NULL! - Intersection of two cell ranges is empty';
+ $07: Result := '#DIV/0! - Division by zero';
+ $0F: Result := '#VALUE! - Wrong type of operand';
+ $17: Result := '#REF! - Illegal or deleted cell reference';
+ $1D: Result := '#NAME? - Wrong function or range name';
+ $24: Result := '#NUM! - Value range overflow';
+ $2A: Result := '#N/A - Argument or function not available';
+ else Result := '(unknown)';
+ end;
+end;
+
+
+function PaperSizeName(ACode: Word): String;
+begin
+ case ACode of
+ 0: Result := 'Undefined';
+ 1: Result := 'Letter (8.5" x 11")';
+ 2: Result := 'Letter small (8.5" x 11")';
+ 3: Result := 'Tabloid (11" x 17")';
+ 4: Result := 'Ledger (17" x 11")';
+ 5: Result := 'Legal (8.5" x 14")';
+ 6: Result := 'Statement (5.5" x 8.5")';
+ 7: Result := 'Executive (7.25" x 10.5")';
+ 8: Result := 'A3 (297mm x 420mm)';
+ 9: Result := 'A4 (210mm x 297mm)';
+ 10: Result := 'A4 small (210mm x 297mm)';
+ 11: Result := 'A5 (148mm x 210mm)';
+ 12: Result := 'B4 (JIS) (257mm x 364mm)';
+ 13: Result := 'B5 (JIS) (182mm x 257mm)';
+ 14: Result := 'Folio (8.5" x 13")';
+ 15: Result := 'Quarto (215mm x 275mm)';
+ 16: Result := '10x14 (10" x 14")';
+ 17: Result := '11x17 (11" x 17")';
+ 18: Result := 'Note (8.5" x 11")';
+ 19: Result := 'Envelope #9 (3 7/8" x 8 7/8")';
+ 20: Result := 'Envelope #10 (4 1/8" x 9 1/2")';
+ 21: Result := 'Envelope #11 (4 1/2" x 10 3/8")';
+ 22: Result := 'Envelope #12 (4 3/4" x 11")';
+ 23: Result := 'Envelope #14 (5" x 11.5")';
+ 24: Result := 'C (17" x 22")';
+ 25: Result := 'D (22" x 34")';
+ 26: Result := 'E (34" x 44")';
+ 27: Result := 'Envelope DL (110mm x 220mm)';
+ 28: Result := 'Envelope C5 (162mm x 229mm)';
+ 29: Result := 'Envelope C3 (324mm x 458mm)';
+ 30: Result := 'Envelope C4 (229mm x 324mm)';
+ 31: Result := 'Envelope C6 (114mm x 162mm)';
+ 32: Result := 'Envelope C6/C5 (114mm x 229mm)';
+ 33: Result := 'B4 (ISO) (250mm x 353mm)';
+ 34: Result := 'B5 (ISO) (176mm x 250mm)';
+ 35: Result := 'B6 (ISO) (125mm x 176mm)';
+ 36: Result := 'Envelope Italy (110mm x 230mm)';
+ 37: Result := 'Envelope Monarch (3 7/8" x 7 1/2")';
+ 38: Result := '6 3/4 Envelope (3 5/8" x 6 1/2")';
+ 39: Result := 'US Standard Fanfold (14 7/8" x 11")';
+ 40: Result := 'German Std. Fanfold (8.5" x 12")';
+ 41: Result := 'German Legal Fanfold (8.5" x 13")';
+ 42: Result := 'B4 (ISO) (250mm x 353mm)';
+ 43: Result := 'Japanese Postcard (100mm x 148mm)';
+ 44: Result := '9x11 (9" x 11")';
+ 45: Result := '10x11 (10" x 11")';
+ 46: Result := '15x11 (15" x 11")';
+ 47: Result := 'Envelope Invite (220mm x 220mm)';
+ 48: Result := 'Undefined';
+ 49: Result := 'Undefined';
+ 50: Result := 'Letter Extra (9.5" x 12")';
+ 51: Result := 'Legal Extra (9.5" x 15")';
+ 52: Result := 'Tabloid Extra (11 11/16" x 18")';
+ 53: Result := 'A4 Extra (235mm x 322mm)';
+ 54: Result := 'Letter Transverse (8.5" x 11")';
+ 55: Result := 'A4 Transverse (210mm x 297mm)';
+ 56: Result := 'Letter Extra Transv. (9.5" x 12")';
+ 57: Result := 'Super A/A4 (227mm x 356mm)';
+ 58: Result := 'Super B/A3 (305mm x 487mm)';
+ 59: Result := 'Letter Plus (8.5" x 12 11/16")';
+ 60: Result := 'A4 Plus (210mm x 330mm)';
+ 61: Result := 'A5 Transverse (148mm x 210mm)';
+ 62: Result := 'B5 (JIS) Transverse (182mm x 257mm)';
+ 63: Result := 'A3 Extra (322mm x 445mm)';
+ 64: Result := 'A5 Extra (174mm x 235mm)';
+ 65: Result := 'B5 (ISO) Extra (201mm x 276mm)';
+ 66: Result := 'A2 (420mm s 594mm)';
+ 67: Result := 'A3 Transverse (297mm x 420mm)';
+ 68: Result := 'A3 Extra Transverse (322mm x 445mm)';
+ 69: Result := 'Dbl. Japanese Postcard (200mm x 148mm)';
+ 70: Result := 'A6 (105mm x 148mm)';
+ 75: Result := 'Letter Rotated (11" x 8.5")';
+ 76: Result := 'A3 Rotated (420mm x 297mm)';
+ 77: Result := 'A4 Rotated (297mm x 210mm)';
+ 78: Result := 'A5 Rotated (210mm x 148mm)';
+ 79: Result := 'B4 (JIS) Rotated (364mm x 257mm)';
+ 80: Result := 'B5 (JIS) Rotated (257mm x 182mm)';
+ 81: Result := 'Japanese Postcard Rot. (148mm x 100mm)';
+ 82: Result := 'Dbl. Jap. Postcard Rot. (148mm x 200mm)';
+ 83: Result := 'A6 Rotated (148mm x 105mm)';
+ 88: Result := 'B6 (JIS) (128mm x 182mm)';
+ 89: Result := 'B6 (JIS) Rotated (182mm x 128mm)';
+ 90: Result := '2x11 (12" x 11")';
+ else Result := '(unknown)';
+ end;
+end;
+
+function RecTypeName(ARecType: Word): String;
+begin
+ case ARecType of
+ $0000: Result := 'DIMENSION';
+ $0001: Result := 'BLANK';
+ $0002: Result := 'INTEGER';
+ $0003: Result := 'NUMBER';
+ $0004: Result := 'LABEL';
+ $0005: Result := 'BoolErr';
+ $0006: Result := 'FORMULA';
+ $0007: Result := 'STRING';
+ $0008: Result := 'ROW';
+ $0009: Result := 'BOF: Begin of file';
+ $000A: Result := 'EOF: End of file';
+ $000B: Result := 'INDEX';
+ $000C: Result := 'CALCCOUNT: Iteration count';
+ $000D: Result := 'CALCMODE: Calculation mode';
+ $000E: Result := 'PRECISION: Precision';
+ $000F: Result := 'REFMODE: Reference mode';
+ $0010: Result := 'DELTA: Iteration increment';
+ $0011: Result := 'ITERATION: Iteration mode';
+ $0012: Result := 'PROTECT: Protection flag';
+ $0013: Result := 'PASSWORD: Protection password';
+ $0014: Result := 'HEADER: Print header on each page';
+ $0015: Result := 'FOOTER: Print footer on each page';
+ $0016: Result := 'EXTERNCOUNT: Number of external references';
+ $0017: Result := 'EXTERNSHEET: External reference';
+ $0018: Result := 'DEFINEDNAME: Name and token array of an internal defined name';
+ $0019: Result := 'WINDOWPROTECT: Windows are protected';
+ $001A: Result := 'VERTICALPAGEBREAKS: Explicit column page breaks';
+ $001B: Result := 'HORIZONALPAGEBREAKS: Explicit row page breaks';
+ $001C: Result := 'NOTE: Comment associated with a cell';
+ $001D: Result := 'SELECTION: Current selection';
+ $001E: Result := 'FORMAT: Number format record';
+ $001F: Result := 'FORMATCOUNT: Count of number formats';
+ $0020: Result := 'ColumnDefault';
+ $0021: Result := 'Array';
+ $0022: Result := '1904: 1904 date system';
+ $0023: Result := 'ExternalName';
+ $0024: Result := 'COLWIDTH';
+ $0025: Result := 'DefaultRowHeight';
+ $0026: Result := 'LEFTMARGIN: Left margin measurement';
+ $0027: Result := 'RIGHTMARGIN: Right margin measurement';
+ $0028: Result := 'TOPMARGIN: Top margin measurement';
+ $0029: Result := 'BOTTOMMARGIN: Bottom margin measurement';
+ $002A: Result := 'PRINTHEADERS: Print row/column labels';
+ $002B: Result := 'PRINTGRIDLINES: Print gridlines flag';
+ $002F: Result := 'FILEPASS: File is password-protected';
+ $0031: Result := 'FONT: Font and font formatting information';
+ $0032: Result := 'FONT2';
+ $0033: Result := 'PRINTSIZE: Printed size of chart';
+ $0036: Result := 'DataTable';
+ $0037: Result := 'DateTable2';
+ $003C: Result := 'CONTINUE: Continues long records';
+ $003D: Result := 'WINDOW1: Window information';
+ $003E: Result := 'WINDOW2: Window information';
+ $0040: Result := 'BACKUP: Save backup version of the file';
+ $0041: Result := 'PANE: Number of panes and their position';
+ $0042: Result := 'CODEPAGE: Default code page'; // also: CODENAME: VBE object name ???
+ $0043: Result := 'XF: Extended format';
+ $0044: Result := 'IXFE';
+ $0045: Result := 'FONTCOLOR';
+ $004D: Result := 'PLS: Environment-specific print record';
+ $0050: Result := 'DCON: Data consolidation information';
+ $0051: Result := 'DCONREF: Data consolidation references';
+ $0055: Result := 'DEFCOLWIDTH: Default width for columns';
+ $0056: Result := 'BuiltInFmtCount';
+ $0059: Result := 'XCT: CRN record count';
+ $005A: Result := 'CRN: Non-resident operands';
+ $005B: Result := 'FILESHARING: File-sharing information';
+ $005C: Result := 'WRITEACCESS: Write access user name';
+ $005D: Result := 'OBJ: Properties of an object in a sheet';
+ $005E: Result := 'UNCALCED: Recalculation status';
+ $005F: Result := 'SAVERECALC: Recalculate before saving';
+ $0060: Result := 'TEMPLATE: Workbook is a template';
+ $0063: Result := 'OBJPROTECT: Objects are protected';
+ $007D: Result := 'COLINFO: Column formatting information';
+ $007E: Result := 'RK: Cell value, RK number';
+ $007F: Result := 'IMDATA: Image data';
+ $0080: Result := 'GUTS: Size of row and column gutters';
+ $0081: Result := 'SHEETPR: Additional workspace information';
+ $0082: Result := 'GRIDSET: State change of Gridlines option';
+ $0083: Result := 'HCENTER: Center between horizontal margins';
+ $0084: Result := 'VCENTER: Center between vertical margins';
+ $0085: Result := 'BOUNDSSHEET: Sheet information';
+ $0086: Result := 'WRITEPROT: Workbook is write-protected';
+ $0087: Result := 'ADDIN: Workbook is an add-in macro';
+ $0088: Result := 'EDG: Edition globals';
+ $0089: Result := 'PUB: Publisher';
+ $008C: Result := 'COUNTRY: Default country and WIN.INI country';
+ $008D: Result := 'HIDEOBJ: Object display options';
+ $0090: Result := 'SORT: Sorting options';
+ $0091: Result := 'SUB: Subscriber';
+ $0092: Result := 'PALETTE: Color palette definition';
+ $0094: Result := 'LHRECORD: .WK? file conversion information';
+ $0095: Result := 'LHNGRAPH: Named graph information';
+ $0096: Result := 'SOUND: Sound note';
+ $0098: Result := 'LPR: Sheet was printed using LINE.PRINT()';
+ $0099: Result := 'STANDARDWIDTH: Standard column width';
+ $009A: Result := 'FNGROUPNAME: Function group name';
+ $009B: Result := 'FILTERMODE: Sheet contains filtered list';
+ $009C: Result := 'FNGROUPCOUNT: Built-in function group count';
+ $009D: Result := 'AUTOFILTERINFO: Drop-down arrow count';
+ $009E: Result := 'AUTOFILTER: AutoFilter data';
+ $00A0: Result := 'SCL: Window zoom magnification';
+ $00A1: Result := 'PAGESETUP: PageSetup';
+ $00A9: Result := 'COORDLIST: Polygon object vertex coordinates';
+ $00AB: Result := 'GCW: Global column width flags';
+ $00AE: Result := 'SCENMAN: Scenario output data';
+ $00AF: Result := 'SCENARIO: Scenario data';
+ $00B0: Result := 'SXVIEW: View definition';
+ $00B1: Result := 'SXVD: View fields';
+ $00B2: Result := 'SXVI: View item';
+ $00B4: Result := 'SXIVD: Row/column field IDs';
+ $00B5: Result := 'SXLI: Line item array';
+ $00B6: Result := 'SXPI: Page item';
+ $00B8: Result := 'DOCROUTE: Routing slip information';
+ $00B9: Result := 'RECIPNAME: Recipient name';
+ $00BC: Result := 'SHRFMLA: Shared formula';
+ $00BD: Result := 'MULRK: Multiple RK cells';
+ $00BE: Result := 'MULBLANK: Multiple blank cells';
+ $00C1: Result := 'MMS: ADDMENU/DELMENU record group count';
+ $00C2: Result := 'ADDMENU: Menu addition';
+ $00C3: Result := 'DELMENU: Menu deletion';
+ $00C5: Result := 'SXDI: Data item';
+ $00C6: Result := 'SXDB: Pivot table cache data';
+ $00CD: Result := 'SXSTRING: String';
+ $00D0: Result := 'SXTBL: Multiple consolidation source info';
+ $00D1: Result := 'SXBRGIITM: Page item name count';
+ $00D2: Result := 'SXTBPG: Page item indexex';
+ $00D3: Result := 'OBPROJ: Visual Basic project';
+ $00D5: Result := 'SXIDSTM: Stream ID';
+ $00D6: Result := 'RSTRING: Cell with character formatting';
+ $00D7: Result := 'DBCELL: Stream offsets';
+ $00DA: Result := 'BOOKBOOL: Workbook option flag';
+ $00DC: Result := 'PARAMQRY: Query parameters'; // also: SXEXT: External source information
+ $00DD: Result := 'SCENPROTECT: Scenario Protection';
+ $00DE: Result := 'OLESIZE: Size of OLE object';
+ $00DF: Result := 'UDDESC: Description format for chart autoformat';
+ $00E0: Result := 'XF: Extended format';
+ $00E1: Result := 'INTERFACEHDR: Beginning of user interface records';
+ $00E2: Result := 'INTERFACEEND: End of user interface records';
+ $00E3: Result := 'SXVS: View source';
+ $00E5: Result := 'MERGEDCELLS: List of merged cells';
+ $00E9: Result := 'Bitmap';
+ $00EA: Result := 'TABIDCONF: Sheet Tab ID of conflict history';
+ $00EB: Result := 'MSODRAWINGGROUP: Microsoft Office drawing group';
+ $00EC: Result := 'MSODRAWING: Microsoft Office drawing';
+ $00ED: Result := 'MSODRAWINGSELECTION: Microsoft Office drawing selection';
+ $00EF: Result := 'PhoneticPR';
+ $00F0: Result := 'SXRULE: PivotTable rule data';
+ $00F1: Result := 'SXEX: PivotTable view extended information';
+ $00F2: Result := 'SXFILT: PivotTable rule filter';
+ $00F4: Result := 'SXDXF: PivotTable formatting';
+ $00F5: Result := 'SXITM: PivotTable item indexes';
+ $00F6: Result := 'SXNAME: PivotTable name';
+ $00F7: Result := 'SXSELECT: PivotTable selection information';
+ $00F8: Result := 'SXPAIR: PivotTable name pair';
+ $00F9: Result := 'SXFMLA: PivotTable parsed expression';
+ $00FB: Result := 'SXFORMAT: PivotTable format record';
+ $00FC: Result := 'SST: Shared string table';
+ $00FD: Result := 'LABELSST: Cell value, string constant/SST';
+ $00FF: Result := 'EXTSST: extended shared string table';
+ $013D: Result := 'TABID: Sheet tab index array';
+ $015F: Result := 'LabelRanges';
+ $0160: Result := 'USESELFS: Natural language formulas flag';
+ $0161: Result := 'DSF: Double stream file';
+ $0162: Result := 'XL5MODIFY: Flag for DSF';
+ $01AE: Result := 'EXTERNBOOK (SUPBOOK): Supporting workbook';
+ $01AF: Result := 'PROT4REV: Shared workbook protection flag';
+ $01B0: Result := 'CONDFMT: Conditional formatting range information';
+ $01B1: Result := 'CF: Conditional formatting conditions';
+ $01B2: Result := 'DVAL: Data validation information';
+ $01B5: Result := 'DCONBIN: Data consolidation information';
+ $01B6: Result := 'TXO: Text object';
+ $01B7: Result := 'REFRESHALL: Refresh flag';
+ $01B8: Result := 'HLINK: Hyperlink';
+ $01BA: Result := 'CODENAME: Name of the workbook object';
+ $01BB: Result := 'SXFDBTYPE: SQL datatype identifier';
+ $01BC: Result := 'PROT4REVPASS: Shared workbook protection password';
+ $01BE: Result := 'DV: Data validation criteria';
+ $01C0: Result := 'EXCEL9FILE: Excel 9 file';
+ $01C1: Result := 'RECALCID: Recalc information';
+ $0200: Result := 'DIMENSIONS: Cell table size';
+ $0201: Result := 'BLANK: Cell Value, blank cell';
+ $0203: Result := 'NUMBER: Cell value, floating-point cell';
+ $0204: Result := 'LABEL: Cell value, string constant';
+ $0205: Result := 'BOOLERR: Cell Value, boolean or error';
+ $0206: Result := 'FORMULA: Formula';
+ $0207: Result := 'STRING: String value of a formula';
+ $0208: Result := 'ROW: Describes a row';
+ $0209: Result := 'BOF: Begin of file';
+ $020B: Result := 'INDEX: Index record';
+ $0218: Result := 'NAME: Defined name';
+ $0221: Result := 'ARRAY: Array-entered formula';
+ $0223: Result := 'EXTERNNAME: Externally referenced name';
+ $0225: Result := 'DEFAULTROWHEIGHT: Default row height';
+ $0231: Result := 'FONT: Font description';
+ $0236: Result := 'TABLE: Data table';
+ $023E: Result := 'WINDOW2: Sheet window information';
+ $0243: Result := 'XF: Extended format';
+ $027E: Result := 'RK: Cell value, RK number';
+ $0293: Result := 'STYLE: Style information';
+ $0406: Result := 'FORMULA: Cell formula';
+ $0409: Result := 'BOF: Begin of file';
+ $041E: Result := 'FORMAT: Number format';
+ $0443: Result := 'XF: Extended format';
+ $04BC: Result := 'SHAREDFMLA: Shared formula';
+ $0800: Result := 'HLINKTOOLTIP: Hyperlink tooltip';
+ $0801: Result := 'WEBPUB: Web publish item';
+ $0802: Result := 'QSISXTAG: PivotTable and query table extensions';
+ $0803: Result := 'DBQUERYEXT: Database query extensions';
+ $0804: Result := 'EXTSTRING: FRT string';
+ $0805: Result := 'TXTQUERY: Text query information';
+ $0806: Result := 'QSIR: Query table formatting';
+ $0807: Result := 'QSIF: Query table field formatting';
+ $0809: Result := 'BOF: Beginning of file';
+ $080A: Result := 'OLEDBCONN: OLE database connection';
+ $080B: Result := 'WOPT: Web options';
+ $080C: Result := 'SXVIEWEX: Pivot table OLAP extensions';
+ $080D: Result := 'SXTH: Pivot table OLAP hierarchy';
+ $080E: Result := 'SXPIEX: OLAP page item extensions';
+ $080F: Result := 'SXVDTEX: View dimension OLAP extensions';
+ $0810: Result := 'SXVIEWX9: Pivot table extensions';
+ $0812: Result := 'CONTINUEFRT: Continued FRT';
+ $0813: Result := 'REALTIMEDATA: Real-time data (RTD)';
+ $0850: Result := 'CHARTFRTINFO: Future record identifiers';
+ $0852: Result := 'STARTBLOCK: Beginning of a collection of records';
+ $0853: Result := 'ENDBLOCK: End of a collection of records';
+ $0862: Result := 'SHEETEXT: Extra sheet info';
+ $0863: Result := 'BOOKEXT: Extra book info';
+ $0864: Result := 'SXADDL: Pivot table additional info';
+ $0865: Result := 'CRASHRECERR: Crash recovery error';
+ $0866: Result := 'HFPICTURE: Header/footer picture';
+ $0867: Result := 'FEATHEADR: Shared feature header';
+ $0868: Result := 'FEAT: Shared feature record';
+ $086A: Result := 'DATALABEXT: Chart data label extension';
+ $086B: Result := 'DATALABEXTCONTENTS: Chart data label extension contents';
+ $086C: Result := 'CELLWATCH: Cell watch';
+ $086D: Result := 'FEATINFO: Shared feature info record';
+ $0871: Result := 'FEATHEADR11: Shared feature header 11';
+ $0872: Result := 'FEAT11: Shared feature 11 record';
+ $0873: Result := 'FEATINFO11: Shared feature info 11 record';
+ $0874: Result := 'DROPDOWNOBJIDS: Drop down opbject';
+ $0875: Result := 'CONTINUEFRT11: Continue FRT 11';
+ $0876: Result := 'DCONN: Data connection';
+ $0877: Result := 'LIST12: Extra table data introduced in Excel 2007';
+ $0878: Result := 'FEAT12: Shared feature 12 record';
+ $0879: Result := 'CONDFMT12: Conditional formatting range information 12';
+ $087A: Result := 'CF12: Conditional formatting condition 12';
+ $087B: Result := 'CFEX: Conditional formatting extension';
+ $087C: Result := 'XFCRC: XF extension checksum';
+ $087D: Result := 'XFEXT: XF extension';
+ $087E: Result := 'EZFILTER12: Autofilter data introduced in Excel 2007';
+ $087F: Result := 'CONTINUEFRT12: Continue FRT 12';
+ $0881: Result := 'SXADDL12: Additional workbook connections information';
+ $0884: Result := 'MDTINFO: Information about a metadata type';
+ $0885: Result := 'MDXSTR: MDX metadata string';
+ $0886: Result := 'MDXTUPLE: Tuple MDX metadata';
+ $0887: Result := 'MDXSET: Set MDX metadata';
+ $0888: Result := 'MDXPROP: Member property MDX metadata';
+ $0889: Result := 'MDXKPI: Key performance indicator MDX metadata';
+ $088A: Result := 'MDTB: Block of metadata records';
+ $088B: Result := 'PLV: Page layout view settings in Excel 2007';
+ $088C: Result := 'COMPAR12: Compatibility checker 12';
+ $088D: Result := 'DXF: Differential XF';
+ $088E: Result := 'TABLESTYLES: Table styles';
+ $088F: Result := 'TABLESTYLE: Table style';
+ $0890: Result := 'TABLESTYLEELEMENT: Table style element';
+ $0892: Result := 'STYLEEXT: Named cell style extension';
+ $0893: Result := 'NAMEPUBLISH: Publish to Excel server data for name';
+ $0894: Result := 'NAMECMT: Name comment';
+ $0895: Result := 'SORTDATA12: Sort data 12';
+ $0896: Result := 'THEME: Theme';
+ $0897: Result := 'GUIDTYPELIB: VB project typelib GUID';
+ $0898: Result := 'FNGRP12: Function group';
+ $0899: Result := 'NAMEFNGRP12: Extra function group';
+ $089A: Result := 'MTRSETTINGS: Multi-threaded calculation settings';
+ $089B: Result := 'COMPRESSPICTURES: Automatic picture compression mode';
+ $089C: Result := 'HEADERFOOTER: Header footer';
+ $089E: Result := 'CRTMLFRT: Additional properties for chart elements';
+ $08A3: Result := 'FORCEFULLCALCULATION: Force full calculation settings';
+ $08A4: Result := 'SHAPEPROPSSTREAM: Shape formatting properties for chart elements';
+ $08A5: Result := 'TEXTPROPSSTREAM: Additional text properties for text in entire chart';
+ $08A7: Result := 'CRTLAYOUT12A: Layout information for a plot area';
+ $08C1: Result := 'LISTOBJ: List object';
+ $08C2: Result := 'LISTFIELD: List field';
+ $08C3: Result := 'LISTDV: List data validation';
+ $08C4: Result := 'LISTCONDFMT: List conditional formatting';
+ $08C5: Result := 'LIST CF: List cell formatting';
+ $08C6: Result := 'FMQRY: Filemaker queries';
+ $08C7: Result := 'FMSQRY: Filemaker queries';
+ $08C8: Result := 'PLV: Page layout view in Mac Excel 11';
+ $08C9: Result := 'LNEXT: Extenstion information for borders in Mac Office 11';
+ $08CA: Result := 'MKREXT: Extension information for markers in Mac Office 11';
+ $08CB: Result := 'CRTCOOPT: Color options for chart series in Mac Office 11';
+ $1001: Result := 'UNITS: ignored';
+ $1002: Result := 'CHART: Position and size of chart area';
+ $1003: Result := 'SERIES: Properties of the data for a series, a trendline, or error bars';
+ $1004: Result := 'CHSOURCELINK: Source of data series';
+ $1006: Result := 'DATAFORMAT: Formatting properties for data point or series';
+ $1007: Result := 'CHLINEFORMAT: Formatting attributes of line or border';
+ $1009: Result := 'MARKERFORMAT: Color, size, and shape of data markers';
+ $100A: Result := 'AREAFORMAT: Patterns and colors in filled chart region';
+ $100B: Result := 'PIEFORMAT: Distance of a data point(s) from pie';
+ $100C: Result := 'ATTACHEDLABEL: Properties of series data label';
+ $100D: Result := 'CHSTRING: Category name of series, or text for text box in chart';
+ $1014: Result := 'CHARTFORMAT: Properties of a chart group';
+ $1015: Result := 'LEGEND: Properties of a legend';
+ $1016: Result := 'SERIESLIST: Specifies the series for the chart';
+ $1017: Result := 'BAR: identifies a bar/column chart group';
+ $1018: Result := 'LINE: identifies a line chart group';
+ $1019: Result := 'PIE: identifies a pie/doughnut chart group';
+ $101A: Result := 'AREA: identifies an area chart group';
+ $101B: Result := 'SCATTER: identifies scatter or bubble chart group';
+ $101D: Result := 'AXIS: Properties of an axis';
+ $101E: Result := 'TICK: Attributes of axis labels and ticks';
+ $101F: Result := 'VALUERANGE: Properties of value axis';
+ $1021: Result := 'CHAXISLINE: Part of the axis specified by the LINEFORMAT record';
+ $1022: Result := 'CRTLINK: not used';
+ $1024: Result := 'DEFAULTTEXT: Text elements formatted by TEXT record';
+ $1025: Result := 'TEXT: Properties of an attached label';
+ $1026: Result := 'FONTX: Font for a given text element';
+ $1027: Result := 'OBJECTLINK: specifies object on chart, or entire chart, to which TEXT record is linked.';
+ $1032: Result := 'CHFRAME: Border and area formatting of chart';
+ $1033: Result := 'CHBEGIN: Indicates begin of a chart record block';
+ $1034: Result := 'CHEND: Indicates end of a chart record block';
+ $1035: Result := 'PLOTAREA: empty --> see FRAME record specifying plot area properties';
+ $103A: Result := 'CHART3D: plot area of the chart group is rendered in a 3-D';
+ $103C: Result := 'PICF: Layout of a picture attached to a picture-filled chart elemen';
+ $103D: Result := 'DROPBAR: attributes of the up/down bars between multiple series of line chart group';
+ $103E: Result := 'RADAR: identifies a radar chart group';
+ $103F: Result := 'SURF: identifies a surface chart group';
+ $1040: Result := 'RADARAREA: identifies a filled radar chart group';
+ $1041: Result := 'AXISPARENT: Properties of an axis group';
+ $1043: Result := 'LEGENDEXCEPTION: Information on legend item changed from default';
+ $1044: Result := 'SHTPROPS: Chart properties defined by the Chart Sheet Substream ABNF';
+ $1045: Result := 'SERTOCRT: Specifies chart group for the current series';
+ $1046: Result := 'AXESUSED: Number of axis groups on the chart';
+ $1048: Result := 'SBASEREF: Location of a PivotTable view referenced by a chart';
+ $104A: Result := 'SERPARENT: Series to which the current trendline or error bar corresponds';
+ $104B: Result := 'SERAUXTREND: Specifies a trendline';
+ $104E: Result := 'IFMTRECORD: Number format to use for the text on an axis';
+ $104F: Result := 'POS: Size/position for legend, attached label, or plot area';
+ $1050: Result := 'ALRUNS: Rich Text Formatting within chart titles, trendline, and data labels';
+ $1051: Result := 'BRAI: Reference to data used in chart';
+ $105B: Result := 'SERAUXERRBAR: Error bar properties';
+ $105C: Result := 'CLRTCLIENT: Custom color palette for chart';
+ $105D: Result := 'SERFMT: Properties of series data points, markers, or lines';
+ $105F: Result := 'CHART3DBARSHAPE: Shape of the data points in bar or column chart group';
+ $1060: Result := 'FBI: Scalable font information (chart)';
+ $1061: Result := 'BOPPOP: Chart group is a bar or a pie of pie chart';
+ $1062: Result := 'AXCEXT: Additional extension properties of a date axis';
+ $1063: Result := 'DAT: Chart Sheet Substream ABNF for data table within chart area';
+ $1064: Result := 'PLOTGROWTH: Scale factors for font scaling';
+ $1065: Result := 'SIINDEX: Specifies data of a chart';
+ $1066: Result := 'GELFRAME: Properties of a fill pattern for parts of a chart';
+ $1067: Result := 'BOPPOPCUSTOM: Series data points contained in the secondary bar/pie';
+ $1068: Result := 'FBI2: Scalable font information (chart)';
+ else
+ Result := '';
+ end;
+end;
+
+function SheetFuncName(AIndex: Word): String;
+begin
+ case AIndex of
+ 0 : result := 'COUNT';
+ 1 : Result := 'IF';
+ 2 : Result := 'ISNA';
+ 3 : Result := 'ISERROR';
+ 4 : Result := 'SUM';
+ 5 : Result := 'AVERAGE';
+ 6 : Result := 'MIN';
+ 7 : Result := 'MAX';
+ 8 : Result := 'ROW';
+ 9 : Result := 'COLUMN';
+ 10 : Result := 'NA';
+ 11 : Result := 'NPV';
+ 12 : Result := 'STDEV';
+ 13 : Result := 'DOLLAR';
+ 14 : Result := 'FIXED';
+ 15 : Result := 'SIN';
+ 16 : Result := 'COS';
+ 17 : Result := 'TAN';
+ 18 : Result := 'ATAN';
+ 19 : Result := 'PI';
+ 20 : Result := 'SQRT';
+ 21 : Result := 'EXP';
+ 22 : Result := 'LN';
+ 23 : Result := 'LOG10';
+ 24 : Result := 'ABS';
+ 25 : Result := 'INT';
+ 26 : Result := 'SIGN';
+ 27 : Result := 'ROUND';
+ 28 : Result := 'LOOKUP';
+ 29 : Result := 'INDEX';
+ 30 : Result := 'REPT';
+ 31 : Result := 'MID';
+ 32 : Result := 'LEN';
+ 33 : Result := 'VALUE';
+ 34 : Result := 'TRUE';
+ 35 : Result := 'FALSE';
+ 36 : Result := 'AND';
+ 37 : Result := 'OR';
+ 38 : Result := 'NOT';
+ 39 : Result := 'MOD';
+ 40 : Result := 'DCOUNT';
+ 41 : Result := 'DSUM';
+ 42 : Result := 'DAVERAGE';
+ 43 : Result := 'DMIN';
+ 44 : Result := 'DMAX';
+ 45 : Result := 'DSTDEV';
+ 46 : Result := 'VAR';
+ 47 : Result := 'DVAR';
+ 48 : Result := 'TEXT';
+ 49 : Result := 'LINEST';
+ 50 : Result := 'TREND';
+ 51 : Result := 'LOGEST';
+ 52 : Result := 'GROWTH';
+ 56 : Result := 'PV';
+ 57 : Result := 'FV';
+ 58 : Result := 'NPER';
+ 59 : Result := 'PMT';
+ 60 : Result := 'RATE';
+ 61 : Result := 'MIRR';
+ 62 : Result := 'IRR';
+ 63 : Result := 'RAND';
+ 64 : Result := 'MATCH';
+ 65 : Result := 'DATE';
+ 66 : Result := 'TIME';
+ 67 : Result := 'DAY';
+ 68 : Result := 'MONTH';
+ 69 : Result := 'YEAR';
+ 70 : Result := 'WEEKDAY';
+ 71 : Result := 'HOUR';
+ 72 : Result := 'MINUTE';
+ 73 : Result := 'SECOND';
+ 74 : Result := 'NOW';
+ 75 : Result := 'AREAS';
+ 76 : Result := 'ROWS';
+ 77 : Result := 'COLUMNS';
+ 78 : Result := 'OFFSET';
+ 82 : Result := 'SEARCH';
+ 83 : Result := 'TRANSPOSE';
+ 86 : Result := 'TYPE';
+ 97 : Result := 'ATAN2';
+ 98 : Result := 'ASIN';
+ 99 : Result := 'ACOS';
+ 100 : Result := 'CHOOSE';
+ 101 : Result := 'HLOOKUP';
+ 102 : Result := 'VLOOKUP';
+ 105 : Result := 'ISREF';
+ 109 : Result := 'LOG';
+ 111 : Result := 'CHAR';
+ 112 : Result := 'LOWER';
+ 113 : Result := 'UPPER';
+ 114 : Result := 'PROPER';
+ 115 : Result := 'LEFT';
+ 116 : Result := 'RIGHT';
+ 117 : Result := 'EXACT';
+ 118 : Result := 'TRIM';
+ 119 : Result := 'REPLACE';
+ 120 : Result := 'SUBSTITUTE';
+ 121 : Result := 'CODE';
+ 124 : Result := 'FIND';
+ 125 : Result := 'CELL';
+ 126 : Result := 'ISERR';
+ 127 : Result := 'ISTEXT';
+ 128 : Result := 'ISNUMBER';
+ 129 : Result := 'ISBLANK';
+ 130 : Result := 'T';
+ 131 : Result := 'N';
+ 140 : Result := 'DATEVALUE';
+ 141 : Result := 'TIMEVALUE';
+ 142 : Result := 'SLN';
+ 143 : Result := 'SYD';
+ 144 : Result := 'DDB';
+ 148 : Result := 'INDIRECT';
+ 162 : Result := 'CLEAN';
+ 163 : Result := 'MDETERM';
+ 164 : Result := 'MINVERSE';
+ 165 : Result := 'MMULT';
+ 167 : Result := 'IPMT';
+ 168 : Result := 'PPMT';
+ 169 : Result := 'COUNTA';
+ 183 : Result := 'PRODUCT';
+ 184 : Result := 'FACT';
+ 189 : Result := 'DPRODUCT';
+ 190 : Result := 'ISNONTEXT';
+ 193 : Result := 'STDEVP';
+ 194 : Result := 'VARP';
+ 195 : Result := 'DSTDEVP';
+ 196 : Result := 'DVARP';
+ 197 : Result := 'TRUNC';
+ 198 : Result := 'ISLOGICAL';
+ 199 : Result := 'DCOUNTA';
+ 204 : Result := 'YEN/USDOLLAR';
+ 205 : Result := 'FINDB';
+ 206 : Result := 'SEARCHB';
+ 207 : Result := 'REPLACEB';
+ 208 : Result := 'LEFTB';
+ 209 : Result := 'RIGHTB';
+ 210 : Result := 'MIDB';
+ 211 : Result := 'LENB';
+ 212 : Result := 'ROUNDUP';
+ 213 : Result := 'ROUNDDOWN';
+ 214 : Result := 'ASC';
+ 215 : Result := 'JIS / DBCS';
+ 216 : Result := 'RANK';
+ 219 : Result := 'ADDRESS';
+ 220 : Result := 'DAYS360';
+ 221 : Result := 'TODAY';
+ 222 : Result := 'VDB';
+ 227 : Result := 'MEDIAN';
+ 228 : Result := 'SUMPRODUCT';
+ 229 : Result := 'SINH';
+ 230 : Result := 'COSH';
+ 231 : Result := 'TANH';
+ 232 : Result := 'ASINH';
+ 233 : Result := 'ACOSH';
+ 234 : Result := 'ATANH';
+ 235 : Result := 'DGET';
+ 244 : Result := 'INFO';
+ 247 : Result := 'DB';
+ 252 : Result := 'FREQUENCY';
+ 261 : Result := 'ERROR.TYPE';
+ 269 : Result := 'AVEDEV';
+ 270 : Result := 'BETADIST';
+ 271 : Result := 'GAMMALN';
+ 272 : Result := 'BETAINV';
+ 273 : Result := 'BINOMDIST';
+ 274 : Result := 'CHIDIST';
+ 275 : Result := 'CHIINV';
+ 276 : Result := 'COMBIN';
+ 277 : Result := 'CONFIDENCE';
+ 278 : Result := 'CRITBINOM';
+ 279 : Result := 'EVEN';
+ 280 : Result := 'EXPONDIST';
+ 281 : Result := 'FDIST';
+ 282 : Result := 'FINV';
+ 283 : Result := 'FISHER';
+ 284 : Result := 'FISHERINV';
+ 285 : Result := 'FLOOR';
+ 286 : Result := 'GAMMADIST';
+ 287 : Result := 'GAMMAINV';
+ 288 : Result := 'CEILING';
+ 289 : Result := 'HYPGEOMDIST';
+ 290 : Result := 'LOGNORMDIST';
+ 291 : Result := 'LOGINV';
+ 292 : Result := 'NEGBINOMDIST';
+ 293 : Result := 'NORMDIST';
+ 294 : Result := 'NORMSDIST';
+ 295 : Result := 'NORMINV';
+ 296 : Result := 'NORMSINV';
+ 297 : Result := 'STANDARDIZE';
+ 298 : Result := 'ODD';
+ 299 : Result := 'PERMUT';
+ 300 : Result := 'POISSON';
+ 301 : Result := 'TDIST';
+ 302 : Result := 'WEIBULL';
+ 303 : Result := 'SUMXMY2';
+ 304 : Result := 'SUMX2MY2';
+ 305 : Result := 'SUMX2PY2';
+ 306 : Result := 'CHITEST';
+ 307 : Result := 'CORREL';
+ 308 : Result := 'COVAR';
+ 309 : Result := 'FORECAST';
+ 310 : Result := 'FTEST';
+ 311 : Result := 'INTERCEPT';
+ 312 : Result := 'PEARSON';
+ 313 : Result := 'RSQ';
+ 314 : Result := 'STEYX';
+ 315 : Result := 'SLOPE';
+ 316 : Result := 'TTEST';
+ 317 : Result := 'PROB';
+ 318 : Result := 'DEVSQ';
+ 319 : Result := 'GEOMEAN';
+ 320 : Result := 'HARMEAN';
+ 321 : Result := 'SUMSQ';
+ 322 : Result := 'KURT';
+ 323 : Result := 'SKEW';
+ 324 : Result := 'ZTEST';
+ 325 : Result := 'LARGE';
+ 326 : Result := 'SMALL';
+ 327 : Result := 'QUARTILE';
+ 328 : Result := 'PERCENTILE';
+ 329 : Result := 'PERCENTRANK';
+ 330 : Result := 'MODE';
+ 331 : Result := 'TRIMMEAN';
+ 332 : Result := 'TINV';
+ 336 : Result := 'CONCATENATE';
+ 337 : Result := 'POWER';
+ 342 : Result := 'RADIANS';
+ 343 : Result := 'DEGREES';
+ 344 : Result := 'SUBTOTAL';
+ 345 : Result := 'SUMIF';
+ 346 : Result := 'COUNTIF';
+ 347 : Result := 'COUNTBLANK';
+ 350 : Result := 'ISPMT';
+ 351 : Result := 'DATEDIF';
+ 352 : Result := 'DATESTRING';
+ 353 : Result := 'NUMBERSTRING';
+ 354 : Result := 'ROMAN';
+ 358 : Result := 'GETPIVOTDATA';
+ 359 : Result := 'HYPERLINK';
+ 360 : Result := 'PHONETIC';
+ 361 : Result := 'AVERAGEA';
+ 362 : Result := 'MAXA';
+ 363 : Result := 'MINA';
+ 364 : Result := 'STDEVPA';
+ 365 : Result := 'VARPA';
+ 366 : Result := 'STDEVA';
+ 367 : Result := 'VARA';
+ else Result := 'unknown';
+ end;
+end;
+
+end.
+
diff --git a/applications/biffexplorer/behtml.pas b/applications/biffexplorer/behtml.pas
new file mode 100644
index 000000000..71f255619
--- /dev/null
+++ b/applications/biffexplorer/behtml.pas
@@ -0,0 +1,245 @@
+unit beHTML;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Graphics;
+
+type
+ THTMLHeader = (h1, h2, h3, h4, h5);
+ THeaderColors = Array[THTMLHeader] of TColor;
+
+ THTMLDocument = class
+ private
+ FLines: TStrings;
+ FRawMode: Boolean;
+ FIndent: Integer;
+ function Indent: String;
+ function Raw(const AText: String): String;
+ function ColorToHTML(AColor: TColor): String;
+ public
+ constructor Create;
+ destructor Destroy; override;
+ procedure AddEmptyLine;
+ procedure AddListItem(const AText: String);
+ procedure AddHeader(AHeader: THTMLHeader; const AText: String);
+ procedure AddParagraph(const AText: String);
+ procedure BeginDocument(const ATitle: String; const AHeaderColors: THeaderColors;
+ ARawMode: Boolean=false);
+ procedure BeginBulletList;
+ procedure BeginNumberedList;
+ function Bold(const AText: String): String;
+ procedure EndDocument;
+ procedure EndBulletList;
+ procedure EndNumberedList;
+ function Hyperlink(const AText, ALink: String): String;
+ function Italic(const AText: String): String;
+ property Lines: TStrings read FLines;
+ end;
+
+implementation
+
+uses
+ StrUtils, LCLIntf;
+
+constructor THTMLDocument.Create;
+begin
+ inherited;
+ FLines := TStringList.Create;
+end;
+
+destructor THTMLDocument.Destroy;
+begin
+ FLines.Free;
+ inherited;
+end;
+
+procedure THTMLDocument.AddHeader(AHeader: THTMLHeader; const AText: String);
+begin
+ if FRawMode then
+ FLines.Add(Raw(AText))
+ else
+ FLines.Add(Format('%s%s', [Indent, ord(AHeader)+1, AText, ord(AHeader)+1]));
+end;
+
+ (*
+
+
+
+
+
+
+Title appears in the browser's title bar...
+
+
+
+
+
+Heading goes here...
+Enter your paragraph text here...
+
+
+ *)
+
+procedure THTMLDocument.BeginDocument(const ATitle: String;
+ const AHeaderColors: THeaderColors; ARawMode: Boolean = false);
+begin
+ FRawMode := ARawMode;
+ FLines.Clear;
+ if not FRawMode then begin
+ FLines.Add('');
+ FLines.Add('');
+ FLines.Add(' ');
+ FLines.Add(' ');
+ FLines.Add(' ' + ATitle + '');
+ FLines.Add(' ');
+ FLines.Add(' ');
+ FLines.Add(' ');
+ FIndent := 4;
+ end;
+end;
+
+procedure THTMLDocument.BeginBulletList;
+begin
+ if not FRawMode then begin
+ FLines.Add(Indent + '');
+ inc(FIndent, 2);
+ end;
+end;
+
+procedure THTMLDocument.BeginNumberedList;
+begin
+ if not FRawMode then begin
+ FLines.Add(Indent + '');
+ inc(FIndent, 2);
+ end;
+end;
+
+procedure THTMLDocument.AddEmptyLine;
+begin
+ if FRawMode then
+ FLines.Add('')
+ else
+ FLines.Add('
');
+end;
+
+procedure THTMLDocument.AddListItem(const AText: String);
+begin
+ if FRawMode then
+ FLines.Add('- ' + Raw(AText))
+ else
+ FLines.Add(Indent + '- ' + AText + '
');
+end;
+
+procedure THTMLDocument.AddParagraph(const AText: String);
+begin
+ if FRawMode then
+ FLines.Add(Raw(AText))
+ else
+ FLines.Add(Indent + '' + AText + '
');
+end;
+
+function THTMLDocument.Bold(const AText: String): String;
+begin
+ if FRawMode then
+ Result := AText
+ else
+ Result := '' + AText + '';
+end;
+
+function THTMLDocument.ColorToHTML(AColor: TColor): String;
+var
+ tmpRGB: LongInt;
+begin
+ tmpRGB := ColorToRGB(AColor) ;
+ Result := Format('#%.2x%.2x%.2x', [
+ GetRValue(tmpRGB),
+ GetGValue(tmpRGB),
+ GetBValue(tmpRGB)
+ ]) ;
+end;
+
+procedure THTMLDocument.EndDocument;
+begin
+ if not FRawMode then begin
+ FLines.Add(' ');
+ FLines.Add('');
+ end;
+end;
+
+procedure THTMLDocument.EndBulletList;
+begin
+ if not FRawMode then begin
+ dec(FIndent, 2);
+ FLines.Add(Indent + '
');
+ end;
+end;
+
+procedure THTMLDocument.EndNumberedList;
+begin
+ if not FRawMode then begin
+ dec(FIndent, 2);
+ FLines.Add(Indent + '');
+ end;
+end;
+
+function THTMLDocument.Hyperlink(const AText, ALink: String): String;
+begin
+ if FRawMode then
+ Result := Format('%s (%s)', [AText, ALink])
+ else
+ Result := Format('%s', [ALink, AText]);
+end;
+
+function THTMLDocument.Indent: String;
+begin
+ Result := DupeString(' ', FIndent);
+end;
+
+function THTMLDocument.Italic(const AText: String): String;
+begin
+ if FRawMode then
+ Result := AText
+ else
+ Result := '' + AText + '';
+end;
+
+function THTMLDocument.Raw(const AText: String): String;
+var
+ i, n: Integer;
+begin
+ Result := '';
+ if AText = '' then
+ exit;
+ n := Length(AText);
+ i := 1;
+ while (i <= n) do begin
+ if AText[i] = '<' then
+ repeat
+ inc(i);
+ until (i = n) or (AText[i] = '>')
+ else
+ Result := Result + AText[i];
+ inc(i);
+ end;
+end;
+
+end.
+
diff --git a/applications/biffexplorer/bemain.lfm b/applications/biffexplorer/bemain.lfm
new file mode 100644
index 000000000..0b4b9dd21
--- /dev/null
+++ b/applications/biffexplorer/bemain.lfm
@@ -0,0 +1,1061 @@
+object MainForm: TMainForm
+ Left = 352
+ Height = 576
+ Top = 177
+ Width = 1089
+ AllowDropFiles = True
+ Caption = 'BIFF Explorer'
+ ClientHeight = 556
+ ClientWidth = 1089
+ Menu = MainMenu
+ OnCloseQuery = FormCloseQuery
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
+ OnDropFiles = FormDropFiles
+ OnShow = FormShow
+ ShowHint = True
+ LCLVersion = '1.7'
+ object Splitter1: TSplitter
+ Left = 419
+ Height = 508
+ Top = 25
+ Width = 5
+ end
+ object ToolBar: TToolBar
+ Left = 4
+ Height = 25
+ Top = 0
+ Width = 1085
+ AutoSize = True
+ BorderSpacing.Left = 4
+ ButtonHeight = 25
+ Caption = 'ToolBar'
+ EdgeBorders = []
+ Images = ImageList
+ TabOrder = 1
+ object ToolButton1: TToolButton
+ Left = 1
+ Top = 0
+ Action = AcFileOpen
+ DropdownMenu = RecentFilesPopupMenu
+ Style = tbsDropDown
+ end
+ object ToolButton2: TToolButton
+ Left = 64
+ Top = 0
+ Action = AcFileQuit
+ end
+ object ToolButton3: TToolButton
+ Left = 36
+ Top = 0
+ Action = AcFind
+ end
+ object ToolButton4: TToolButton
+ Left = 59
+ Height = 25
+ Top = 0
+ Width = 5
+ Caption = 'ToolButton4'
+ Style = tbsDivider
+ end
+ end
+ object DetailPanel: TPanel
+ Left = 424
+ Height = 508
+ Top = 25
+ Width = 665
+ Align = alClient
+ BevelOuter = bvNone
+ ClientHeight = 508
+ ClientWidth = 665
+ TabOrder = 3
+ object PageControl: TPageControl
+ Left = 0
+ Height = 508
+ Top = 0
+ Width = 665
+ ActivePage = PgValues
+ Align = alClient
+ TabIndex = 1
+ TabOrder = 0
+ OnChange = PageControlChange
+ object PgAnalysis: TTabSheet
+ Caption = 'Analysis'
+ ClientHeight = 480
+ ClientWidth = 657
+ object AnalysisDetails: TMemo
+ Left = 0
+ Height = 191
+ Top = 289
+ Width = 657
+ Align = alBottom
+ Font.CharSet = ANSI_CHARSET
+ Font.Height = -12
+ Font.Name = 'Courier New'
+ Font.Pitch = fpFixed
+ Font.Quality = fqDraft
+ ParentFont = False
+ ScrollBars = ssAutoBoth
+ TabOrder = 0
+ WordWrap = False
+ end
+ object DetailsSplitter: TSplitter
+ Cursor = crVSplit
+ Left = 0
+ Height = 5
+ Top = 284
+ Width = 657
+ Align = alBottom
+ ResizeAnchor = akBottom
+ end
+ end
+ object PgValues: TTabSheet
+ Caption = 'Values'
+ ClientHeight = 480
+ ClientWidth = 657
+ object ValueGrid: TStringGrid
+ Left = 0
+ Height = 158
+ Top = 322
+ Width = 657
+ Align = alBottom
+ ColCount = 3
+ DefaultColWidth = 100
+ FixedCols = 0
+ MouseWheelOption = mwGrid
+ Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goThumbTracking, goSmoothScroll]
+ RowCount = 9
+ TabOrder = 3
+ TitleStyle = tsNative
+ OnClick = ValueGridClick
+ OnPrepareCanvas = ValueGridPrepareCanvas
+ ColWidths = (
+ 112
+ 142
+ 141
+ )
+ Cells = (
+ 3
+ 0
+ 0
+ 'Data type'
+ 1
+ 0
+ 'Value'
+ 2
+ 0
+ 'Offset range'
+ )
+ end
+ object HexSplitter: TSplitter
+ Cursor = crVSplit
+ Left = 0
+ Height = 5
+ Top = 317
+ Width = 657
+ Align = alBottom
+ ResizeAnchor = akBottom
+ end
+ object HexEditor: TKHexEditor
+ Left = 0
+ Height = 286
+ Top = 31
+ Width = 657
+ AddressPrefix = '$'
+ Align = alClient
+ Colors.HorzLines = clBlack
+ Colors.InactiveCaretBkGnd = clGrayText
+ Colors.InactiveCaretSelBkGnd = clGrayText
+ Colors.InactiveCaretSelText = clHighlightText
+ Colors.InactiveCaretText = clHighlightText
+ Colors.Separators = clBtnFace
+ Colors.VertLines = clScrollBar
+ DigitGrouping = 1
+ DisabledDrawStyle = eddNormal
+ Font.Height = -13
+ Font.Name = 'Courier New'
+ Font.Pitch = fpFixed
+ Font.Style = [fsBold]
+ LineHeightPercent = 120
+ ReadOnly = True
+ TabOrder = 1
+ OnClick = HexEditorClick
+ OnKeyDown = HexEditorKeyDown
+ end
+ object HexEditorParamsPanel: TPanel
+ Left = 0
+ Height = 31
+ Top = 0
+ Width = 657
+ Align = alTop
+ BevelOuter = bvNone
+ ClientHeight = 31
+ ClientWidth = 657
+ TabOrder = 0
+ object CbHexAddress: TCheckBox
+ Left = 3
+ Height = 19
+ Top = 5
+ Width = 131
+ Caption = 'Hexadecimal address'
+ Checked = True
+ OnChange = CbHexAddressChange
+ State = cbChecked
+ TabOrder = 0
+ end
+ object CbHexEditorLineSize: TComboBox
+ Left = 152
+ Height = 23
+ Top = 3
+ Width = 121
+ ItemHeight = 15
+ ItemIndex = 0
+ Items.Strings = (
+ 'normal lines'
+ 'long lines'
+ )
+ OnChange = CbHexEditorLineSizeChange
+ Style = csDropDownList
+ TabOrder = 1
+ Text = 'normal lines'
+ end
+ object CbHexSingleBytes: TCheckBox
+ Left = 296
+ Height = 19
+ Top = 5
+ Width = 83
+ Caption = 'Single bytes'
+ Checked = True
+ OnChange = CbHexSingleBytesChange
+ State = cbChecked
+ TabOrder = 2
+ end
+ end
+ end
+ end
+ end
+ object TreePanel: TPanel
+ Left = 0
+ Height = 508
+ Top = 25
+ Width = 419
+ Align = alLeft
+ BevelOuter = bvNone
+ ClientHeight = 508
+ ClientWidth = 419
+ Constraints.MinWidth = 275
+ TabOrder = 2
+ object FindPanel: TPanel
+ Left = 0
+ Height = 30
+ Top = 478
+ Width = 419
+ Align = alBottom
+ BevelOuter = bvNone
+ ClientHeight = 30
+ ClientWidth = 419
+ TabOrder = 1
+ Visible = False
+ object BtnFindNext: TSpeedButton
+ Left = 240
+ Height = 22
+ Top = 3
+ Width = 23
+ Action = AcFindNext
+ Flat = True
+ end
+ object BtnFindPrev: TSpeedButton
+ Left = 216
+ Height = 22
+ Top = 3
+ Width = 23
+ Action = AcFindPrev
+ Flat = True
+ end
+ object SpeedButton3: TSpeedButton
+ Left = 3
+ Height = 22
+ Top = 3
+ Width = 23
+ Action = AcFindClose
+ Flat = True
+ end
+ object CbFind: TComboBox
+ Left = 28
+ Height = 23
+ Top = 3
+ Width = 183
+ ItemHeight = 15
+ OnChange = CbFindChange
+ OnKeyPress = CbFindKeyPress
+ TabOrder = 0
+ end
+ end
+ object BIFFTree: TVirtualStringTree
+ Left = 0
+ Height = 478
+ Top = 0
+ Width = 419
+ Align = alClient
+ ButtonStyle = bsTriangle
+ DefaultText = 'Node'
+ Header.AutoSizeIndex = 4
+ Header.Columns = <
+ item
+ Alignment = taRightJustify
+ CaptionAlignment = taRightJustify
+ MinWidth = 80
+ Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coUseCaptionAlignment]
+ Position = 0
+ Text = 'Offset'
+ Width = 80
+ end
+ item
+ Alignment = taCenter
+ MinWidth = 60
+ Position = 1
+ Text = 'Record ID'
+ Width = 80
+ end
+ item
+ MinWidth = 80
+ Position = 2
+ Text = 'Record name'
+ Width = 130
+ end
+ item
+ Alignment = taCenter
+ MinWidth = 50
+ Position = 3
+ Text = 'Index'
+ end
+ item
+ MinWidth = 80
+ Position = 4
+ Text = 'Record description'
+ Width = 80
+ end>
+ Header.DefaultHeight = 24
+ Header.Font.Style = [fsBold]
+ Header.Height = 24
+ Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+ HintMode = hmTooltip
+ PopupMenu = TreePopupMenu
+ TabOrder = 0
+ TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSpanColumns, toAutoTristateTracking, toAutoDeleteMovedNodes]
+ TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect]
+ OnBeforeCellPaint = BIFFTreeBeforeCellPaint
+ OnFocusChanged = BIFFTreeFocusChanged
+ OnFreeNode = BIFFTreeFreeNode
+ OnGetText = BIFFTreeGetText
+ OnPaintText = BIFFTreePaintText
+ OnGetNodeDataSize = BIFFTreeGetNodeDataSize
+ end
+ end
+ object StatusBar: TStatusBar
+ Left = 0
+ Height = 23
+ Top = 533
+ Width = 1089
+ Panels = <
+ item
+ Width = 120
+ end
+ item
+ Width = 180
+ end
+ item
+ Width = 150
+ end
+ item
+ Width = 180
+ end>
+ SimplePanel = False
+ end
+ object ImageList: TImageList
+ left = 80
+ top = 64
+ Bitmap = {
+ 4C69090000001000000010000000FFFFFF00FFFFFF000088CC610088CC810088
+ CC810088CC810088CC810088CC810088CC810088CC810088CC810088CC810088
+ CC810088CC610087CB00FFFFFF00FFFFFF00FFFFFF000087CA8388DCF4FF60C0
+ E9FF5FBFEAFF80D3F4FF9CE3FDFFA2E6FFFFA2E6FFFFA2E6FFFFA2E6FFFFA6EA
+ FFFF0087CA830087CA00FFFFFF00FFFFFF00FFFFFF000085C885ACF1FFFFABEF
+ FEFF95E2F8FF6EC9EDFF48A8D9FF98DCFEFF98DCFEFF98DCFEFF98DCFEFFA1E5
+ FFFF0085C8850085C800FFFFFF00FFFFFF00FFFFFF000084C587A9EEFDFFA4E9
+ FCFFA4E9FCFFAAEEFDFF42A1D1FF97DBFDFF97DBFDFF97DBFDFF97DBFDFF9FE3
+ FEFF0084C5870084C500FFFFFF00FFFFFF00FFFFFF000082C28AA6EBFCFFA1E6
+ FBFFA1E6FBFFA6EBFCFF3C9DCFFF96DAFCFF96DAFCFF96DAFCFF96DAFCFF9EE2
+ FDFF0082C28A0082C200FFFFFF00FFFFFF00FFFFFF00007FBF8DA3E8FBFF9DE3
+ F9FF9DE3F9FFA3E8FBFF3594C5FF94D8FAFF94D8FAFF94D8FAFF94D8FAFF9BDF
+ FCFF007FBF8D007FBE00FFFFFF00FFFFFF00FFFFFF00007DBB909EE5F9FF98DF
+ F6FF98DFF6FF9EE5F9FF3290C0FF92D6F8FF92D6F8FF92D6F8FF92D6F8FF99DD
+ FAFF007DBB90007DBB33FFFFFF00FFFFFF00FFFFFF00007BB8949BE1F7FF94DB
+ F4FF94DBF4FF9BE1F7FF308DBCFF90D4F6FF90D4F6FF90D4F6FF90D4F6FF97DB
+ F9FFFEFEFDFF007BB894FFFFFF00FFFFFF00FFFFFF000078B49797DEF6FF90D8
+ F2FF90D8F2FF97DEF6FF2D89B7FF8FD3F5FF8FD3F5FF8FD3F5FF8FD3F5FF95D9
+ F8FFF5F5EEFF0078B497FFFFFF00FFFFFF00FFFFFF000076B09B92DAF4FF8BD4
+ F0FF8BD4F0FF92DAF4FF2B85B3FF8DD1F3FF8DD1F3FF8DD1F3FF8DD1F3FF93D7
+ F6FFEBEBDDFF0076B09BFFFFFF00FFFFFF00FFFFFF000073AC9E8ED6F2FF87D0
+ EDFF87D0EDFF8ED6F2FF2882AFFF8BCFF1FF8BCFF1FF8BCFF1FF8BCFF1FF91D5
+ F5FFFEC941FF0073AC9EFFFFFF00FFFFFF00FFFFFF00006FA7A48AD3F0FF82CD
+ EBFF82CDEBFF8AD3F0FF267EABFF8ACEF0FF8ACEF0FF8ACEF0FF8ACEF0FF8FD3
+ F4FFF4B62EFF006FA7A4FFFFFF00FFFFFF00FFFFFF00006699B287D1EFFF7FCA
+ E9FF7FCAE9FF87D0EFFF267DA9FF8DD1F3FF8DD1F3FF8DD1F3FF8DD1F3FF90D4
+ F5FF006699B200679B3EFFFFFF00FFFFFF00FFFFFF00005E8D8E3591BDF169B8
+ DDFA81CBECFF84CEEEFF005C8BEF005D8CBE005D8CBE005D8CBE005D8CBE005D
+ 8CBE005E8D8E00669900FFFFFF00FFFFFF00FFFFFF00005D8C00006599500064
+ 97991C7AA9C052A5CDE0005B89C1005B8900005B8900005B8900005B8900005B
+ 8900005D8C0000669900FFFFFF00FFFFFF00FFFFFF00005D8C00006497000062
+ 9300005E8E30005C8C7C0059879200598700005B8900005B8900005B8900005B
+ 8900005D8C0000669900FFFFFF00003F9300003F9300003F9300003F9424003F
+ 948A003E93CC004095CC004095CC004095CC004095CC004095CC004095CC0040
+ 95CC004095CC00409599FFFFFF00003F9300003F9324003F938A0E4B9CD33F76
+ C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9A9FFAAAAAAFFACACACFFAEAE
+ AEFFB0B0B0FF003E93CCFFFFFF00003F938A0E4A9CD33E75BFEC5487CBFF3669
+ ADFF23569AFF3363A6FFA9A9A9FFBCBCBCFFBDBDBDFFBFBFBFFFC1C1C1FFC4C4
+ C4FFC7C7C7FF003C90CCFFFFFF00003D91CC5D90D4FF3568ACFF285B9FFF1A4D
+ 91FF4477BBFF3361A4FFA9A9A9FFBDBDBDFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7
+ C7FFC9C9C9FF003A8DCCFFFFFF00003B8ECC588BCFFF1A4D91FF4376BAFF3265
+ A9FF4376BAFF335FA1FFAAAAAAFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9
+ C9FFCCCCCCFF003789CCFFFFFF0000398BCC5588CCFF275A9EFF4174B8FF3164
+ A8FF4174B8FF335D9EFFACACACFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9C9FFCCCC
+ CCFFD0D0D0FF003485CCFFFFFF00003688CC5386CAFF295CA0FF3F72B6FF3063
+ A7FF3F72B6FF335A9AFFAEAEAEFFC4C4C4FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0
+ D0FFD3D3D3FF003181CCFFFFFF00003485CC5083C7FF1D5094FF3265A9FF2D60
+ A4FF3D70B4FF335897FFB0B0B0FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3
+ D3FFD5D5D5FF002E7DCCFFFFFF00003181CC4C7FC3FFBBBBBBFF22518CFF2C5F
+ A3FF3B6EB2FF335593FFB3B3B3FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5
+ D5FFD8D8D8FF002B78CCFFFFFF00002E7DCC497CC0FF09336FFF215090FF2B5E
+ A2FF396CB0FF335290FFB5B5B5FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5D5FFD8D8
+ D8FFDBDBDBFF002774CCFFFFFF00002B79CC477ABEFF2C5FA3FF376AAEFF2B5E
+ A2FF376AAEFF33508CFFB8B8B8FFD0D0D0FFD3D3D3FFD5D5D5FFD8D8D8FFDBDB
+ DBFFDCDCDCFF00246FCCFFFFFF00002875CC4477BBFF2C5FA3FF3568ACFF2B5E
+ A2FF2E61A5FF334B87FFBBBBBBFFD3D3D3FFD5D5D5FFD8D8D8FFDBDBDBFFDCDC
+ DCFFDDDDDDFF001F68CCFFFFFF00002571CC4174B8FF2C5FA3FF2D60A4FF2356
+ 9AFF3D70B4FF334179FFBEBEBEFFD5D5D5FFD8D8D8FFDBDBDBFFDCDCDCFFDDDD
+ DDFFDDDDDDFF001258CCFFFFFF0000226DCC3F72B6FF225599FF3B6EB2FF2C51
+ 96EC0A1C60D3000749A4000648CC000648CC000648CC000648CC000648CC0006
+ 48CC000648CC00074A99FFFFFF00001B64CC4174B8FF2A5094EC0A1A5ED30008
+ 4A8A000648240006470000044500000445000004450000044500000445000004
+ 45000004450000064800FFFFFF0000105500000B4FCC0007498A000546240005
+ 4700000648000006470000044500000445000004450000044500000445000004
+ 45000004450000064800FFFFFF004E4E4E005151510054545411555555405555
+ 555A555555655555555A5555554054545411515151004E4E4E004E4E4E002957
+ 27000569000007710000FFFFFF004E4E4E005151512163605E62B1A3948BE6D5
+ C5AFF4EADFC7EDE3D9B5B6ACA28E63605E62515151214E4E4E004E4E4E004E4E
+ 4E004E4E4E004E4E4E00FFFFFF004D4D4D115F5D5A64D5C1AEA1EBD8C4C2F6EC
+ E2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D5B644D4D4D114C4C4C004C4C
+ 4C004C4C4C004C4C4C00FFFFFF0049494943AD9F918EE8D2BBC0F1E3D5C8F6ED
+ E4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4979149494943494949004949
+ 49004949490049494900FFFFFF0043434360E0CBB6ACE8D2BBC0E8D2BBC0E8D2
+ BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3C1B243434360434343004343
+ 43004343430043434300FFFFFF003E3E3E6FE9D4BEBEE8D2BBC0E8D2BBC0F6ED
+ E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDBC8C53E3E3E6F3E3E3E003E3E
+ 3E003E3E3E003E3E3E00FFFFFF0038383865E1CFBCB1E8D2BBC0F6EDE4CEF6ED
+ E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8CAB838383865383838003838
+ 38003838380038383800FFFFFF0031313149A89D9397EAD5BFC3F5E9DFCBF6ED
+ E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA69E9D31313149313131003131
+ 31003131310031313100FFFFFF00262626143B3A3874D7C9BCAFF3E6D9CBF6ED
+ E4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544437D34343424383838003939
+ 39003A3A3A003C3C3C00FFFFFF001E1E1E001111112A2826257D9D9791A5EEE8
+ E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACACACFF373737753737371F3939
+ 39003A3A3A003C3C3C00FFFFFF001E1E1E000E0E0E0004040416040404560404
+ 04790404048704040479040404560404042A0F0F0F86B8B5B5FF4241417E3838
+ 382A3A3A3A003C3C3C00FFFFFF001E1E1E000E0E0E0004040400040404000404
+ 040004040400040404000404040004040400040404251A1A1A8FC8C1C1FF4F4D
+ 4D88393939383C3C3C00FFFFFF001E1E1E000E0E0E0004040400040404000404
+ 040004040400040404000404040004040400040404000404043328272799D9CE
+ CEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E0E0004040400040404000404
+ 0400040404000404040004040400040404000404040004040400040404443B38
+ 38A2E8D8D8FF32323276FFFFFF001E1E1E000E0E0E0004040400040404000404
+ 0400040404000404040004040400040404000404040004040400040404000404
+ 045C090909892525252CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A7000000AA480000
+ AACC0000AA480000A7000000A3000000A3000000A7000000AA480000AACC0000
+ AA480000A700FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A7480000A7CC7777
+ FFFF0000A7CC0000A7480000A3000000A3000000A7480000A7CC7070F8FF0000
+ A7CC0000A748FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A3CC7676FEFF4C4C
+ D4FF7272FAFF0000A3CC0000A3480000A3480000A3CC6262EAFF4C4CD4FF5C5C
+ E4FF0000A3CCFFFFFF00FFFFFF00FFFFFF00FFFFFF000000A1480000A0CC6767
+ EFFF3636BEFF5E5EE6FF0000A0CC0000A0CC4F4FD7FF3636BEFF4545CDFF0000
+ A0CC0000A148FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A00000009C480000
+ 9BCC5353DBFF2E2EB7FF3D3DC6FF3131BAFF15159FFF1E1EA8FF00009BCC0000
+ 9C480000A000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A00000009B000000
+ 9848000097CC2525B4FF1111A2FF1111A2FF1414A5FF000097CC000098480000
+ 9B000000A000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000870000008D000000
+ 9148000092CC1515AFFF1111ACFF1111ACFF1111ACFF000092CC000091480000
+ 8D0000008700FFFFFF00FFFFFF00FFFFFF00FFFFFF000000870000008C480000
+ 8DCC1111B8FF1111B8FF1111B8FF1111B8FF1111B8FF1111B8FF00008DCC0000
+ 8C4800008700FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008748000087CC1111
+ C4FF1111C4FF1111C4FF000087CC000087CC1111C4FF1111C4FF1111C4FF0000
+ 87CC00008748FFFFFF00FFFFFF00FFFFFF00FFFFFF00000082CC1111D0FF1111
+ D0FF1111D0FF000082CC0000834800008348000082CC1111D0FF1111D0FF1111
+ D0FF000082CCFFFFFF00FFFFFF00FFFFFF00FFFFFF0000007548000072CC1111
+ D8FF000072CC00007548000082000000820000007548000072CC1111D8FF0000
+ 72CC00007548FFFFFF00FFFFFF00FFFFFF00FFFFFF0000007200000061480000
+ 5FCC00006148000072000000820000008200000072000000614800005FCC0000
+ 614800007200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E69B3D33E89D3FCCE89D3FCCE89D
+ 3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D
+ 3FCCE89D3FCCE69B3D33FFFFFF00FFFFFF00E2973A15DF9438AEF0BD69E6FEDE
+ 92FFFCD68AFFFCD68AFFFCD68AFFFCD68AFFFCD589FFFCD589FFFDDA8EFFEFBA
+ 66E6DF9438AEE2973A15FFFFFF00FFFFFF00E2973A00D98E3315D2872EAEE8B5
+ 63E6F7CB7FFFEAAF63FFE0A559FFD69B4FFFD19549FFDDAC60FFDFA553E6D287
+ 2EAED98E3315E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802915C379
+ 23AEDCA553E6E3B25DFFD3953BFFD3953BFFDFA952FFD69A45E6C37923AECB80
+ 2915D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71
+ 1D15B56A18AED69737E6F1B436FFF0B130FFD4922DE6B56A18AEBC711D15CB80
+ 2900D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71
+ 1D00AE631215A75C0DAED38D19E6D38C18E6A75C0DAEAE631215BC711D00CB80
+ 2900D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71
+ 1D00AE631200A05509159B5005AE9B5005AEA0550915AE631200BC711D00CB80
+ 2900D98E3300E2973A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D287
+ 2E00DF943800E79C3E5CE89D3FCCE79C3E5CDF943800D2872E00C3792300B56A
+ 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D287
+ 2E00DE93375CDF9438CCFFE599FFDF9438CCDE93375CD2872E00C3792300B56A
+ 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D085
+ 2D5CD2872ECCFEE195FFF8C77BFFFDDE92FFD2872ECCD0852D5CC3792300B56A
+ 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C177225CC379
+ 23CCFBD98DFFECB367FFE1A75BFFD79C50FFE7BC70FFC37923CCC177225CB56A
+ 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B368175CB56A18CCF8CF
+ 80FFE6A53EFFDE9D2FFFDD9C2EFFDD9C2EFFDD9C2EFFE6AE47FFB56A18CCB368
+ 175CA75C0D00FFFFFF00FFFFFF00FFFFFF00A55A0C5CA75C0DCCF9C966FFFAB8
+ 27FFFBB71CFFFBB518FFFBB414FFFBB311FFFBB20FFFFBB20EFFFBB516FFA75C
+ 0DCCA55A0C5CFFFFFF00FFFFFF00FFFFFF009C5106999B5005CC9B5005CC9B50
+ 05CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B50
+ 05CC9C510699FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF004F4F4F005050500052525200535353005454
+ 54155555553E555555555555556355555563555555555555553E545454155353
+ 530052525200505050004F4F4F004F4F4F0050505000525252075353533D7373
+ 7378C8C8C8D2EAEAEAFFE6E6E6FFE6E6E6FFEAEAEAFFC7C7C7D2727272785353
+ 533D52525207505050004F4F4F004F4F4F00505050075151514D9F9F9FA1E6E6
+ E6FFD7B0A3FFD08C75FFCD6C4BFFCD6C4BFFD08C75FFD6AFA2FFE3E4E4FF9D9D
+ 9DA15151514D505050074F4F4F004E4E4E004E4E4E3F9D9D9DA2DFDFDFFFCB79
+ 5EFFDB7A58FFEE906EFFF49674FFF49573FFED8E6CFFDA7856FFCB795EFFDBDC
+ DCFF999999A24E4E4E3F4E4E4E004B4B4B176C6C6C7CDFE0E0FFC8755AFFE283
+ 61FFDC7A58FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE2987FFFDF7E5CFFC875
+ 5AFFD8D8D8FF6969697C4B4B4B1748484842BEBFBFD4C9A295FFD57452FFE281
+ 5FFFD26C4AFFD5A291FFD5A291FFE6C2B6FFFFFFFFFFE0AD9CFFDF7C5AFFD16E
+ 4CFFC7A194FFB2B3B3D4484848424545455CDBDCDCFFC07C65FFDF805EFFCF69
+ 47FFCF6947FFCA6442FFC05937FFC28775FFCCCCCCFFBC8877FFAD4624FFC360
+ 3EFFC07C65FFCBCCCCFF4545455C4242426CCFCFCFFFBC5B3BFFDD7D5BFFC962
+ 40FFBD5330FFB44A26FFBC7259FFD1CFCFFFC7AEA5FFB24824FFB34925FFBD55
+ 32FFBC5B3BFFC3C3C3FF4242426C3E3E3E6ECCCCCCFFB95737FFD5714DFFBF50
+ 2AFFBD4E27FFB94B26FFDBDBDBFFDBDBDBFFB94C26FFBD4E27FFBD4E27FFC154
+ 2EFFB95737FFC0C0C0FF3E3E3E6E3A3A3A61D0CFCFFFB9745DFFCF643EFFC954
+ 2AFFC9542AFFC9542AFFBB4D27FFBB4D27FFC9542AFFC9542AFFC9542AFFC554
+ 2CFFB9745DFFC2C0C0FF3A3A3A6137373747ACAAAAD7C09789FFBF5631FFD85F
+ 33FFD55A2DFFCB542AFFEEEEEEFFEEEEEEFFCB542AFFD55A2DFFD55A2DFFBC4F
+ 29FFBF9588FFA29F9FD7373737473434341953515186D4CECEFFB35F44FFC957
+ 2FFFE16132FFD3592DFFEEEEEEFFEEEEEEFFD3592DFFE15F30FFC8532AFFB35F
+ 44FFD0C9C9FF5150508634343419303030002F2F2F48827E7EACDBD1D1FFAC57
+ 3CFFB6461FFFD6592AFFE56230FFE56230FFD6592AFFB6461FFFAC573CFFDACF
+ CFFF817C7CAC2F2F2F48303030002E2E2E002C2C2C092626265C807979AFE4D6
+ D6FFC69689FFAD644EFF943312FF943312FFAD644EFFC69689FFE3D6D6FF7F79
+ 79AF2626265C2C2C2C092E2E2E002E2E2E002C2C2C001E1E1E091717174F3D3A
+ 3A92B2A6A6DCEBDADAFFEBDADAFFEBDADAFFEBDADAFFB2A6A6DC3D3A3A921717
+ 174F1E1E1E092C2C2C002E2E2E002E2E2E002C2C2C001E1E1E00131313000D0D
+ 0D1D0B0B0B540B0B0B740B0B0B870B0B0B870B0B0B740B0B0B540D0D0D1D1313
+ 13001E1E1E002C2C2C002E2E2E00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF007A7A7A117C7C7C547C7C7C677C7C7C547A7A
+ 7A1177777700555555000000A2000000A200000099000000A6000000A7210000
+ A8A60000A8CC0000A8A60000A72165656557CACACAB8FDFDFDFFCACACAB86565
+ 65575B5B5B005555550016168E0000009FCC0000993300009E0000009FA73F3F
+ D5E87272FEFF3F3FD5E800009FA74545456FF2F2F2FFF2F2F2FFF2F2F2FF4545
+ 456F55555566555555662B2B7400000092B3000092CC00009200000092CC5656
+ F5FF5656F5FF5656F5FF000092CC2525255E9F9F9FBDE4E4E4FF9F9F9FBD2525
+ 255E474747005555550016167700000084CC00008B3300008600000084A71F1F
+ BEE83434EBFF1F1FBEE8000084A70E0E0E140B0B0B610B0B0B770B0B0B610E0E
+ 0E141010100055555500000080000000800000008B0000006E0000006B210000
+ 67A6000067CC000067A600006B21FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF007A7A7A117C7C7C547C7C7C677C7C7C547A7A
+ 7A1177777700555555005555550055555500EA846200EB856329EC8664D0EC86
+ 64FFEC8664D0EB856329FFFFFF0065656557CACACAB8FDFDFDFFCACACAB86565
+ 65575B5B5B0055555500555555005555550079605700E27C5AD0EEA891FFF7CE
+ C1FFEEA891FFE27C5AD0FFFFFF004545456FF2F2F2FFF2F2F2FFF2F2F2FF4545
+ 456F5454546654545466545454665454546654545466D46F4DFFF0C7BAFFF0C7
+ BAFFF0C7BAFFD46F4DFFFFFFFF002525255E9F9F9FBDE4E4E4FF9F9F9FBD2525
+ 255E45454500505050004C4C4C66505050006E554D00C4613FD0D7927BFFE8BF
+ B2FFD7927BFFC4613FD0FFFFFF000E0E0E140B0B0B610B0B0B770B0B0B610E0E
+ 0E1410101000414141004141416641414100B9563400B8553329B65331D0B653
+ 31FFB65331D0B8553329FFFFFF000B0B0B000606060006060600060606000B0B
+ 0B002323230035353500353535663535350077463500B6533100B3502E00B350
+ 2E00B3502E00B6533100FFFFFF000B0B0B000606060006060600060606000B0B
+ 0B00282828002828280028282866282828006E372600B1452300AE442200AE44
+ 2200AE442200B1452300FFFFFF000B0B0B000606060006060600060606001111
+ 11001A1A1A001A1A1A001A1A1A661A1A1A00B3462400B2462429B14523D0B145
+ 23FFB14523D0B2462429FFFFFF000B0B0B000606060006060600080808000F0F
+ 0F000F0F0F000F0F0F000F0F0F660A0A0A0034180F00BD4B29D0DB9078FFF7CE
+ C1FFDB9078FFBD4B29D0FFFFFF000B0B0B000606060006060600070707000707
+ 070007070700070707000606064D0505056605050566CC5331FFF0C7BAFFF0C7
+ BAFFF0C7BAFFCC5331FFFFFFFF000B0B0B000606060006060600070707000707
+ 0700070707000707070005050500030303003A1A1100DB5B39D0E4917AFFE8BF
+ B2FFE4917AFFDB5B39D0FFFFFF000B0B0B000606060006060600070707000707
+ 070007070700070707000505050003030300E5613F00E7624029E86341D0E863
+ 41FFE86341D0E7624029FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00
+ }
+ end
+ object MainMenu: TMainMenu
+ Images = ImageList
+ left = 168
+ top = 136
+ object MnuFile: TMenuItem
+ Caption = 'File'
+ object MnuFileOpen: TMenuItem
+ Action = AcFileOpen
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+ FF00005D8C000064970000629300005E8E30005C8C7C0059879200598700005B
+ 8900005B8900005B8900005B8900005D8C0000669900FFFFFF00FFFFFF00FFFF
+ FF00005D8C0000659950006497991C7AA9C052A5CDE0005B89C1005B8900005B
+ 8900005B8900005B8900005B8900005D8C0000669900FFFFFF00FFFFFF00FFFF
+ FF00005E8D8E3591BDF169B8DDFA81CBECFF84CEEEFF005C8BEF005D8CBE005D
+ 8CBE005D8CBE005D8CBE005D8CBE005E8D8E00669900FFFFFF00FFFFFF00FFFF
+ FF00006699B287D1EFFF7FCAE9FF7FCAE9FF87D0EFFF267DA9FF8DD1F3FF8DD1
+ F3FF8DD1F3FF8DD1F3FF90D4F5FF006699B200679B3EFFFFFF00FFFFFF00FFFF
+ FF00006FA7A48AD3F0FF82CDEBFF82CDEBFF8AD3F0FF267EABFF8ACEF0FF8ACE
+ F0FF8ACEF0FF8ACEF0FF8FD3F4FFF4B62EFF006FA7A4FFFFFF00FFFFFF00FFFF
+ FF000073AC9E8ED6F2FF87D0EDFF87D0EDFF8ED6F2FF2882AFFF8BCFF1FF8BCF
+ F1FF8BCFF1FF8BCFF1FF91D5F5FFFEC941FF0073AC9EFFFFFF00FFFFFF00FFFF
+ FF000076B09B92DAF4FF8BD4F0FF8BD4F0FF92DAF4FF2B85B3FF8DD1F3FF8DD1
+ F3FF8DD1F3FF8DD1F3FF93D7F6FFEBEBDDFF0076B09BFFFFFF00FFFFFF00FFFF
+ FF000078B49797DEF6FF90D8F2FF90D8F2FF97DEF6FF2D89B7FF8FD3F5FF8FD3
+ F5FF8FD3F5FF8FD3F5FF95D9F8FFF5F5EEFF0078B497FFFFFF00FFFFFF00FFFF
+ FF00007BB8949BE1F7FF94DBF4FF94DBF4FF9BE1F7FF308DBCFF90D4F6FF90D4
+ F6FF90D4F6FF90D4F6FF97DBF9FFFEFEFDFF007BB894FFFFFF00FFFFFF00FFFF
+ FF00007DBB909EE5F9FF98DFF6FF98DFF6FF9EE5F9FF3290C0FF92D6F8FF92D6
+ F8FF92D6F8FF92D6F8FF99DDFAFF007DBB90007DBB33FFFFFF00FFFFFF00FFFF
+ FF00007FBF8DA3E8FBFF9DE3F9FF9DE3F9FFA3E8FBFF3594C5FF94D8FAFF94D8
+ FAFF94D8FAFF94D8FAFF9BDFFCFF007FBF8D007FBE00FFFFFF00FFFFFF00FFFF
+ FF000082C28AA6EBFCFFA1E6FBFFA1E6FBFFA6EBFCFF3C9DCFFF96DAFCFF96DA
+ FCFF96DAFCFF96DAFCFF9EE2FDFF0082C28A0082C200FFFFFF00FFFFFF00FFFF
+ FF000084C587A9EEFDFFA4E9FCFFA4E9FCFFAAEEFDFF42A1D1FF97DBFDFF97DB
+ FDFF97DBFDFF97DBFDFF9FE3FEFF0084C5870084C500FFFFFF00FFFFFF00FFFF
+ FF000085C885ACF1FFFFABEFFEFF95E2F8FF6EC9EDFF48A8D9FF98DCFEFF98DC
+ FEFF98DCFEFF98DCFEFFA1E5FFFF0085C8850085C800FFFFFF00FFFFFF00FFFF
+ FF000087CA8388DCF4FF60C0E9FF5FBFEAFF80D3F4FF9CE3FDFFA2E6FFFFA2E6
+ FFFFA2E6FFFFA2E6FFFFA6EAFFFF0087CA830087CA00FFFFFF00FFFFFF00FFFF
+ FF000088CC610088CC810088CC810088CC810088CC810088CC810088CC810088
+ CC810088CC810088CC810088CC810088CC610087CB00FFFFFF00
+ }
+ end
+ object MnuFileReopen: TMenuItem
+ Caption = 'Recently opened files'
+ end
+ object MenuItem9: TMenuItem
+ Caption = '-'
+ end
+ object MnuDumpToFile: TMenuItem
+ Action = AcDumpToFile
+ end
+ object MenuItem4: TMenuItem
+ Caption = '-'
+ end
+ object MnuFileQuit: TMenuItem
+ Action = AcFileQuit
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 200000000000000400006400000064000000000000000000000000105500000B
+ 4FCC0007498A0005462400054700000648000006470000044500000445000004
+ 45000004450000044500000445000004450000064800FFFFFF00001B64CC4174
+ B8FF2A5094EC0A1A5ED300084A8A000648240006470000044500000445000004
+ 45000004450000044500000445000004450000064800FFFFFF0000226DCC3F72
+ B6FF225599FF3B6EB2FF2C5196EC0A1C60D3000749A4000648CC000648CC0006
+ 48CC000648CC000648CC000648CC000648CC00074A99FFFFFF00002571CC4174
+ B8FF2C5FA3FF2D60A4FF23569AFF3D70B4FF334179FFBEBEBEFFD5D5D5FFD8D8
+ D8FFDBDBDBFFDCDCDCFFDDDDDDFFDDDDDDFF001258CCFFFFFF00002875CC4477
+ BBFF2C5FA3FF3568ACFF2B5EA2FF2E61A5FF334B87FFBBBBBBFFD3D3D3FFD5D5
+ D5FFD8D8D8FFDBDBDBFFDCDCDCFFDDDDDDFF001F68CCFFFFFF00002B79CC477A
+ BEFF2C5FA3FF376AAEFF2B5EA2FF376AAEFF33508CFFB8B8B8FFD0D0D0FFD3D3
+ D3FFD5D5D5FFD8D8D8FFDBDBDBFFDCDCDCFF00246FCCFFFFFF00002E7DCC497C
+ C0FF09336FFF215090FF2B5EA2FF396CB0FF335290FFB5B5B5FFCCCCCCFFD0D0
+ D0FFD3D3D3FFD5D5D5FFD8D8D8FFDBDBDBFF002774CCFFFFFF00003181CC4C7F
+ C3FFBBBBBBFF22518CFF2C5FA3FF3B6EB2FF335593FFB3B3B3FFC9C9C9FFCCCC
+ CCFFD0D0D0FFD3D3D3FFD5D5D5FFD8D8D8FF002B78CCFFFFFF00003485CC5083
+ C7FF1D5094FF3265A9FF2D60A4FF3D70B4FF335897FFB0B0B0FFC7C7C7FFC9C9
+ C9FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5D5FF002E7DCCFFFFFF00003688CC5386
+ CAFF295CA0FF3F72B6FF3063A7FF3F72B6FF335A9AFFAEAEAEFFC4C4C4FFC7C7
+ C7FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3D3FF003181CCFFFFFF0000398BCC5588
+ CCFF275A9EFF4174B8FF3164A8FF4174B8FF335D9EFFACACACFFC1C1C1FFC4C4
+ C4FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0D0FF003485CCFFFFFF00003B8ECC588B
+ CFFF1A4D91FF4376BAFF3265A9FF4376BAFF335FA1FFAAAAAAFFBFBFBFFFC1C1
+ C1FFC4C4C4FFC7C7C7FFC9C9C9FFCCCCCCFF003789CCFFFFFF00003D91CC5D90
+ D4FF3568ACFF285B9FFF1A4D91FF4477BBFF3361A4FFA9A9A9FFBDBDBDFFBFBF
+ BFFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9C9FF003A8DCCFFFFFF00003F938A0E4A
+ 9CD33E75BFEC5487CBFF3669ADFF23569AFF3363A6FFA9A9A9FFBCBCBCFFBDBD
+ BDFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7C7FF003C90CCFFFFFF00003F9300003F
+ 9324003F938A0E4B9CD33F76C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9
+ A9FFAAAAAAFFACACACFFAEAEAEFFB0B0B0FF003E93CCFFFFFF00003F9300003F
+ 9300003F9300003F9424003F948A003E93CC004095CC004095CC004095CC0040
+ 95CC004095CC004095CC004095CC004095CC00409599FFFFFF00
+ }
+ end
+ end
+ object MnuRecord: TMenuItem
+ Caption = 'Record'
+ object MnuFind: TMenuItem
+ Action = AcFind
+ AutoCheck = True
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 040004040400040404000404045C090909892525252CFFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 040004040400040404443B3838A2E8D8D8FF32323276FFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 04000404043328272799D9CECEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 04251A1A1A8FC8C1C1FF4F4D4D88393939383C3C3C00FFFFFF001E1E1E000E0E
+ 0E000404041604040456040404790404048704040479040404560404042A0F0F
+ 0F86B8B5B5FF4241417E3838382A3A3A3A003C3C3C00FFFFFF001E1E1E001111
+ 112A2826257D9D9791A5EEE8E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACAC
+ ACFF373737753737371F393939003A3A3A003C3C3C00FFFFFF00262626143B3A
+ 3874D7C9BCAFF3E6D9CBF6EDE4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544
+ 437D3434342438383800393939003A3A3A003C3C3C00FFFFFF0031313149A89D
+ 9397EAD5BFC3F5E9DFCBF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA6
+ 9E9D3131314931313100313131003131310031313100FFFFFF0038383865E1CF
+ BCB1E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8
+ CAB83838386538383800383838003838380038383800FFFFFF003E3E3E6FE9D4
+ BEBEE8D2BBC0E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDB
+ C8C53E3E3E6F3E3E3E003E3E3E003E3E3E003E3E3E00FFFFFF0043434360E0CB
+ B6ACE8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3
+ C1B24343436043434300434343004343430043434300FFFFFF0049494943AD9F
+ 918EE8D2BBC0F1E3D5C8F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4
+ 97914949494349494900494949004949490049494900FFFFFF004D4D4D115F5D
+ 5A64D5C1AEA1EBD8C4C2F6ECE2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D
+ 5B644D4D4D114C4C4C004C4C4C004C4C4C004C4C4C00FFFFFF004E4E4E005151
+ 512163605E62B1A3948BE6D5C5AFF4EADFC7EDE3D9B5B6ACA28E63605E625151
+ 51214E4E4E004E4E4E004E4E4E004E4E4E004E4E4E00FFFFFF004E4E4E005151
+ 510054545411555555405555555A555555655555555A55555540545454115151
+ 51004E4E4E004E4E4E00295727000569000007710000FFFFFF00
+ }
+ end
+ end
+ object MnuHelp: TMenuItem
+ Caption = 'Help'
+ object MenuItem2: TMenuItem
+ Action = AcAbout
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 20000000000000040000640000006400000000000000000000002E2E2E002C2C
+ 2C001E1E1E00131313000D0D0D1D0B0B0B540B0B0B740B0B0B870B0B0B870B0B
+ 0B740B0B0B540D0D0D1D131313001E1E1E002C2C2C002E2E2E002E2E2E002C2C
+ 2C001E1E1E091717174F3D3A3A92B2A6A6DCEBDADAFFEBDADAFFEBDADAFFEBDA
+ DAFFB2A6A6DC3D3A3A921717174F1E1E1E092C2C2C002E2E2E002E2E2E002C2C
+ 2C092626265C807979AFE4D6D6FFC69689FFAD644EFF943312FF943312FFAD64
+ 4EFFC69689FFE3D6D6FF7F7979AF2626265C2C2C2C092E2E2E00303030002F2F
+ 2F48827E7EACDBD1D1FFAC573CFFB6461FFFD6592AFFE56230FFE56230FFD659
+ 2AFFB6461FFFAC573CFFDACFCFFF817C7CAC2F2F2F4830303000343434195351
+ 5186D4CECEFFB35F44FFC9572FFFE16132FFD3592DFFEEEEEEFFEEEEEEFFD359
+ 2DFFE15F30FFC8532AFFB35F44FFD0C9C9FF515050863434341937373747ACAA
+ AAD7C09789FFBF5631FFD85F33FFD55A2DFFCB542AFFEEEEEEFFEEEEEEFFCB54
+ 2AFFD55A2DFFD55A2DFFBC4F29FFBF9588FFA29F9FD7373737473A3A3A61D0CF
+ CFFFB9745DFFCF643EFFC9542AFFC9542AFFC9542AFFBB4D27FFBB4D27FFC954
+ 2AFFC9542AFFC9542AFFC5542CFFB9745DFFC2C0C0FF3A3A3A613E3E3E6ECCCC
+ CCFFB95737FFD5714DFFBF502AFFBD4E27FFB94B26FFDBDBDBFFDBDBDBFFB94C
+ 26FFBD4E27FFBD4E27FFC1542EFFB95737FFC0C0C0FF3E3E3E6E4242426CCFCF
+ CFFFBC5B3BFFDD7D5BFFC96240FFBD5330FFB44A26FFBC7259FFD1CFCFFFC7AE
+ A5FFB24824FFB34925FFBD5532FFBC5B3BFFC3C3C3FF4242426C4545455CDBDC
+ DCFFC07C65FFDF805EFFCF6947FFCF6947FFCA6442FFC05937FFC28775FFCCCC
+ CCFFBC8877FFAD4624FFC3603EFFC07C65FFCBCCCCFF4545455C48484842BEBF
+ BFD4C9A295FFD57452FFE2815FFFD26C4AFFD5A291FFD5A291FFE6C2B6FFFFFF
+ FFFFE0AD9CFFDF7C5AFFD16E4CFFC7A194FFB2B3B3D4484848424B4B4B176C6C
+ 6C7CDFE0E0FFC8755AFFE28361FFDC7A58FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFE2987FFFDF7E5CFFC8755AFFD8D8D8FF6969697C4B4B4B174E4E4E004E4E
+ 4E3F9D9D9DA2DFDFDFFFCB795EFFDB7A58FFEE906EFFF49674FFF49573FFED8E
+ 6CFFDA7856FFCB795EFFDBDCDCFF999999A24E4E4E3F4E4E4E004F4F4F005050
+ 50075151514D9F9F9FA1E6E6E6FFD7B0A3FFD08C75FFCD6C4BFFCD6C4BFFD08C
+ 75FFD6AFA2FFE3E4E4FF9D9D9DA15151514D505050074F4F4F004F4F4F005050
+ 5000525252075353533D73737378C8C8C8D2EAEAEAFFE6E6E6FFE6E6E6FFEAEA
+ EAFFC7C7C7D2727272785353533D52525207505050004F4F4F004F4F4F005050
+ 50005252520053535300545454155555553E5555555555555563555555635555
+ 55555555553E545454155353530052525200505050004F4F4F00
+ }
+ end
+ end
+ end
+ object ActionList: TActionList
+ Images = ImageList
+ left = 168
+ top = 64
+ object AcFileOpen: TAction
+ Caption = 'Open'
+ Hint = 'Open xls file'
+ ImageIndex = 0
+ OnExecute = AcFileOpenExecute
+ ShortCut = 16463
+ end
+ object AcFileQuit: TAction
+ Caption = 'Quit'
+ Hint = 'Quit application'
+ ImageIndex = 1
+ OnExecute = AcFileQuitExecute
+ ShortCut = 32856
+ end
+ object AcFind: TAction
+ AutoCheck = True
+ Caption = 'Find'
+ Hint = 'Find record'
+ ImageIndex = 2
+ OnExecute = AcFindExecute
+ ShortCut = 16454
+ end
+ object AcFindClose: TAction
+ ImageIndex = 3
+ OnExecute = AcFindCloseExecute
+ end
+ object AcFindNext: TAction
+ ImageIndex = 4
+ OnExecute = AcFindNextExecute
+ end
+ object AcFindPrev: TAction
+ ImageIndex = 5
+ OnExecute = AcFindPrevExecute
+ end
+ object AcAbout: TAction
+ Caption = 'About...'
+ ImageIndex = 6
+ OnExecute = AcAboutExecute
+ end
+ object AcNodeExpand: TAction
+ Caption = 'Expand node'
+ Hint = 'Expand current node'
+ ImageIndex = 8
+ OnExecute = AcNodeExpandExecute
+ OnUpdate = AcNodeExpandUpdate
+ end
+ object AcNodeCollapse: TAction
+ Caption = 'Collapse node'
+ Hint = 'Collapse current node'
+ ImageIndex = 7
+ OnExecute = AcNodeCollapseExecute
+ OnUpdate = AcNodeCollapseUpdate
+ end
+ object AcDumpToFile: TAction
+ Caption = 'Dump to text file'
+ OnExecute = AcDumpToFileExecute
+ end
+ end
+ object OpenDialog: TOpenDialog
+ DefaultExt = '.xls'
+ Filter = 'Excel files (*.xls)|*.xls'
+ left = 160
+ top = 296
+ end
+ object RecentFilesPopupMenu: TPopupMenu
+ left = 160
+ top = 208
+ object MenuItem1: TMenuItem
+ Caption = 'New Item1'
+ end
+ end
+ object TreePopupMenu: TPopupMenu
+ Images = ImageList
+ left = 160
+ top = 392
+ object MenuItem3: TMenuItem
+ Action = AcNodeExpand
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000B0B0B000606
+ 060006060600070707000707070007070700070707000505050003030300E561
+ 3F00E7624029E86341D0E86341FFE86341D0E7624029FFFFFF000B0B0B000606
+ 0600060606000707070007070700070707000707070005050500030303003A1A
+ 1100DB5B39D0E4917AFFE8BFB2FFE4917AFFDB5B39D0FFFFFF000B0B0B000606
+ 060006060600070707000707070007070700070707000606064D050505660505
+ 0566CC5331FFF0C7BAFFF0C7BAFFF0C7BAFFCC5331FFFFFFFF000B0B0B000606
+ 060006060600080808000F0F0F000F0F0F000F0F0F000F0F0F660A0A0A003418
+ 0F00BD4B29D0DB9078FFF7CEC1FFDB9078FFBD4B29D0FFFFFF000B0B0B000606
+ 06000606060006060600111111001A1A1A001A1A1A001A1A1A661A1A1A00B346
+ 2400B2462429B14523D0B14523FFB14523D0B2462429FFFFFF000B0B0B000606
+ 060006060600060606000B0B0B00282828002828280028282866282828006E37
+ 2600B1452300AE442200AE442200AE442200B1452300FFFFFF000B0B0B000606
+ 060006060600060606000B0B0B00232323003535350035353566353535007746
+ 3500B6533100B3502E00B3502E00B3502E00B6533100FFFFFF000E0E0E140B0B
+ 0B610B0B0B770B0B0B610E0E0E1410101000414141004141416641414100B956
+ 3400B8553329B65331D0B65331FFB65331D0B8553329FFFFFF002525255E9F9F
+ 9FBDE4E4E4FF9F9F9FBD2525255E45454500505050004C4C4C66505050006E55
+ 4D00C4613FD0D7927BFFE8BFB2FFD7927BFFC4613FD0FFFFFF004545456FF2F2
+ F2FFF2F2F2FFF2F2F2FF4545456F545454665454546654545466545454665454
+ 5466D46F4DFFF0C7BAFFF0C7BAFFF0C7BAFFD46F4DFFFFFFFF0065656557CACA
+ CAB8FDFDFDFFCACACAB8656565575B5B5B005555550055555500555555007960
+ 5700E27C5AD0EEA891FFF7CEC1FFEEA891FFE27C5AD0FFFFFF007A7A7A117C7C
+ 7C547C7C7C677C7C7C547A7A7A1177777700555555005555550055555500EA84
+ 6200EB856329EC8664D0EC8664FFEC8664D0EB856329FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+ }
+ end
+ object MenuItem5: TMenuItem
+ Action = AcNodeCollapse
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000E0E0E140B0B
+ 0B610B0B0B770B0B0B610E0E0E14101010005555550000008000000080000000
+ 8B0000006E0000006B21000067A6000067CC000067A600006B212525255E9F9F
+ 9FBDE4E4E4FF9F9F9FBD2525255E474747005555550016167700000084CC0000
+ 8B3300008600000084A71F1FBEE83434EBFF1F1FBEE8000084A74545456FF2F2
+ F2FFF2F2F2FFF2F2F2FF4545456F55555566555555662B2B7400000092B30000
+ 92CC00009200000092CC5656F5FF5656F5FF5656F5FF000092CC65656557CACA
+ CAB8FDFDFDFFCACACAB8656565575B5B5B005555550016168E0000009FCC0000
+ 993300009E0000009FA73F3FD5E87272FEFF3F3FD5E800009FA77A7A7A117C7C
+ 7C547C7C7C677C7C7C547A7A7A1177777700555555000000A2000000A2000000
+ 99000000A6000000A7210000A8A60000A8CC0000A8A60000A721FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+ }
+ end
+ object MenuItem6: TMenuItem
+ Caption = '-'
+ end
+ object MenuItem7: TMenuItem
+ Action = AcFind
+ AutoCheck = True
+ Bitmap.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+ FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 040004040400040404000404045C090909892525252CFFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 040004040400040404443B3838A2E8D8D8FF32323276FFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 04000404043328272799D9CECEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E
+ 0E00040404000404040004040400040404000404040004040400040404000404
+ 04251A1A1A8FC8C1C1FF4F4D4D88393939383C3C3C00FFFFFF001E1E1E000E0E
+ 0E000404041604040456040404790404048704040479040404560404042A0F0F
+ 0F86B8B5B5FF4241417E3838382A3A3A3A003C3C3C00FFFFFF001E1E1E001111
+ 112A2826257D9D9791A5EEE8E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACAC
+ ACFF373737753737371F393939003A3A3A003C3C3C00FFFFFF00262626143B3A
+ 3874D7C9BCAFF3E6D9CBF6EDE4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544
+ 437D3434342438383800393939003A3A3A003C3C3C00FFFFFF0031313149A89D
+ 9397EAD5BFC3F5E9DFCBF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA6
+ 9E9D3131314931313100313131003131310031313100FFFFFF0038383865E1CF
+ BCB1E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8
+ CAB83838386538383800383838003838380038383800FFFFFF003E3E3E6FE9D4
+ BEBEE8D2BBC0E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDB
+ C8C53E3E3E6F3E3E3E003E3E3E003E3E3E003E3E3E00FFFFFF0043434360E0CB
+ B6ACE8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3
+ C1B24343436043434300434343004343430043434300FFFFFF0049494943AD9F
+ 918EE8D2BBC0F1E3D5C8F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4
+ 97914949494349494900494949004949490049494900FFFFFF004D4D4D115F5D
+ 5A64D5C1AEA1EBD8C4C2F6ECE2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D
+ 5B644D4D4D114C4C4C004C4C4C004C4C4C004C4C4C00FFFFFF004E4E4E005151
+ 512163605E62B1A3948BE6D5C5AFF4EADFC7EDE3D9B5B6ACA28E63605E625151
+ 51214E4E4E004E4E4E004E4E4E004E4E4E004E4E4E00FFFFFF004E4E4E005151
+ 510054545411555555405555555A555555655555555A55555540545454115151
+ 51004E4E4E004E4E4E00295727000569000007710000FFFFFF00
+ }
+ end
+ end
+ object SaveDialog: TSaveDialog
+ DefaultExt = '.txt'
+ Filter = 'Text files (*.txt)|*.txt'
+ left = 289
+ top = 296
+ end
+end
diff --git a/applications/biffexplorer/bemain.pas b/applications/biffexplorer/bemain.pas
new file mode 100644
index 000000000..f7c2a90ea
--- /dev/null
+++ b/applications/biffexplorer/bemain.pas
@@ -0,0 +1,1472 @@
+unit beMain;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ ActnList, Classes, ComCtrls, ExtCtrls, Grids, Menus, StdCtrls, SysUtils,
+ FileUtil, Forms, Controls, Graphics, Dialogs, Buttons, Types, VirtualTrees,
+ {$ifdef USE_NEW_OLE}
+ fpolebasic,
+ {$else}
+ fpolestorage,
+ {$endif}
+ fpstypes, KHexEditor,
+ mrumanager, beTypes, beBIFFGrid;
+
+type
+
+ { TMainForm }
+ TMainForm = class(TForm)
+ AcFileOpen: TAction;
+ AcFileQuit: TAction;
+ AcFind: TAction;
+ AcFindNext: TAction;
+ AcFindPrev: TAction;
+ AcAbout: TAction;
+ AcFindClose: TAction;
+ AcNodeExpand: TAction;
+ AcNodeCollapse: TAction;
+ AcDumpToFile: TAction;
+ ActionList: TActionList;
+ BIFFTree: TVirtualStringTree;
+ CbFind: TComboBox;
+ CbHexAddress: TCheckBox;
+ CbHexEditorLineSize: TComboBox;
+ CbHexSingleBytes: TCheckBox;
+ ImageList: TImageList;
+ HexEditor: TKHexEditor;
+ MainMenu: TMainMenu;
+ AnalysisDetails: TMemo;
+ MenuItem1: TMenuItem;
+ MenuItem3: TMenuItem;
+ MenuItem5: TMenuItem;
+ MenuItem6: TMenuItem;
+ MenuItem7: TMenuItem;
+ MnuDumpToFile: TMenuItem;
+ MenuItem9: TMenuItem;
+ MnuFind: TMenuItem;
+ MnuRecord: TMenuItem;
+ MnuFileReopen: TMenuItem;
+ MenuItem4: TMenuItem;
+ MnuHelp: TMenuItem;
+ MenuItem2: TMenuItem;
+ MnuFileQuit: TMenuItem;
+ MnuFileOpen: TMenuItem;
+ MnuFile: TMenuItem;
+ OpenDialog: TOpenDialog;
+ PageControl: TPageControl;
+ DetailPanel: TPanel;
+ FindPanel: TPanel;
+ HexEditorParamsPanel: TPanel;
+ SaveDialog: TSaveDialog;
+ SpeedButton3: TSpeedButton;
+ TreePopupMenu: TPopupMenu;
+ TreePanel: TPanel;
+ BtnFindNext: TSpeedButton;
+ BtnFindPrev: TSpeedButton;
+ RecentFilesPopupMenu: TPopupMenu;
+ BtnCloseFind: TSpeedButton;
+ Splitter1: TSplitter;
+ HexSplitter: TSplitter;
+ PgAnalysis: TTabSheet;
+ PgValues: TTabSheet;
+ DetailsSplitter: TSplitter;
+ StatusBar: TStatusBar;
+ ToolButton3: TToolButton;
+ ToolButton4: TToolButton;
+ ValueGrid: TStringGrid;
+ ToolBar: TToolBar;
+ ToolButton1: TToolButton;
+ ToolButton2: TToolButton;
+ procedure AcAboutExecute(Sender: TObject);
+ procedure AcDumpToFileExecute(Sender: TObject);
+ procedure AcFileOpenExecute(Sender: TObject);
+ procedure AcFileQuitExecute(Sender: TObject);
+ procedure AcFindCloseExecute(Sender: TObject);
+ procedure AcFindExecute(Sender: TObject);
+ procedure AcFindNextExecute(Sender: TObject);
+ procedure AcFindPrevExecute(Sender: TObject);
+ procedure AcNodeCollapseExecute(Sender: TObject);
+ procedure AcNodeCollapseUpdate(Sender: TObject);
+ procedure AcNodeExpandExecute(Sender: TObject);
+ procedure AcNodeExpandUpdate(Sender: TObject);
+ procedure BIFFTreeBeforeCellPaint(Sender: TBaseVirtualTree;
+ TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+ CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
+ procedure BIFFTreeFocusChanged(Sender: TBaseVirtualTree;
+ Node: PVirtualNode; Column: TColumnIndex);
+ procedure BIFFTreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
+ procedure BIFFTreeGetNodeDataSize(Sender: TBaseVirtualTree;
+ var NodeDataSize: Integer);
+ procedure BIFFTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
+// procedure BIFFTreeInitNode(Sender: TBaseVirtualTree; ParentNode,
+// Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
+ procedure BIFFTreePaintText(Sender: TBaseVirtualTree;
+ const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+ TextType: TVSTTextType);
+ procedure CbFindChange(Sender: TObject);
+ procedure CbFindKeyPress(Sender: TObject; var Key: char);
+ procedure CbHexAddressChange(Sender: TObject);
+ procedure CbHexEditorLineSizeChange(Sender: TObject);
+ procedure CbHexSingleBytesChange(Sender: TObject);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
+ procedure FormCreate(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
+ procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
+ procedure FormShow(Sender: TObject);
+ procedure HexEditorClick(Sender: TObject);
+ procedure HexEditorKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
+ Selected: Boolean);
+ procedure PageControlChange(Sender: TObject);
+ procedure ValueGridClick(Sender: TObject);
+ procedure ValueGridPrepareCanvas(Sender: TObject; ACol, ARow: Integer;
+ AState: TGridDrawState);
+
+ private
+ MemStream: TMemoryStream;
+ OLEStorage: TOLEStorage;
+ FFileName: String;
+ FFormat: TsSpreadsheetFormat;
+ FBuffer: TBIFFBuffer;
+ FCurrOffset: Integer;
+ FXFIndex: Integer;
+ FFontIndex: Integer;
+ FFormatIndex: Integer;
+ FRowIndex: Integer;
+ FExternSheetIndex: Integer;
+ FAnalysisGrid: TBIFFGrid;
+ FMRUMenuManager : TMRUMenuManager;
+ procedure AddToHistory(const AText: String);
+ procedure AnalysisGridDetails(Sender: TObject; ADetails: TStrings);
+ procedure AnalysisGridPrepareCanvas(Sender: TObject; ACol, ARow: Integer;
+ AState: TGridDrawState);
+ procedure AnalysisGridSelection(Sender: TObject; ACol, ARow: Integer);
+ procedure DumpToFile(const AFileName: String);
+ procedure ExecFind(ANext, AKeep: Boolean);
+ function GetBIFFNodeData: PBiffNodeData;
+ function GetRecType: Word;
+ function GetValueGridDataSize: Integer;
+ procedure LoadFile(const AFileName: String); overload;
+ procedure LoadFile(const AFileName: String; AFormat: TsSpreadsheetFormat); overload;
+ procedure MRUMenuManagerRecentFile(Sender:TObject; const AFileName:string);
+ procedure PopulateAnalysisGrid;
+ procedure PopulateHexDump;
+ procedure PopulateValueGrid;
+ procedure ReadCmdLine;
+ procedure ReadFromIni;
+ procedure ReadFromStream(AStream: TStream);
+ procedure UpdateCaption;
+ procedure UpdateCmds;
+ procedure UpdateStatusbar;
+ procedure WriteToIni;
+
+ public
+ procedure BeforeRun;
+ end;
+
+var
+ MainForm: TMainForm;
+
+implementation
+
+{$R *.lfm}
+
+uses
+ IniFiles, LazUTF8, LazFileUtils, Math, StrUtils, LCLType,
+ KFunctions,
+ fpsUtils,
+ beUtils, beBIFFUtils, beAbout;
+
+const
+ VALUE_ROW_INDEX = 1;
+ VALUE_ROW_BITS = 2;
+ VALUE_ROW_BYTE = 3;
+ VALUE_ROW_SHORTINT = 4;
+ VALUE_ROW_WORD = 5;
+ VALUE_ROW_SMALLINT = 6;
+ VALUE_ROW_DWORD = 7;
+ VALUE_ROW_LONGINT = 8;
+ VALUE_ROW_QWORD = 9;
+ VALUE_ROW_INT64 = 10;
+ VALUE_ROW_SINGLE = 11;
+ VALUE_ROW_DOUBLE = 12;
+ VALUE_ROW_ANSISTRING = 13;
+ VALUE_ROW_PANSICHAR = 14;
+ VALUE_ROW_WIDESTRING = 15;
+ VALUE_ROW_PWIDECHAR = 16;
+
+ MAX_HISTORY = 16;
+
+
+{ TMyHexEditor }
+
+type
+ TMyHexEditor = class(TKHexEditor);
+
+ (*
+{ Virtual tree nodes }
+
+type
+ TObjectNodeData = record
+ Data: TObject;
+ end;
+ PObjectNodeData = ^TObjectNodeData;
+ *)
+
+{ TMainForm }
+
+procedure TMainForm.AcAboutExecute(Sender: TObject);
+var
+ F: TAboutForm;
+begin
+ F := TAboutForm.Create(nil);
+ try
+ F.ShowModal;
+ finally
+ F.Free;
+ end;
+end;
+
+
+procedure TMainForm.AcDumpToFileExecute(Sender: TObject);
+begin
+ if FFileName = '' then
+ exit;
+
+ with SaveDialog do begin
+ FileName := ChangeFileExt(ExtractFileName(FFileName), '') + '_dumped.txt';
+ if Execute then
+ DumpToFile(FileName);
+ end;
+end;
+
+
+procedure TMainForm.AcFileOpenExecute(Sender: TObject);
+begin
+ with OpenDialog do begin
+ if Execute then LoadFile(FileName);
+ end;
+end;
+
+
+procedure TMainForm.AcFileQuitExecute(Sender: TObject);
+begin
+ Close;
+end;
+
+
+procedure TMainForm.AcFindCloseExecute(Sender: TObject);
+begin
+ AcFind.Checked := false;
+ FindPanel.Hide;
+end;
+
+
+procedure TMainForm.AcFindExecute(Sender: TObject);
+begin
+ if AcFind.Checked then begin
+ FindPanel.Show;
+ CbFind.SetFocus;
+ end else begin
+ FindPanel.Hide;
+ end;
+end;
+
+
+procedure TMainForm.AcFindNextExecute(Sender: TObject);
+begin
+ ExecFind(true, false);
+end;
+
+
+procedure TMainForm.AcFindPrevExecute(Sender: TObject);
+begin
+ ExecFind(false, false);
+end;
+
+
+procedure TMainForm.AcNodeCollapseExecute(Sender: TObject);
+var
+ node: PVirtualNode;
+begin
+ node := BiffTree.FocusedNode;
+ if node <> nil then begin
+ if BiffTree.GetNodeLevel(node) > 0 then
+ node := node^.Parent;
+ BiffTree.Expanded[node] := false;
+ end;
+end;
+
+procedure TMainForm.AcNodeCollapseUpdate(Sender: TObject);
+var
+ node: PVirtualNode;
+begin
+ node := BiffTree.FocusedNode;
+ if node <> nil then begin
+ if BiffTree.GetNodeLevel(node) > 0 then
+ node := node^.Parent;
+ end;
+ AcNodeCollapse.Enabled := (node <> nil) and BiffTree.Expanded[node];
+end;
+
+
+procedure TMainForm.AcNodeExpandExecute(Sender: TObject);
+var
+ node: PVirtualNode;
+begin
+ node := BiffTree.FocusedNode;
+ if node <> nil then begin
+ if BiffTree.GetNodeLevel(node) > 0 then
+ node := node^.Parent;
+ BiffTree.Expanded[node] := true;
+ end;
+end;
+
+
+procedure TMainForm.AcNodeExpandUpdate(Sender: TObject);
+var
+ node: PVirtualNode;
+begin
+ node := BiffTree.FocusedNode;
+ if node <> nil then begin
+ if BiffTree.GetNodeLevel(node) > 0 then
+ node := node^.Parent;
+ end;
+ AcNodeExpand.Enabled := (node <> nil) and not BiffTree.Expanded[node];
+end;
+
+procedure TMainForm.AddToHistory(const AText: String);
+begin
+ if (AText <> '') and (CbFind.Items.IndexOf(AText) = -1) then begin
+ CbFind.Items.Insert(0, AText);
+ while CbFind.Items.Count > MAX_HISTORY do
+ CbFind.Items.Delete(CbFind.Items.Count-1);
+ end;
+end;
+
+
+procedure TMainForm.AnalysisGridDetails(Sender: TObject; ADetails: TStrings);
+begin
+ AnalysisDetails.Lines.Assign(ADetails);
+end;
+
+
+procedure TMainForm.AnalysisGridPrepareCanvas(Sender: TObject; ACol,
+ ARow: Integer; AState: TGridDrawState);
+begin
+ if ARow = 0 then FAnalysisGrid.Canvas.Font.Style := [fsBold];
+end;
+
+
+procedure TMainForm.AnalysisGridSelection(Sender: TObject; ACol, ARow: Integer);
+var
+ s: String;
+begin
+ if ARow < FAnalysisGrid.RowCount then
+ begin
+ s := FAnalysisGrid.Cells[0, ARow];
+ if s <> '' then
+ begin
+ FCurrOffset := StrToInt(s);
+ PopulateValueGrid;
+ UpdateStatusbar;
+ end;
+ end;
+end;
+
+
+procedure TMainForm.BeforeRun;
+begin
+ ReadFromIni;
+ ReadCmdLine;
+end;
+
+
+procedure TMainForm.BIFFTreeBeforeCellPaint(Sender: TBaseVirtualTree;
+ TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+ CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
+var
+ s: String;
+begin
+ if (Sender.GetNodeLevel(Node) = 0) and (Column = 0) then begin
+ // Left-align parent nodes (column 0 is right-aligned)
+ BiffTreeGetText(Sender, Node, 0, ttNormal, s);
+ TargetCanvas.Font.Style := [fsBold];
+ ContentRect.Right := CellRect.Left + TargetCanvas.TextWidth(s) + 30;
+ end;
+end;
+
+
+procedure TMainForm.BIFFTreeFocusChanged(Sender: TBaseVirtualTree;
+ Node: PVirtualNode; Column: TColumnIndex);
+var
+ data: PBiffNodeData;
+ n: Word;
+begin
+ if Node^.Parent = Sender.RootNode then
+ begin
+ HexEditor.Clear;
+ for n:=1 to ValueGrid.RowCount-1 do
+ begin
+ ValueGrid.Cells[1, n] := '';
+ ValueGrid.Cells[2, n] := '';
+ end;
+ FAnalysisGrid.RowCount := 2;
+ FAnalysisGrid.Rows[1].Clear;
+ AnalysisDetails.Lines.Clear;
+ exit;
+ end;
+
+ data := Sender.GetNodeData(Node);
+
+ // Move to start of record + 2 bytes to skip record type ID.
+ MemStream.Position := PtrInt(data^.Offset) + 2;
+
+ // Read size of record
+ n := WordLEToN(MemStream.ReadWord);
+
+ // Read record data
+ SetLength(FBuffer, n);
+ if n > 0 then
+ MemStream.ReadBuffer(FBuffer[0], n);
+
+ // Update user interface
+ if (BiffTree.FocusedNode <> nil) and (BiffTree.GetNodeLevel(BiffTree.FocusedNode) > 0)
+ then begin
+ Statusbar.Panels[0].Text := Format('Record ID: $%.4x', [data^.RecordID]);
+ Statusbar.Panels[1].Text := data^.RecordName;
+ Statusbar.Panels[2].Text := Format('Record size: %d bytes', [n]);
+ Statusbar.Panels[3].Text := '';
+ end else begin
+ Statusbar.Panels[0].Text := '';
+ Statusbar.Panels[1].Text := data^.RecordName;
+ Statusbar.Panels[2].Text := '';
+ Statusbar.Panels[3].Text := '';
+ end;
+ PopulateHexDump;
+ PageControlChange(nil);
+end;
+
+
+procedure TMainForm.BIFFTreeFreeNode(Sender: TBaseVirtualTree;
+ Node: PVirtualNode);
+var
+ data: PBiffNodeData;
+begin
+ data := Sender.GetNodeData(Node);
+ if data <> nil then
+ begin
+ data^.RecordName := '';
+ data^.RecordDescription := '';
+ end;
+end;
+
+
+procedure TMainForm.BIFFTreeGetNodeDataSize(Sender: TBaseVirtualTree;
+ var NodeDataSize: Integer);
+begin
+ NodeDataSize := SizeOf(TBiffNodeData);
+end;
+
+
+procedure TMainForm.BIFFTreeGetText(Sender: TBaseVirtualTree;
+ Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
+ var CellText: String);
+var
+ data: PBiffNodeData;
+begin
+ CellText := '';
+ data := Sender.GetNodeData(Node);
+ if data <> nil then
+ case Sender.GetNodeLevel(Node) of
+ 0: if Column = 0 then CellText := data^.RecordName;
+ 1: case Column of
+ 0: CellText := IntToStr(data^.Offset);
+ 1: CellText := Format('$%.4x', [data^.RecordID]);
+ 2: CellText := data^.RecordName;
+ 3: if data^.Index > -1 then CellText := IntToStr(data^.Index);
+ 4: cellText := data^.RecordDescription;
+ end;
+ end;
+end;
+
+
+procedure TMainForm.BIFFTreePaintText(Sender: TBaseVirtualTree;
+ const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+ TextType: TVSTTextType);
+begin
+ // Paint parent node in bold font.
+ if (Sender.GetNodeLevel(Node) = 0) and (Column = 0) then
+ TargetCanvas.Font.Style := [fsBold];
+end;
+
+
+procedure TMainForm.CbFindChange(Sender: TObject);
+begin
+ ExecFind(true, true);
+end;
+
+
+procedure TMainForm.CbFindKeyPress(Sender: TObject; var Key: char);
+begin
+ if Key = #13 then
+ ExecFind(true, false);
+end;
+
+procedure TMainForm.CbHexAddressChange(Sender: TObject);
+begin
+ if CbHexAddress.Checked then
+ begin
+ HexEditor.AddressMode := eamHex;
+ HexEditor.AddressPrefix := '$';
+ end else
+ begin
+ HexEditor.AddressMode := eamDec;
+ HexEditor.AddressPrefix := '';
+ end;
+ CbHexEditorLineSizeChange(nil);
+end;
+
+procedure TMainForm.CbHexEditorLineSizeChange(Sender: TObject);
+begin
+ case CbHexEditorLineSize.ItemIndex of
+ 0: HexEditor.LineSize := IfThen(HexEditor.AddressMode = eamHex, 16, 10);
+ 1: HexEditor.LineSize := IfThen(HexEditor.AddressMode = eamHex, 32, 20);
+ end;
+end;
+
+procedure TMainForm.CbHexSingleBytesChange(Sender: TObject);
+begin
+ HexEditor.DigitGrouping := IfThen(CbHexSingleBytes.Checked, 1, 2);
+end;
+
+procedure TMainForm.DumpToFile(const AFileName: String);
+var
+ list: TStringList;
+ parentnode, node: PVirtualNode;
+ parentdata, data: PBiffNodeData;
+begin
+ list := TStringList.Create;
+ try
+ parentnode := BiffTree.GetFirst;
+ while parentnode <> nil do begin
+ parentdata := BiffTree.GetNodeData(parentnode);
+ list.Add(parentdata^.RecordName);
+ node := BIffTree.GetFirstChild(parentnode);
+ while node <> nil do begin
+ data := BiffTree.GetNodeData(node);
+ List.Add(Format(' %.04x %s (%s)', [data^.RecordID, data^.RecordName, data^.RecordDescription]));
+ node := BiffTree.GetNextSibling(node);
+ end;
+ List.Add('');
+ parentnode := BiffTree.GetNextSibling(parentnode);
+ end;
+
+ list.SaveToFile(AFileName);
+ finally
+ list.Free;
+ end;
+end;
+
+
+procedure TMainForm.ExecFind(ANext, AKeep: Boolean);
+var
+ s: String;
+ node, node0: PVirtualNode;
+
+ function GetRecordname(ANode: PVirtualNode; UseLowercase: Boolean = true): String;
+ var
+ data: PBIffNodeData;
+ begin
+ data := BiffTree.GetNodeData(ANode);
+ if Assigned(data) then begin
+ if UseLowercase then
+ Result := lowercase(data^.RecordName)
+ else
+ Result := data^.RecordName;
+ end else
+ Result := '';
+ end;
+
+ function GetNextNode(ANode: PVirtualNode): PVirtualNode;
+ var
+ nextparent: PVirtualNode;
+ begin
+ Result := BiffTree.GetNextSibling(ANode);
+ if (Result = nil) and (ANode <> nil) then begin
+ nextparent := BiffTree.GetNextSibling(ANode^.Parent);
+ if nextparent = nil then
+ nextparent := BiffTree.GetFirst;
+ Result := BiffTree.GetFirstChild(nextparent);
+ end;
+ end;
+
+ function GetPrevNode(ANode: PVirtualNode): PVirtualNode;
+ var
+ prevparent: PVirtualNode;
+ begin
+ Result := BiffTree.GetPreviousSibling(ANode);
+ if (Result = nil) and (ANode <> nil) then begin
+ prevparent := BiffTree.GetPreviousSibling(ANode^.Parent);
+ if prevparent = nil then
+ prevparent := BiffTree.GetLast;
+ Result := BiffTree.GetLastChild(prevparent);
+ end;
+ end;
+
+begin
+ if CbFind.Text = '' then
+ exit;
+
+ s := Lowercase(CbFind.Text);
+ node0 := BiffTree.FocusedNode;
+ if node0 = nil then
+ node0 := BiffTree.GetFirst;
+ if BiffTree.GetNodeLevel(node0) = 0 then
+ node0 := BiffTree.GetFirstChild(node0);
+
+ if ANext then begin
+ if AKeep
+ then node := node0
+ else node := GetNextNode(node0);
+ repeat
+ if pos(s, GetRecordname(node)) > 0 then begin
+ BiffTree.FocusedNode := node;
+ BiffTree.Selected[node] := true;
+ BiffTree.ScrollIntoView(node, true);
+ AddToHistory(GetRecordname(node, false));
+ exit;
+ end;
+ node := GetNextNode(node);
+ until (node = node0) or (node = nil);
+ end else begin
+ if AKeep
+ then node := node0
+ else node := GetPrevNode(node0);
+ repeat
+ if pos(s, GetRecordName(node)) > 0 then begin
+ BiffTree.FocusedNode := node;
+ BiffTree.Selected[node] := true;
+ BiffTree.ScrollIntoView(node, true);
+ AddToHistory(GetRecordName(node, false));
+ exit;
+ end;
+ node := GetPrevNode(node);
+ until (node = node0) or (node = nil);
+ end;
+end;
+
+
+procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+ if CanClose then
+ try
+ WriteToIni;
+ except
+ MessageDlg('Could not write setting to configuration file.', mtError, [mbOK], 0);
+ end;
+end;
+
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+ FMRUMenuManager := TMRUMenuManager.Create(self);
+ with FMRUMenuManager do begin
+ Name := 'MRUMenuManager';
+ IniFileName := GetAppConfigFile(false);
+ IniSection := 'RecentFiles';
+ MaxRecent := 16;
+ MenuCaptionMask := '&%x - %s'; // & --> create hotkey
+ MenuItem := MnuFileReopen;
+ PopupMenu := RecentFilesPopupMenu;
+ OnRecentFile := @MRUMenuManagerRecentFile;
+ end;
+
+ HexEditor.Font.Style := [];
+
+ FAnalysisGrid := TBIFFGrid.Create(self);
+ with FAnalysisGrid do begin
+ Parent := PgAnalysis;
+ Align := alClient;
+ DefaultRowHeight := ValueGrid.DefaultRowHeight;
+ Options := Options + [goDrawFocusSelected];
+ TitleStyle := tsNative;
+ OnDetails := @AnalysisGridDetails;
+ OnPrepareCanvas := @AnalysisGridPrepareCanvas;
+ OnSelection := @AnalysisGridSelection;
+ TabOrder := 0;
+ end;
+
+ with ValueGrid do begin
+ ColCount := 3;
+ RowCount := VALUE_ROW_PWIDECHAR + 1;
+ Cells[0, 0] := 'Data type';
+ Cells[1, 0] := 'Value';
+ Cells[2, 0] := 'Offset range';
+ Cells[0, VALUE_ROW_INDEX] := 'Offset';
+ Cells[0, VALUE_ROW_BITS] := 'Bits';
+ Cells[0, VALUE_ROW_BYTE] := 'Byte';
+ Cells[0, VALUE_ROW_SHORTINT] := 'ShortInt';
+ Cells[0, VALUE_ROW_WORD] := 'Word';
+ Cells[0, VALUE_ROW_SMALLINT] := 'SmallInt';
+ Cells[0, VALUE_ROW_DWORD] := 'DWord';
+ Cells[0, VALUE_ROW_LONGINT] := 'LongInt';
+ Cells[0, VALUE_ROW_QWORD] := 'QWord';
+ Cells[0, VALUE_ROW_INT64] := 'Int64';
+ Cells[0, VALUE_ROW_SINGLE] := 'Single';
+ Cells[0, VALUE_ROW_DOUBLE] := 'Double';
+ Cells[0, VALUE_ROW_ANSISTRING] := 'AnsiString';
+ Cells[0, VALUE_ROW_PANSICHAR] := 'PAnsiChar';
+ Cells[0, VALUE_ROW_WIDESTRING] := 'WideString';
+ Cells[0, VALUE_ROW_PWIDECHAR] := 'PWideChar';
+ end;
+
+ BiffTree.DefaultNodeHeight := BiffTree.Canvas.TextHeight('Tg') + 4;
+ BiffTree.Header.DefaultHeight := ValueGrid.DefaultRowHeight;
+
+ UpdateCmds;
+end;
+
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+ if MemStream <> nil then
+ FreeAndNil(MemStream);
+ if OLEStorage <> nil then
+ FreeAndNil(OLEStorage);
+end;
+
+
+procedure TMainForm.FormDropFiles(Sender: TObject;
+ const FileNames: array of String);
+begin
+ LoadFile(FileNames[0]);
+end;
+
+
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+ Width := Width + 1; // remove black rectangle next to ValueGrid
+ Width := Width - 1;
+end;
+
+
+function TMainForm.GetBIFFNodeData: PBiffNodeData;
+begin
+ Result := nil;
+ if BiffTree.FocusedNode <> nil then
+ begin
+ Result := BiffTree.GetNodeData(BiffTree.FocusedNode);
+ if Result <> nil then
+ MemStream.Position := Result^.Offset;
+ end;
+end;
+
+
+function TMainForm.GetRecType: Word;
+var
+ data: PBiffNodeData;
+begin
+ Result := Word(-1);
+ if BiffTree.FocusedNode <> nil then
+ begin
+ data := BiffTree.GetNodedata(BiffTree.FocusedNode);
+ if data <> nil then
+ begin
+ MemStream.Position := data^.Offset;
+ Result := WordLEToN(MemStream.ReadWord);
+ end;
+ end;
+end;
+
+
+function TMainForm.GetValueGridDataSize: Integer;
+begin
+ Result := -1;
+ case ValueGrid.Row of
+ VALUE_ROW_BITS : Result := SizeOf(Byte);
+ VALUE_ROW_BYTE : Result := SizeOf(Byte);
+ VALUE_ROW_SHORTINT : Result := SizeOf(ShortInt);
+ VALUE_ROW_WORD : Result := SizeOf(Word);
+ VALUE_ROW_SMALLINT : Result := SizeOf(SmallInt);
+ VALUE_ROW_DWORD : Result := SizeOf(DWord);
+ VALUE_ROW_LONGINT : Result := SizeOf(LongInt);
+ VALUE_ROW_QWORD : Result := SizeOf(QWord);
+ VALUE_ROW_INT64 : Result := SizeOf(Int64);
+ VALUE_ROW_SINGLE : Result := SizeOf(Single);
+ VALUE_ROW_DOUBLE : Result := SizeOf(Double);
+ end;
+end;
+
+procedure TMainForm.HexEditorClick(Sender: TObject);
+begin
+ FCurrOffset := HexEditor.SelStart.Index;
+ PopulateValueGrid;
+ ValueGridClick(nil);
+ UpdateStatusbar;
+end;
+
+procedure TMainForm.HexEditorKeyDown(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+var
+ sel: TKHexEditorSelection;
+begin
+ case Key of
+ VK_LEFT : dec(FCurrOffset);
+ VK_RIGHT : inc(FCurrOffset);
+ VK_UP : dec(FCurrOffset, HexEditor.LineSize);
+ VK_DOWN : inc(FCurrOffset, HexEditor.LineSize);
+ VK_HOME : if (Shift = [ssCtrl]) then
+ FCurrOffset := 0 else
+ FCurrOffset := (FCurrOffset div HexEditor.LineSize) * HexEditor.LineSize;
+ VK_END : if (Shift = [ssCtrl]) then
+ FCurrOffset := High(FBuffer) else
+ FCurrOffset := succ(FCurrOffset div HexEditor.LineSize) * HexEditor.lineSize - 1;
+ VK_NEXT : begin
+ if (Shift = [ssCtrl]) then
+ inc(FCurrOffset, HexEditor.LineSize * HexEditor.LineCount)
+ else
+ inc(FCurrOffset, HexEditor.LineSize * HexEditor.GetClientHeightChars);
+ while (FCurrOffset > High(FBuffer)) do
+ dec(FCurrOffset, HexEditor.LineSize);
+ end;
+ VK_PRIOR : if (Shift = [ssCtrl]) then
+ FCurrOffset := FCurrOffset mod HexEditor.LineSize
+ else
+ begin
+ dec(FCurrOffset, HexEditor.LineSize * HexEditor.GetClientHeightChars);
+ while (FCurrOffset < 0) do
+ inc(FCurrOffset, HexEditor.LineSize);
+ end;
+ else exit;
+ end;
+ if FCurrOffset < 0 then FCurrOffset := 0;
+ if FCurrOffset > High(FBuffer) then FCurrOffset := High(FBuffer);
+ sel.Index := FCurrOffset;
+ sel.Digit := 0;
+ HexEditor.SelStart := sel;
+ HexEditorClick(nil);
+ if not HexEditor.CaretInView then
+ TMyHexEditor(HexEditor).ScrollTo(HexEditor.SelToPoint(HexEditor.SelStart, HexEditor.EditArea), false, true);
+
+ // Don't process these keys any more!
+ Key := 0;
+end;
+
+procedure TMainForm.LoadFile(const AFileName: String);
+var
+ valid: Boolean;
+ excptn: Exception = nil;
+ ext: String;
+begin
+ if not FileExistsUTF8(AFileName) then begin
+ MessageDlg(Format('File "%s" not found.', [AFileName]), mtError, [mbOK], 0);
+ exit;
+ end;
+
+ ext := Lowercase(ExtractFileExt(AFilename));
+ if ext <> '.xls' then begin
+ MessageDlg('BIFFExplorer can only process binary Excel files (extension ".xls")',
+ mtError, [mbOK], 0);
+ exit;
+ end;
+
+ // .xls files can contain several formats. We look into the header first.
+ if ext = STR_EXCEL_EXTENSION then
+ begin
+ valid := GetFormatFromFileHeader(UTF8ToAnsi(AFileName), FFormat);
+ // It is possible that valid xls files are not detected correctly. Therefore,
+ // we open them explicitly by trial and error - see below.
+ if not valid then
+ FFormat := sfExcel8;
+ valid := true;
+ end else
+ FFormat := sfExcel8;
+
+ while True do begin
+ try
+ LoadFile(AFileName, FFormat);
+ valid := True;
+ except
+ on E: Exception do begin
+ if FFormat = sfExcel8 then excptn := E;
+ valid := False
+ end;
+ end;
+ if valid or (FFormat = sfExcel2) then Break;
+ FFormat := Pred(FFormat);
+ end;
+
+ // A failed attempt to read a file should bring an exception, so re-raise
+ // the exception if necessary. We re-raise the exception brought by Excel 8,
+ // since this is the most common format
+ if (not valid) and (excptn <> nil) then
+ raise excptn;
+end;
+
+
+procedure TMainForm.LoadFile(const AFileName: String; AFormat: TsSpreadsheetFormat);
+var
+ OLEDocument: TOLEDocument;
+ streamname: UTF8String;
+ filestream: TFileStream;
+begin
+ if MemStream <> nil then
+ FreeAndNil(MemStream);
+
+ if OLEStorage <> nil then
+ FreeAndNil(OLEStorage);
+
+ MemStream := TMemoryStream.Create;
+
+ if AFormat = sfExcel2 then begin
+ fileStream := TFileStream.Create(UTF8ToSys(AFileName), fmOpenRead + fmShareDenyNone);
+ try
+ MemStream.CopyFrom(fileStream, fileStream.Size);
+ MemStream.Position := 0;
+// MemStream.LoadFromFile(UTF8ToSys(AFileName));
+ finally
+ filestream.Free;
+ end;
+ end else begin
+ OLEStorage := TOLEStorage.Create;
+
+ // Only one stream is necessary for any number of worksheets
+ OLEDocument.Stream := MemStream;
+ if AFormat = sfExcel8 then streamname := 'Workbook' else streamname := 'Book';
+ OLEStorage.ReadOLEFile(UTF8ToSys(AFileName), OLEDocument, streamname);
+
+ // Check if the operation succeded
+ if MemStream.Size = 0 then
+ raise Exception.Create('BIFF Explorer: Reading the OLE document failed');
+ end;
+
+ // Rewind the stream and read from it
+ MemStream.Position := 0;
+ FFileName := ExpandFileName(AFileName);
+ ReadFromStream(MemStream);
+
+ FFormat := AFormat;
+ UpdateCaption;
+ UpdateStatusbar;
+
+ FMRUMenuManager.AddToRecent(AFileName);
+end;
+
+
+procedure TMainForm.ListViewSelectItem(Sender: TObject; Item: TListItem;
+ Selected: Boolean);
+var
+ n: Word;
+begin
+ if Selected then begin
+ // Move to start of record + 2 bytes to skip record type ID.
+ MemStream.Position := PtrInt(Item.Data) + 2;
+
+ // Read size of record
+ n := WordLEToN(MemStream.ReadWord);
+
+ // Read record data
+ SetLength(FBuffer, n);
+ MemStream.ReadBuffer(FBuffer[0], n);
+
+ // Update user interface
+ Statusbar.Panels[0].Text := Format('Record ID: %s', [Item.SubItems[0]]);
+ Statusbar.Panels[1].Text := Item.SubItems[1];
+ Statusbar.Panels[2].Text := Format('Record size: %s bytes', [Item.SubItems[3]]);
+ PopulateHexDump;
+ PageControlChange(nil);
+ end;
+end;
+
+
+procedure TMainForm.MRUMenuManagerRecentFile(Sender: TObject;
+ const AFileName: string);
+begin
+ LoadFile(AFileName);
+end;
+
+
+procedure TMainForm.PopulateAnalysisGrid;
+begin
+ FAnalysisGrid.SetBIFFNodeData(GetBiffNodeData, FBuffer, FFormat);
+end;
+
+
+procedure TMainForm.PopulateHexDump;
+var
+ data: TDataSize;
+begin
+ data.Size := Length(FBuffer);
+ data.Data := @FBuffer[0];
+ HexEditor.Clear;
+ HexEditor.Append(0, data);
+end;
+
+
+procedure TMainForm.PopulateValueGrid;
+var
+ buf: array[0..1023] of Byte;
+ w: word absolute buf;
+ dw: DWord absolute buf;
+ qw: QWord absolute buf;
+ dbl: double absolute buf;
+ sng: single absolute buf;
+ idx: Integer;
+ i, j: Integer;
+ s: String;
+ sw: WideString;
+ ls: Integer;
+begin
+ idx := FCurrOffset;
+// idx := HexEditor.SelStart.Index;
+
+ i := ValueGrid.RowCount;
+ j := ValueGrid.ColCount;
+
+ ValueGrid.Cells[1, VALUE_ROW_INDEX] := IntToStr(idx);
+
+ if idx <= Length(FBuffer)-SizeOf(byte) then begin
+ ValueGrid.Cells[1, VALUE_ROW_BITS] := IntToBin(FBuffer[idx], 8);
+ ValueGrid.Cells[2, VALUE_ROW_BITS] := Format('%d ... %d', [idx, idx]);
+ ValueGrid.Cells[1, VALUE_ROW_BYTE] := IntToStr(FBuffer[idx]);
+ ValueGrid.Cells[2, VALUE_ROW_BYTE] := ValueGrid.Cells[2, VALUE_ROW_BITS];
+ ValueGrid.Cells[1, VALUE_ROW_SHORTINT] := IntToStr(ShortInt(FBuffer[idx]));
+ ValueGrid.Cells[2, VALUE_ROW_SHORTINT] := ValueGrid.Cells[2, VALUE_ROW_BITS];
+ end
+ else begin
+ ValueGrid.Cells[1, VALUE_ROW_BYTE] := '';
+ ValueGrid.Cells[2, VALUE_ROW_BYTE] := '';
+ ValueGrid.Cells[1, VALUE_ROW_SHORTINT] := '';
+ ValueGrid.Cells[2, VALUE_ROW_SHORTINT] := '';
+ end;
+
+ if idx <= Length(FBuffer)-SizeOf(word) then begin
+ buf[0] := FBuffer[idx];
+ buf[1] := FBuffer[idx+1];
+ ValueGrid.Cells[1, VALUE_ROW_WORD] := IntToStr(WordLEToN(w));
+ ValueGrid.Cells[2, VALUE_ROW_WORD] := Format('%d ... %d', [idx, idx+SizeOf(Word)-1]);
+ ValueGrid.Cells[1, VALUE_ROW_SMALLINT] := IntToStr(SmallInt(WordLEToN(w)));
+ ValueGrid.Cells[2, VALUE_ROW_SMALLINT] := ValueGrid.Cells[2, VALUE_ROW_WORD];
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_WORD] := '';
+ ValueGrid.Cells[2, VALUE_ROW_WORD] := '';
+ ValueGrid.Cells[1, VALUE_ROW_SMALLINT] := '';
+ ValueGrid.Cells[2, VALUE_ROW_SMALLINT] := '';
+ end;
+
+ if idx <= Length(FBuffer) - SizeOf(DWord) then begin
+ for i:=0 to SizeOf(DWord)-1 do buf[i] := FBuffer[idx+i];
+ ValueGrid.Cells[1, VALUE_ROW_DWORD] := IntToStr(DWordLEToN(dw));
+ ValueGrid.Cells[2, VALUE_ROW_DWORD] := Format('%d ... %d', [idx, idx+SizeOf(DWord)-1]);
+ ValueGrid.Cells[1, VALUE_ROW_LONGINT] := IntToStr(LongInt(DWordLEToN(dw)));
+ ValueGrid.Cells[2, VALUE_ROW_LONGINT] := ValueGrid.Cells[2, VALUE_ROW_DWORD];
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_DWORD] := '';
+ ValueGrid.Cells[2, VALUE_ROW_DWORD] := '';
+ ValueGrid.Cells[1, VALUE_ROW_LONGINT] := '';
+ ValueGrid.Cells[2, VALUE_ROW_LONGINT] := '';
+ end;
+
+ if idx <= Length(FBuffer) - SizeOf(QWord) then begin
+ for i:=0 to SizeOf(QWord)-1 do buf[i] := FBuffer[idx+i];
+ ValueGrid.Cells[1, VALUE_ROW_QWORD] := Format('%d', [qw]);
+ ValueGrid.Cells[2, VALUE_ROW_QWORD] := Format('%d ... %d', [idx, idx+SizeOf(QWord)-1]);
+ ValueGrid.Cells[1, VALUE_ROW_INT64] := Format('%d', [Int64(qw)]);
+ ValueGrid.Cells[2, VALUE_ROW_INT64] := ValueGrid.Cells[2, VALUE_ROW_QWORD];
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_QWORD] := '';
+ ValueGrid.Cells[2, VALUE_ROW_QWORD] := '';
+ ValueGrid.Cells[1, VALUE_ROW_INT64] := '';
+ ValueGrid.Cells[2, VALUE_ROW_INT64] := '';
+ end;
+
+ if idx <= Length(FBuffer) - SizeOf(single) then begin
+ for i:=0 to SizeOf(single)-1 do buf[i] := FBuffer[idx+i];
+ ValueGrid.Cells[1, VALUE_ROW_SINGLE] := Format('%f', [sng]);
+ ValueGrid.Cells[2, VALUE_ROW_SINGLE] := Format('%d ... %d', [idx, idx+SizeOf(Single)-1]);
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_SINGLE] := '';
+ ValueGrid.Cells[2, VALUE_ROW_SINGLE] := '';
+ end;
+
+ if idx <= Length(FBuffer) - SizeOf(double) then begin
+ for i:=0 to SizeOf(double)-1 do buf[i] := FBuffer[idx+i];
+ ValueGrid.Cells[1, VALUE_ROW_DOUBLE] := Format('%f', [dbl]);
+ ValueGrid.Cells[2, VALUE_ROW_DOUBLE] := Format('%d ... %d', [idx, idx+SizeOf(Double)-1]);
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_DOUBLE] := '';
+ ValueGrid.Cells[2, VALUE_ROW_DOUBLE] := '';
+ end;
+
+ if idx < Length(FBuffer) then begin
+ ls := FBuffer[idx];
+ SetLength(s, ls);
+ i := idx + 1;
+ j := 0;
+ while (i < Length(FBuffer)) and (j < Length(s)) do begin
+ inc(j);
+ s[j] := char(FBuffer[i]);
+ inc(i);
+ end;
+ SetLength(s, j);
+ ValueGrid.Cells[1, VALUE_ROW_ANSISTRING] := s;
+ ValueGrid.Cells[2, VALUE_ROW_ANSISTRING] := Format('%d ... %d', [idx, ls * SizeOf(char) + 1]);
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_ANSISTRING] := '';
+ ValueGrid.Cells[2, VALUE_ROW_ANSISTRING] := '';
+ end;
+
+ s := StrPas(PChar(@FBuffer[idx]));
+ ValueGrid.Cells[1, VALUE_ROW_PANSICHAR] := s;
+ ValueGrid.Cells[2, VALUE_ROW_PANSICHAR] := Format('%d ... %d', [idx, idx + Length(s)]);
+
+ if idx < Length(FBuffer) then begin
+ ls := FBuffer[idx];
+ SetLength(sw, ls);
+ j := 0;
+ i := idx + 2;
+ while (i < Length(FBuffer)-1) and (j < Length(sw)) do begin
+ buf[0] := FBuffer[i];
+ buf[1] := FBuffer[i+1];
+ inc(i, SizeOf(WideChar));
+ inc(j);
+ sw[j] := WideChar(w);
+ end;
+ SetLength(sw, j);
+ ValueGrid.Cells[1, VALUE_ROW_WIDESTRING] := UTF8Encode(sw);
+ ValueGrid.Cells[2, VALUE_ROW_WIDESTRING] := Format('%d ... %d', [idx, idx + ls*SizeOf(wideChar)+1]);
+ end else begin
+ ValueGrid.Cells[1, VALUE_ROW_WIDESTRING] := '';
+ ValueGrid.Cells[2, VALUE_ROW_WIDESTRING] := '';
+ end;
+
+ s := UTF8Encode(StrPas(PWideChar(@FBuffer[idx])));
+ ValueGrid.Cells[1, VALUE_ROW_PWIDECHAR] := s;
+ ValueGrid.Cells[2, VALUE_ROW_PWIDECHAR] := Format('%d ... %d', [idx, idx + Length(s)]);
+end;
+
+
+procedure TMainForm.ReadCmdLine;
+begin
+ if ParamCount > 0 then
+ LoadFile(ParamStr(1));
+end;
+
+
+procedure TMainForm.ReadFromIni;
+var
+ ini: TCustomIniFile;
+ i: Integer;
+begin
+ ini := CreateIni;
+ try
+ ReadFormFromIni(ini, 'MainForm', self);
+
+ TreePanel.Width := ini.ReadInteger('MainForm', 'RecordList_Width', TreePanel.Width);
+ for i:=0 to BiffTree.Header.Columns.Count-1 do
+ BiffTree.Header.Columns[i].Width := ini.ReadInteger('MainForm',
+ Format('RecordList_ColWidth_%d', [i+1]), BiffTree.Header.Columns[i].Width);
+
+ ValueGrid.Height := ini.ReadInteger('MainForm', 'ValueGrid_Height', ValueGrid.Height);
+ for i:=0 to ValueGrid.ColCount-1 do
+ ValueGrid.ColWidths[i] := ini.ReadInteger('MainForm',
+ Format('ValueGrid_ColWidth_%d', [i+1]), ValueGrid.ColWidths[i]);
+
+ for i:=0 to FAnalysisGrid.ColCount-1 do
+ FAnalysisGrid.ColWidths[i] := ini.ReadInteger('MainForm',
+ Format('AnalysisGrid_ColWidth_%d', [i+1]), FAnalysisGrid.ColWidths[i]);
+
+ AnalysisDetails.Height := ini.ReadInteger('MainForm', 'AnalysisDetails_Height', AnalysisDetails.Height);
+
+ HexEditor.AddressMode := TKHexEditorAddressMode(ini.ReadInteger('HexEditor',
+ 'AddressMode', ord(HexEditor.AddressMode)));
+ CbHexAddress.Checked := HexEditor.AddressMode = eamHex;
+ CbHexAddressChange(nil);
+
+ HexEditor.DigitGrouping := ini.ReadInteger('HexEditor',
+ 'DigitGrouping', HexEditor.DigitGrouping);
+ CbHexSingleBytes.Checked := HexEditor.DigitGrouping = 1;
+ CbHexSingleBytesChange(nil);
+
+ HexEditor.LineSize := ini.ReadInteger('HexEditor',
+ 'LineSize', HexEditor.LineSize);
+ if HexEditor.LineSize in [10, 16] then
+ CbHexEditorLineSize.ItemIndex := 0 else CbHexEditorLineSize.ItemIndex := 1;
+ CbHexEditorLineSizeChange(nil);
+
+ PageControl.ActivePageIndex := ini.ReadInteger('MainForm', 'PageIndex', PageControl.ActivePageIndex);
+ finally
+ ini.Free;
+ end;
+end;
+
+
+procedure TMainForm.ReadFromStream(AStream: TStream);
+var
+ recType: Word;
+ recSize: Word;
+ p: Cardinal;
+ p0: Cardinal;
+ s: String;
+ i: Integer;
+ node, prevnode: PVirtualNode;
+ parentnode: PVirtualNode;
+ parentdata, data, prevdata: PBiffNodeData;
+ w: word;
+ crs: TCursor;
+begin
+ crs := Screen.Cursor;
+ try
+ Screen.Cursor := crHourGlass;
+ BiffTree.Clear;
+ parentnode := nil;
+ FXFIndex := -1;
+ FFontIndex := -1;
+ FFormatIndex := -1;
+ FRowIndex := -1;
+ FExternSheetIndex := 0; // 1-based!
+ AStream.Position := 0;
+ while AStream.Position < AStream.Size do begin
+ p := AStream.Position;
+ recType := WordLEToN(AStream.ReadWord);
+ recSize := WordLEToN(AStream.ReadWord);
+ if (recType = 0) and (recSize = 0) then
+ break;
+ s := RecTypeName(recType);
+ i := pos(':', s);
+ // in case of BOF record: create new parent node for this substream
+ if (recType = $0009) or (recType = $0209) or (recType = $0409) or (recType = $0809)
+ then begin
+ // Read info on substream beginning here
+ p0 := AStream.Position;
+ AStream.Position := AStream.Position + 2;
+ w := WordLEToN(AStream.ReadWord);
+ AStream.Position := p0;
+ // add parent node for this substream
+ parentnode := BiffTree.AddChild(nil);
+ // add data to parent node
+ parentdata := BiffTree.GetNodeData(parentnode);
+ BiffTree.ValidateNode(parentnode, False);
+ parentdata^.Offset := p;
+ parentdata^.RecordName := BOFName(w);
+ FRowIndex := -1;
+ end;
+ // add node to parent node
+ node := BIFFTree.AddChild(parentnode);
+ data := BiffTree.GetNodeData(node);
+ BiffTree.ValidateNode(node, False);
+ data^.Offset := p;
+ data^.RecordID := recType;
+ if i > 0 then begin
+ data^.RecordName := copy(s, 1, i-1);
+ data^.RecordDescription := copy(s, i+2, Length(s));
+ end else begin
+ data^.RecordName := s;
+ data^.RecordDescription := '';
+ end;
+ case recType of
+ $0008, $0208: // Row
+ begin
+ inc(FRowIndex);
+ data^.Index := FRowIndex;
+ end;
+ $0031, $0231: // Font record
+ begin
+ inc(FFontIndex);
+ if FFontIndex > 3 then data^.Index := FFontIndex + 1
+ else data^.Index := FFontIndex;
+ end;
+ $0043, $00E0: // XF record
+ begin
+ inc(FXFIndex);
+ data^.Index := FXFIndex;
+ end;
+ $0017: // EXTERNSHEET record
+ if FFormat < sfExcel8 then begin
+ inc(FExternSheetIndex);
+ data^.Index := FExternSheetIndex;
+ end;
+ $001E, $041E: // Format record
+ begin
+ inc(FFormatIndex);
+ data^.Index := FFormatIndex;
+ end;
+ $003C: // CONTINUE reocrd
+ begin
+ prevnode := BIFFTree.GetPrevious(node);
+ prevdata := BiffTree.GetNodeData(prevnode);
+ case prevdata^.RecordID of
+ $00FC: data^.Tag := BIFFNODE_SST_CONTINUE; // SST record
+ $01B6: data^.Tag := BIFFNODE_TXO_CONTINUE1; // TX0 record
+ $003C: begin // CONTINUE record
+ prevnode := BiffTree.GetPrevious(prevnode);
+ prevdata := BiffTree.GetNodeData(prevnode);
+ if prevdata^.RecordID = $01B6 then // TX0 record
+ data^.Tag := BIFFNODE_TXO_CONTINUE2;
+ end;
+ end;
+ end;
+ else
+ data^.Index := -1;
+ end;
+
+ // advance stream pointer
+ AStream.Position := AStream.Position + recSize;
+ end;
+
+ // expand all parent nodes
+ node := BiffTree.GetFirst;
+ while node <> nil do begin
+ BiffTree.Expanded[node] := true;
+ node := BiffTree.GetNextSibling(node);
+ end;
+ // Select first node
+ BiffTree.FocusedNode := BiffTree.GetFirst;
+ BiffTree.Selected[BiffTree.FocusedNode] := true;
+
+ UpdateCmds;
+
+ finally
+ Screen.Cursor := crs;
+ end;
+end;
+
+
+procedure TMainForm.PageControlChange(Sender: TObject);
+var
+ sel: TKHexEditorSelection;
+ i, n: Integer;
+ s: String;
+begin
+ if (BiffTree.FocusedNode = nil) or
+ (BiffTree.FocusedNode^.Parent = BiffTree.RootNode)
+ then
+ exit;
+
+ PopulateAnalysisGrid;
+ for i:=1 to FAnalysisGrid.RowCount-1 do begin
+ s := FAnalysisGrid.Cells[0, i];
+ if s = '' then break;
+ n := StrToInt(s);
+ if (n >= FCurrOffset) then
+ begin
+ FAnalysisGrid.Row := IfThen(n = FCurrOffset, i, i-1);
+ break;
+ end;
+ end;
+
+ sel.Index := FCurrOffset;
+ sel.Digit := 0;
+ HexEditor.SelStart := sel;
+ PopulateValueGrid;
+ ValueGridClick(nil);
+{
+ if PageControl.ActivePage = PgAnalysis then
+ PopulateAnalysisGrid
+ else
+ if PageControl.ActivePage = PgValues then
+ begin
+ sel.Index := FCurrOffset;
+ sel.Digit := 0;
+ HexEditor.SelStart := sel;
+ PopulateValueGrid;
+ ValueGridClick(nil);
+ end;}
+end;
+
+
+procedure TMainForm.UpdateCaption;
+begin
+ if FFileName = '' then
+ Caption := 'BIFF Explorer - (no file loaded)'
+ else
+ Caption := Format('BIFF Explorer - "%s [%s]', [
+ FFileName,
+ GetFileFormatName(FFormat)
+ ]);
+end;
+
+
+procedure TMainForm.UpdateCmds;
+begin
+ AcDumpToFile.Enabled := FFileName <> '';
+ AcFind.Enabled := FFileName <> '';
+end;
+
+
+procedure TMainForm.UpdateStatusbar;
+begin
+ if FCurrOffset > -1 then
+ Statusbar.Panels[3].Text := Format('HexViewer offset: %d', [FCurrOffset])
+ else
+ Statusbar.Panels[3].Text := '';
+end;
+
+
+procedure TMainForm.ValueGridClick(Sender: TObject);
+var
+ sel: TKHexEditorSelection;
+ n: Integer;
+begin
+ sel := HexEditor.SelStart;
+
+ n := GetValueGridDataSize;
+ if n > 0 then begin
+ sel.Digit := 0;
+ HexEditor.SelStart := sel;
+ inc(sel.Index, n-1);
+ sel.Digit := 1;
+ HexEditor.SelEnd := sel;
+ end else
+ HexEditor.SelEnd := sel;
+end;
+
+
+procedure TMainForm.ValueGridPrepareCanvas(sender: TObject; aCol,
+ aRow: Integer; aState: TGridDrawState);
+begin
+ if ARow = 0 then ValueGrid.Canvas.Font.Style := [fsBold];
+end;
+
+
+procedure TMainForm.WriteToIni;
+var
+ ini: TCustomIniFile;
+ i: Integer;
+begin
+ ini := CreateIni;
+ try
+ WriteFormToIni(ini, 'MainForm', self);
+
+ ini.WriteInteger('MainForm', 'RecordList_Width', TreePanel.Width);
+ for i:=0 to BiffTree.Header.Columns.Count-1 do
+ ini.WriteInteger('MainForm', Format('RecordList_ColWidth_%d', [i+1]), BiffTree.Header.Columns[i].Width);
+
+ ini.WriteInteger('MainForm', 'ValueGrid_Height', ValueGrid.Height);
+ for i:=0 to ValueGrid.ColCount-1 do
+ ini.WriteInteger('MainForm', Format('ValueGrid_ColWidth_%d', [i+1]), ValueGrid.ColWidths[i]);
+
+ for i:=0 to FAnalysisGrid.ColCount-1 do
+ ini.WriteInteger('MainForm', Format('AnalysisGrid_ColWidth_%d', [i+1]), FAnalysisGrid.ColWidths[i]);
+
+ ini.WriteInteger('MainForm', 'AnalysisDetails_Height', AnalysisDetails.Height);
+
+ ini.WriteInteger('MainForm', 'PageIndex', PageControl.ActivePageIndex);
+
+ ini.WriteInteger('HexEditor', 'AddressMode', ord(HexEditor.AddressMode));
+ ini.WriteInteger('HexEditor', 'DigitGrouping', HexEditor.DigitGrouping);
+ ini.WriteInteger('HexEditor', 'LineSize', HexEditor.LineSize);
+
+ finally
+ ini.Free;
+ end;
+end;
+
+end.
+
diff --git a/applications/biffexplorer/betypes.pas b/applications/biffexplorer/betypes.pas
new file mode 100644
index 000000000..f7c42631e
--- /dev/null
+++ b/applications/biffexplorer/betypes.pas
@@ -0,0 +1,30 @@
+unit beTypes;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils;
+
+const
+ BIFFNODE_TXO_CONTINUE1 = 1;
+ BIFFNODE_TXO_CONTINUE2 = 2;
+ BIFFNODE_SST_CONTINUE = 3;
+
+type
+ { Virtual tree node data }
+ TBiffNodeData = record //class
+ Offset: Integer;
+ RecordID: Integer;
+ RecordName: String;
+ RecordDescription: String;
+ Index: Integer;
+ Tag: Integer;
+ end;
+ PBiffNodeData = ^TBiffNodeData;
+
+implementation
+
+end.
+
diff --git a/applications/biffexplorer/beutils.pas b/applications/biffexplorer/beutils.pas
new file mode 100644
index 000000000..79362d95b
--- /dev/null
+++ b/applications/biffexplorer/beutils.pas
@@ -0,0 +1,165 @@
+unit beUtils;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, IniFiles, Forms,
+ fpstypes, fpspreadsheet;
+
+function CreateIni : TCustomIniFile;
+procedure ReadFormFromIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm);
+procedure WriteFormToIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm);
+
+function GetFileFormatName(AFormat: TsSpreadsheetFormat): String;
+function GetFormatFromFileHeader(const AFileName: TFileName;
+ out SheetType: TsSpreadsheetFormat): Boolean;
+
+
+implementation
+
+uses
+ uvirtuallayer_ole;
+
+function CreateIni : TCustomIniFile;
+var
+ cfg : string;
+begin
+ cfg := GetAppConfigDir(false);
+ if not DirectoryExists(cfg) then
+ CreateDir(cfg);
+ result := TMemIniFile.Create(GetAppConfigFile(false));
+end;
+
+procedure ReadFormFromIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm);
+var
+ L,T,W,H: Integer;
+ isMax: Boolean;
+begin
+ L := ini.ReadInteger(ASection, 'Left', AForm.Left);
+ T := Ini.ReadInteger(ASection, 'Top', AForm.Top);
+ W := ini.ReadInteger(ASection, 'Width', AForm.Width);
+ H := ini.ReadInteger(ASection, 'Height', AForm.Height);
+ isMax := ini.ReadBool(ASection, 'Maximized', AForm.WindowState = wsMaximized);
+ if W > Screen.Width then W := Screen.Width;
+ if H > Screen.Height then H := Screen.Height;
+ if L < 0 then L := 0;
+ if T < 0 then T := 0;
+ if L + W > Screen.Width then L := Screen.Width - W;
+ if T + H > Screen.Height then T := Screen.Height - H;
+ AForm.Left := L;
+ AForm.Top := T;
+ AForm.Width := W;
+ AForm.Height := H;
+ if IsMax then
+ AForm.WindowState := wsMaximized
+ else
+ AForm.WindowState := wsNormal;
+end;
+
+
+procedure WriteFormToIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm);
+begin
+ ini.WriteBool(ASection, 'Maximized', (AForm.WindowState = wsMaximized));
+ if AForm.WindowState = wsNormal then begin
+ ini.WriteInteger(ASection, 'Left', AForm.Left);
+ ini.WriteInteger(ASection, 'Top', AForm.Top);
+ ini.WriteInteger(ASection, 'Width', AForm.Width);
+ ini.WriteInteger(ASection, 'Height', AForm.Height);
+ end;
+end;
+
+function GetFileFormatName(AFormat: TsSpreadsheetFormat): string;
+begin
+ case AFormat of
+ sfExcel2 : Result := 'BIFF2';
+ { Excel3/4 not supported fpspreadsheet
+ sfExcel3 : Result := 'BIFF3';
+ sfExcel4 : Result := 'BIFF4';
+ }
+ sfExcel5 : Result := 'BIFF5';
+ sfExcel8 : Result := 'BIFF8';
+ sfooxml : Result := 'OOXML';
+ sfOpenDocument : Result := 'Open Document';
+ sfCSV : Result := 'CSV';
+ sfWikiTable_Pipes : Result := 'WikiTable Pipes';
+ sfWikiTable_WikiMedia : Result := 'WikiTable WikiMedia';
+ else Result := '-unknown format-';
+ end;
+end;
+
+function GetFormatFromFileHeader(const AFileName: TFileName;
+ out SheetType: TsSpreadsheetFormat): Boolean;
+const
+ BIFF2_HEADER: array[0..3] of byte = (
+ $09,$00, $04,$00); // they are common to all BIFF2 files that I've seen
+ BIFF58_HEADER: array[0..7] of byte = (
+ $D0,$CF, $11,$E0, $A1,$B1, $1A,$E1);
+
+ function ValidOLEStream(AStream: TStream; AName: String): Boolean;
+ var
+ fsOLE: TVirtualLayer_OLE;
+ begin
+ AStream.Position := 0;
+ fsOLE := TVirtualLayer_OLE.Create(AStream);
+ try
+ fsOLE.Initialize;
+ Result := fsOLE.FileExists('/'+AName);
+ finally
+ fsOLE.Free;
+ end;
+ end;
+
+var
+ buf: packed array[0..7] of byte = (0,0,0,0,0,0,0,0);
+ stream: TStream;
+ i: Integer;
+ ok: Boolean;
+begin
+ Result := false;
+ stream := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
+ try
+ // Read first 8 bytes
+ stream.ReadBuffer(buf, 8);
+
+ // Check for Excel 2
+ ok := true;
+ for i:=0 to High(BIFF2_HEADER) do
+ if buf[i] <> BIFF2_HEADER[i] then
+ begin
+ ok := false;
+ break;
+ end;
+ if ok then
+ begin
+ SheetType := sfExcel2;
+ Exit(True);
+ end;
+
+ // Check for Excel 5 or 8
+ for i:=0 to High(BIFF58_HEADER) do
+ if buf[i] <> BIFF58_HEADER[i] then
+ exit;
+
+ // Now we know that the file is a Microsoft compound document.
+
+ // We check for Excel 5 in which the stream is named "Book"
+ if ValidOLEStream(stream, 'Book') then begin
+ SheetType := sfExcel5;
+ exit(True);
+ end;
+
+ // Now we check for Excel 8 which names the stream "Workbook"
+ if ValidOLEStream(stream, 'Workbook') then begin
+ SheetType := sfExcel8;
+ exit(True);
+ end;
+
+ finally
+ stream.Free;
+ end;
+end;
+
+end.
+
diff --git a/applications/biffexplorer/mrumanager.pp b/applications/biffexplorer/mrumanager.pp
new file mode 100644
index 000000000..847f886e9
--- /dev/null
+++ b/applications/biffexplorer/mrumanager.pp
@@ -0,0 +1,485 @@
+{ MRU (Most Recent Used) menu item manager
+
+ Copyright (C) 2011 Michael Van Canneyt (michael@freepascal.org)
+ Modifications by Werner Pamler
+
+ This library is free software; you can redistribute it and/or modify it
+ under the terms of the GNU Library General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or (at your
+ option) any later version with the following modification:
+
+ As a special exception, the copyright holders of this library give you
+ permission to link this library with independent modules to produce an
+ executable, regardless of the license terms of these independent modules,and
+ to copy and distribute the resulting executable under terms of your choice,
+ provided that you also meet, for each linked independent module, the terms
+ and conditions of the license of that module. An independent module is a
+ module which is not derived from or based on this library. If you modify
+ this library, you may extend this exception to your version of the library,
+ but you are not obligated to do so. If you do not wish to do so, delete this
+ exception statement from your version.
+
+ This program is distributed in the hope that it will be useful, but WITHOUT
+ ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
+ for more details.
+
+ You should have received a copy of the GNU Library General Public License
+ along with this library; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+ modified by wp
+}
+unit mrumanager;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, inifiles, menus;
+
+Type
+ { TRecentMenuItem }
+
+ TRecentMenuItem = Class(TMenuItem)
+ Private
+ FFileName : string;
+ Public
+ Property FileName : String Read FFileName;
+ end;
+ TRecentMenuItemClass = Class of TRecentMenuItem;
+
+ { TMRUMenuManager }
+
+ TOnRecentFileEvent = Procedure(Sender : TObject; Const AFileName : String) of object;
+
+ TMRUMenuManager = Class(TComponent)
+ Private
+ FIniFileName: String;
+ FIniSection: String;
+ FOnRecent: TOnRecentFileEvent;
+ FRecent : TStrings;
+ FMaxRecent : Integer;
+ FMenuCaptionMask : string;
+ FMIRecent : TMenuItem;
+ FPMRecent : TPopupMenu;
+ FMaxItemLength : integer;
+ procedure SetIniFileName(const AValue:string);
+ procedure SetIniSection(const AValue:string);
+ procedure SetMaxItemLength(const AValue:integer);
+ procedure SetMenuCaptionMask(const AValue:string);
+ procedure SetMIRecent(const AValue: TMenuItem);
+ procedure SetPMRecent(const AValue: TPopupMenu);
+ procedure SetRecent(const AValue: TStrings);
+ protected
+ // Overrides.
+ procedure Loaded; override;
+ procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+ // Return default name and section if either is empty.
+ procedure GetFileNameAndSection(Var AFileName,ASection : String); virtual;
+ // Override if you want to load additional values.
+ procedure LoadFromIni(Ini: TCustomIniFile; ASection: String); virtual;
+ // Override if you want to write additional values.
+ procedure SaveToIni(Ini: TCustomIniFile; ASection: String); virtual;
+ // Called when menu item is clicked.
+ procedure DoOnRecentClick(Sender: TObject); virtual;
+ // Override this if you want to create a custom class of menu itel.
+ function CreateMenuItem(AOwner: TComponent): TRecentMenuItem; virtual;
+ // Create a menu caption. Default is index followed by filename.
+ // Override if you want to customize.
+ Function CreateMenuCaption(AIndex : Integer; Const AFileName : String) : String; virtual;
+ Public
+ Constructor Create(AOwner : TComponent);override;
+ Destructor Destroy; override;
+ // Load files from ini file AFileName in section ASection. Calls ShowRecentFiles
+ // Need for explicit call only when IniFileName='' and IniSection='' and class created at run-time
+ procedure LoadRecentFilesFromIni(const AFileName: string=''; const ASection: String='');
+ // Saves files to ini file AFileName in section ASection.
+ procedure SaveRecentFilesToIni(const AFileName: string=''; const ASection: String='');
+ // Add a filename to the list of files.
+ // If an existing file is added, it is moved first in the list.
+ // If MaxRecent is attained, the last one is removed.
+ // Calls ShowRecentFiles.
+ procedure AddToRecent(AFileName: String);
+ // Re-populate the menu.
+ procedure ShowRecentFiles;
+ Published
+ // Max. items to be kept in the list.
+ Property MaxRecent : Integer Read FMaxRecent write FMaxRecent;
+ // Menu item to create a submenu under. Existing items will be removed.
+ Property MenuItem : TMenuItem Read FMIRecent Write SetMIRecent;
+ // Popupmenu attached to a toolbar button. Existing items will be removed.
+ Property PopupMenu : TPopupMenu Read FPMRecent Write SetPMRecent;
+ // Default ini filename.
+ Property IniFileName : String Read FIniFileName Write SetIniFileName;
+ // Default ini section.
+ Property IniSection : String Read FIniSection Write SetIniSection;
+ // Maximum length of recent menu item
+ Property MaxItemLength : integer Read FMaxItemLength Write SetMaxItemLength default 80;
+ // Format mask for MenuCaption: first placeholder must be %d, second %s, e.g. '%d - %s'
+ Property MenuCaptionMask : string read FMenuCaptionMask Write SetMenuCaptionMask;
+ // Recent items. If adding manually to the list, ShowRecentFiles must be called manually.
+ Property Recent : TStrings Read FRecent Write SetRecent;
+ // Called when the user clicks an recent meu item.
+ Property OnRecentFile : TOnRecentFileEvent Read FOnRecent Write FOnRecent;
+ end;
+ EMRUManager = Class(Exception);
+
+Const
+ DefaultIniFile = 'recent.ini';
+ DefaultSection = 'Global';
+ KeyMaxRecent = 'MaxRecent';
+ KeyCount = 'Count';
+ KeyFile = 'File%d';
+
+implementation
+
+Resourcestring
+ SErrFailedToCreateDir = 'Failed to create directory "%s"';
+
+const
+ DEFAULT_MASK = '%d. %s';
+
+function MinimizeFileName(const AFileName:string; AMaxLen:integer) : string;
+
+ procedure SplitPath(const APath:String; Parts: TStrings);
+ { Splits the provided path into constituent folder names }
+ var
+ i, j : Integer;
+ begin
+ if APath = '' then exit;
+ if not Assigned(Parts) then exit;
+
+ i := Length(APath);
+ j := i;
+ while (i >= 1) do begin
+ if APath[i] = DirectorySeparator then begin
+ Parts.Insert(0, copy(APath, i+1, j-i));
+ j := i;
+ end;
+ dec(i);
+ end;
+ Parts.Insert(0, copy(APath, 1, j));
+ end;
+
+ function AddStringsFromTo(AList:TStrings; FromIndex,ToIndex:integer) : string;
+ var
+ i : integer;
+ begin
+ result := '';
+ for i:=FromIndex to ToIndex do
+ result := result + AList[i];
+ end;
+
+var
+ Parts : TStringList;
+ i : integer;
+ tmp : string;
+begin
+ result := AFileName;
+ if Length(AFileName) > AMaxLen then begin
+ Parts := TStringList.Create;
+ try
+ SplitPath(AFileName, Parts);
+ i := Parts.Count div 2;
+ while (i < Parts.Count) do begin
+ tmp := Format('%s...%s%s', [
+ AddStringsFromTo(Parts, 0, i-1),
+ DirectorySeparator,
+ AddStringsFromTo(Parts, i+1, Parts.Count-1)
+ ]);
+ if Length(tmp) < AMaxLen then begin
+ result := tmp;
+ exit;
+ end else
+ Parts.Delete(i);
+ i := Parts.Count div 2;
+ end;
+ result := ExtractFileName(AFileName);
+ finally
+ Parts.Free;
+ end;
+ end;
+end;
+
+procedure TMRUMenuManager.AddToRecent(AFileName : String);
+
+Var
+ I,J : Integer;
+ B : Boolean;
+
+begin
+ AFileName:=ExpandFileName(AFileName);
+ With FRecent do
+ begin
+ J:=IndexOf(AFileName);
+ If (J<>-1) then
+ begin
+ if (J>0) then
+ Exchange(0,J)
+ end
+ else
+ begin
+ While (Count>=FMaxRecent) do
+ Delete(Count-1);
+ Insert(0,AFileName)
+ end;
+ end;
+ ShowRecentFiles;
+end;
+
+function TMRUMenuManager.CreateMenuItem(AOwner :TComponent) : TRecentMenuItem;
+
+begin
+ Result:=TRecentMenuItem.Create(AOwner);
+end;
+
+function TMRUMenuManager.CreateMenuCaption(AIndex: Integer;
+ const AFileName: String): String;
+var
+ fn : string;
+ mask : string;
+begin
+ if FMaxItemLength > 0 then
+ fn := MinimizeFileName(AFileName, FMaxItemLength)
+ else
+ fn := AFileName;
+ if FMenuCaptionMask = '' then
+ mask := DEFAULT_MASK
+ else
+ mask := FMenuCaptionMask;
+ Result:=Format(mask, [AIndex+1,fn]);
+end;
+
+procedure TMRUMenuManager.ShowRecentFiles;
+
+Var
+ I : Integer;
+ M : TRecentMenuItem;
+
+begin
+ if Assigned(FMIRecent) then begin
+ FMIRecent.clear;
+ For I:=0 to FRecent.Count-1 do
+ begin
+ M:=CreateMenuItem(Self.Owner);
+ M.Caption:=CreateMenuCaption(I,FRecent[i]);
+ M.FFileName:=FRecent[i];
+ M.OnClick:=@DoOnRecentClick;
+ FMIRecent.Add(M);
+ end;
+ end;
+ if Assigned(FPMRecent) then begin
+ FPMRecent.Items.Clear;
+ for i:=0 to FRecent.Count-1 do
+ begin
+ M := CreateMenuItem(Self.Owner);
+ M.Caption := CreateMenuCaption(I, Recent[i]);
+ M.FFileName := FRecent[i];
+ M.OnClick := @DoOnRecentClick;
+ FPMRecent.Items.Add(M);
+ end;
+ end;
+end;
+
+procedure TMRUMenuManager.LoadFromIni(Ini : TCustomIniFile; ASection : String);
+
+Var
+ I,Count : Integer;
+ FN : String;
+
+begin
+ FRecent.Clear;
+ FMaxRecent:=Ini.ReadInteger(ASection,KeyMaxRecent,10);
+ Count:=Ini.ReadInteger(ASection,KeyCount,0);
+ For I:=1 to Count do
+ begin
+ FN:=Ini.ReadString(ASection,Format(KeyFile,[i]),'');
+ If (FN<>'') then
+ FRecent.Add(FN);
+ end;
+end;
+
+procedure TMRUMenuManager.GetFileNameAndSection(var AFileName, ASection: String);
+
+begin
+ if (AFileName='') then
+ begin
+ AFileName:=GetAppConfigDir(False);
+ AFileName:=IncludeTrailingPathDelimiter(AFileName)+DefaultIniFile;
+ end;
+ if (ASection='') then
+ ASection:=DefaultSection;
+end;
+
+procedure TMRUMenuManager.LoadRecentFilesFromIni(Const AFileName : string = ''; Const ASection : String = '');
+
+Var
+ DN,FN,Sec : String;
+ Ini : TIniFile;
+
+begin
+ FN:=AFileName;
+ Sec:=ASection;
+ GetFileNameAndSection(FN,Sec);
+ DN:=ExtractFilePath(FN);
+ If ForceDirectories(DN) then
+ begin
+ If FileExists(FN) then
+ begin
+ Ini:=TIniFile.Create(FN);
+ try
+ LoadFromIni(Ini,Sec);
+ finally
+ Ini.Free;
+ end;
+ end;
+ end;
+ ShowRecentFiles;
+end;
+
+procedure TMRUMenuManager.SaveToIni(Ini : TCustomIniFile; ASection : String);
+
+Var
+ I : Integer;
+begin
+ Ini.EraseSection(ASection);
+ Ini.WriteInteger(ASection,KeyMaxRecent,FMaxRecent);
+ Ini.WriteInteger(ASection,KeyCount,FRecent.Count);
+ For I:=0 to FRecent.Count-1 do
+ Ini.WriteString(ASection,Format(KeyFile,[i+1]),FRecent[i]);
+ Ini.UpdateFile;
+end;
+
+procedure TMRUMenuManager.SaveRecentFilesToIni(Const AFileName : string = ''; Const ASection : String = '');
+
+Var
+ DN,FN,Sec : String;
+ Ini : TMemIniFile;
+
+begin
+ FN:=AFileName;
+ Sec:=ASection;
+ GetFileNameAndSection(FN,Sec);
+ DN:=ExtractFilePath(FN);
+ If not ForceDirectories(DN) then
+ Raise EMRUManager.CreateFmt(SErrFailedToCreateDir,[DN]);
+ Ini:=TMemIniFile.Create(FN);
+ try
+ SaveToIni(Ini,Sec);
+ finally
+ Ini.Free;
+ end;
+end;
+
+procedure TMRUMenuManager.SetIniFileName(const AValue:string);
+begin
+ if AValue <> FIniFileName then begin
+ FIniFileName := AValue;
+ LoadRecentFilesFromIni(FIniFileName, FIniSection);
+ end;
+end;
+
+procedure TMRUMenuManager.SetIniSection(const AValue:string);
+begin
+ if AValue <> FIniSection then begin
+ FIniSection := AValue;
+ LoadRecentFilesFromini(FIniFileName, FIniSection);
+ end;
+end;
+
+procedure TMRUMenuManager.SetMaxItemLength(const AValue:integer);
+begin
+ if FMaxItemLength <> AValue then begin
+ FMaxItemLength := AValue;
+ ShowRecentFiles;
+ end;
+end;
+
+procedure TMRUMenuManager.SetMenuCaptionMask(const AValue:string);
+begin
+ if FMenuCaptionMask <> AValue then begin
+ FMenuCaptionMask := AValue;
+ ShowRecentFiles;
+ end;
+end;
+
+procedure TMRUMenuManager.SetMIRecent(const AValue: TMenuItem);
+begin
+ if FMIRecent=AValue then exit;
+ If Assigned(FMIRecent) then
+ FMIRecent.RemoveFreeNotification(Self);
+ FMIRecent:=AValue;
+ If Assigned(FMIRecent) then
+ FMIRecent.FreeNotification(Self);
+ ShowRecentFiles;
+end;
+
+procedure TMRUMenuManager.SetPMRecent(const AValue: TPopupMenu);
+begin
+ if FPMRecent=AValue then exit;
+ if Assigned(FPMRecent) then
+ FPMRecent.RemoveFreeNotification(self);
+ FPMRecent := AValue;
+ if Assigned(FPMRecent) then
+ FPMRecent.FreeNotification(self);
+ ShowRecentFiles;
+end;
+
+procedure TMRUMenuManager.SetRecent(const AValue: TStrings);
+begin
+ if FRecent=AValue then exit;
+ FRecent.Assign(AValue);
+ ShowRecentFiles;
+end;
+
+procedure TMRUMenuManager.loaded;
+begin
+ inherited loaded;
+ if (FRecent.Count>0) and (assigned(FMIRecent) or assigned(FPMRecent))then
+ LoadRecentFilesFromIni(FIniFileName, FIniSection);
+end;
+
+constructor TMRUMenuManager.Create(AOwner: TComponent);
+begin
+ inherited Create(AOwner);
+ FRecent:=TStringList.Create;
+ FMaxItemLength := 80;
+ FMenuCaptionMask := DEFAULT_MASK;
+end;
+
+destructor TMRUMenuManager.Destroy;
+begin
+ SaveRecentFilesToIni(FIniFileName, FIniSection);
+ FreeAndNil(FRecent);
+ inherited Destroy;
+end;
+
+procedure TMRUMenuManager.Notification(AComponent: TComponent;
+ Operation: TOperation);
+begin
+ inherited Notification(AComponent, Operation);
+ if (Operation = opRemove) then begin
+ if AComponent = FMIRecent then FMIRecent := nil;
+ if AComponent = FPMRecent then FPMRecent := nil;
+ end;
+ { original code - I think this is not correct:
+ inherited Notification(AComponent, Operation);
+ if (Operation=opRemove) and ((AComponent=FMIRecent) or (AComponent=FPMRecent)) then
+ exit;
+ }
+end;
+
+procedure TMRUMenuManager.DoOnRecentClick(Sender: TObject);
+Var
+ FN : String;
+begin
+ With (Sender as TRecentMenuItem) do
+ FN:=FileName;
+ if (FN<>'') and (OnRecentFile<>Nil) then
+ OnRecentFile(Self,FN);
+end;
+
+end.
+
diff --git a/applications/biffexplorer/readme.txt b/applications/biffexplorer/readme.txt
new file mode 100644
index 000000000..375ddcdfc
--- /dev/null
+++ b/applications/biffexplorer/readme.txt
@@ -0,0 +1,20 @@
+BIFF Explorer
+--------------------------------------------------------------------------------
+
+"BIFF Explorer" is a tool to peek into the internal structure of a binary
+Excel file in biff format.
+
+It displays a list of the BIFF records contained in the xls file along with
+name and explanation as described in various documentation files (see "About").
+Selecting one of the records loads its bytes into a simple hex viewer; for the
+most important records I tried to decipher the contents of the hex values and
+display their meaning in a grid and a memo (page "Analysis"). For the other
+records select a byte in the hex viewer, and the program will display the
+contents of that byte and the following ones as integer, double, string
+(page "Values").
+
+For compiling, note that the program requires the following packages
+from ccr
+- "KControls"
+- "lclextensions"
+- "VirtualTreeview-new"