From c7d0c996004457604e888b083f016ff264500b4b Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 29 Dec 2009 13:53:04 +0200 Subject: Add information text to the About fpGUI dialog. --- src/corelib/fpg_main.pas | 2 +- src/gui/messagedialog.inc | 14 ++++++++++++++ 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index ed87ac95..dc9d7f4c 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -68,7 +68,7 @@ const cMessageQueueSize = 1024; // version and name constants - fpGUIVersion = '0.6.2'; + fpGUIVersion = '0.7'; fpGUIName = 'fpGUI Toolkit'; const diff --git a/src/gui/messagedialog.inc b/src/gui/messagedialog.inc index 88a22272..077b3ea9 100644 --- a/src/gui/messagedialog.inc +++ b/src/gui/messagedialog.inc @@ -369,6 +369,20 @@ begin dlg.WindowTitle := ATitle; dlg.Buttons := [mbOK]; dlg.DefaultButton := mbOK; + dlg.Text := dlg.WindowTitle; + dlg.InformativeText := LineEnding + LineEnding + + 'This program uses ' + fpGUIName + ' version ' + fpGUIVersion + '.' + + LineEnding + LineEnding + + fpGUIName + ' is intended for Open Source and Commercial applications. fpGUI' + + ' uses the LGPL 2 license with a static linking exception - the same as the Free ' + + ' Pascal Compiler''s RTL.' + + LineEnding + LineEnding + + 'fpGUI is a Object Pascal toolkit for cross-platform application development. ' + + 'It provides single-source portability across Linux, MS Windows, *BSD ' + + 'and embedded devices like Embedded Linux and Windows CE.' + + LineEnding + LineEnding + + 'For more information, see the ' + fpGUIName + ' website at: ' + + 'http://opensoft.homeip.net/fpgui/'; dlg.PrepareLayout; dlg.ShowModal; finally -- cgit v1.2.3-70-g09d2