From 540e3d91366a97c817775f2b99ccb41b9f00497d Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Sun, 22 Aug 2010 13:50:33 +0200
Subject: docview: INF header information. Added file size to the details.

---
 docview/src/frm_main.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'docview')

diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index 64a07ecb..4defc759 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -436,8 +436,8 @@ procedure TMainForm.miDebugHeader(Sender: TObject);
     with sl do
     begin
       Add('<b><u>Filename:</u></b> <red>' + f.Filename + '<black>');
-      Add('');
       Add('<b>Title:</b> ' + f.Title);
+      Add('<b>File size:</b> ' + IntToStr(fpgFileSize(f.Filename)) + 'bytes');
       Add('<b>Dictionary count:</b> ' + IntToStr(f.DictionaryCount));
       Add('<b>Topic count:</b> ' + IntToStr(f.TopicCount));
       Add('<b>Index count:</b> ' + IntToStr(f.Index.Count));
-- 
cgit v1.2.3-54-g00ecf