summaryrefslogtreecommitdiff
path: root/docview
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-04-06 23:39:06 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-04-06 23:39:06 +0200
commit87f6a1c5162ef80b8124a367af51349a952aceb5 (patch)
tree60d3649968d69a75d55aab07a10dfc04926be6e3 /docview
parent61c0d90e41d86a2a80e5b0d50f77aa2318e27c19 (diff)
downloadfpGUI-87f6a1c5162ef80b8124a367af51349a952aceb5.tar.xz
docdump: make sure all counters are 0-based
It might look better for humans if counting is 1-based, but for reference with the INF file structure, lets keep all the docdump output 0-based.
Diffstat (limited to 'docview')
-rw-r--r--docview/src/docdump/readfonts.pas2
-rw-r--r--docview/src/docdump/readtoc.pas2
2 files changed, 2 insertions, 2 deletions
diff --git a/docview/src/docdump/readfonts.pas b/docview/src/docdump/readfonts.pas
index 6b684cac..68c3bd4c 100644
--- a/docview/src/docdump/readfonts.pas
+++ b/docview/src/docdump/readfonts.pas
@@ -32,7 +32,7 @@ begin
for i := 0 to eHdr.NumFontEntry-1 do
begin
AIn.Read(fnt, SizeOf(THelpFontSpec));
- AOut.WriteLn(Format(' Font Entry #%d', [i+1]));
+ AOut.WriteLn(Format(' Font Entry #%d', [i]));
AOut.WriteLn(Format(' FontSpec.FaceName: %s', [fnt.FaceName]));
AOut.WriteLn(Format(' FontSpec.Height: %4.4x (%0:d)', [fnt.Height]));
AOut.WriteLn(Format(' FontSpec.Width: %4.4x (%0:d)', [fnt.Width]));
diff --git a/docview/src/docdump/readtoc.pas b/docview/src/docdump/readtoc.pas
index 0cfae395..8c98e31e 100644
--- a/docview/src/docdump/readtoc.pas
+++ b/docview/src/docdump/readtoc.pas
@@ -73,7 +73,7 @@ begin
GetMem(pData, hdr.toclen);
AIn.Read(pData^, hdr.toclen);
pEntry := pData;
- for count := 1 to hdr.ntoc do
+ for count := 0 to hdr.ntoc-1 do
begin
// AIn.Read(toc, SizeOf(TTOCEntryStart));
// FillChar(olay, SizeOf(TTOCOverlay), 0);