diff options
| -rw-r--r-- | src/frm_main.pas | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/frm_main.pas b/src/frm_main.pas index efb4007b..1700c724 100644 --- a/src/frm_main.pas +++ b/src/frm_main.pas @@ -210,8 +210,13 @@ begin end; procedure TMainForm.miHelpProdInfoClicked(Sender: TObject); +var + s: TfpgString; begin - TfpgMessageDialog.Information('Product Information', 'Created by Graeme Geldenhuys'); + s := 'fpGUI ' + rsDVTitle + LineEnding + LineEnding + + 'Created by Graeme Geldenhuys' + LineEnding + + 'Version 1.0 - ' + {$I %date%} + ' ' + {$I %time%}; + TfpgMessageDialog.Information('Product Information', s); end; procedure TMainForm.miHelpAboutFPGui(Sender: TObject); |