From e57f96bf588862daf93653a893b963d20e7eeef4 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Wed, 30 Dec 2009 14:06:37 +0200
Subject: docview: about form text change

---
 docview/src/frm_main.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'docview')

diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index 2b32ca26..957bfc94 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -249,6 +249,7 @@ uses
 
 const
   cLongName   = 'fpGUI Documentation Viewer';
+  cShortName  = 'DocView';
   cCreatedBy  = 'Created by Graeme Geldenhuys';
   cVersion    = 'Version ' + FPGUI_VERSION;
 
@@ -561,9 +562,9 @@ procedure TMainForm.miHelpProdInfoClicked(Sender: TObject);
 var
   s: TfpgString;
 begin
-  s :=  cLongName + LineEnding + LineEnding
+  s :=  cShortName + '  -  ' + cLongName + LineEnding + LineEnding
       + cCreatedBy + LineEnding
-      + cVersion + '  -  '+  {$I %date%} + ' ' + {$I %time%};
+      + cVersion + '  -  ' +  {$I %date%} + ' ' + {$I %time%};
 
   TfpgMessageDialog.Information('Product Information', s);
 end;
-- 
cgit v1.2.3-70-g09d2