diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-12-30 14:06:37 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-11-11 21:34:28 +0200 |
| commit | e57f96bf588862daf93653a893b963d20e7eeef4 (patch) | |
| tree | 081fe2821c95253f93b4b87063e32024f5b4209f /docview | |
| parent | bd7c4ffcd9b8273069c332d50cace2e3e7747bca (diff) | |
| download | fpGUI-e57f96bf588862daf93653a893b963d20e7eeef4.tar.xz | |
docview: about form text change
Diffstat (limited to 'docview')
| -rw-r--r-- | docview/src/frm_main.pas | 5 |
1 files changed, 3 insertions, 2 deletions
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; |