diff options
| -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; |