From fcdefa1f7a2d7f74122203dc49dd79436aafa422 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 21 Jun 2008 17:56:27 +0000
Subject: [PATCH] Fix bug #575 "Incorrect table size in tree"

---
 source/childwin.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 8bc24462..7f535cdf 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -6677,7 +6677,7 @@ begin
         NODETYPE_TABLE: begin
           db := DBtree.Text[Node.Parent, 0];
           ds := FetchDbTableList(db);
-          ds.RecNo := Node.Index;
+          ds.RecNo := Node.Index + 1;
           Bytes := GetTableSize(ds.Fields);
           CellText := FormatByteNumber(Bytes);
         end