From d3b0afb5d7f2f3d1aa52548dc60f9414ec5579d7 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sun, 2 Oct 2005 13:52:28 +0000
Subject: [PATCH] put versionstring into a string constant

git-svn-id: trunk@7890 -
---
 ide/aboutfrm.pas            | 5 ++++-
 ide/lazarus.pp              | 1 -
 ide/lazarusidestrconsts.pas | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index 4a085005c6..49d3ef342b 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -56,6 +56,8 @@ type
 
 function ShowAboutForm: TModalResult;
 
+const
+  LazarusVersionStr= '0.9.10';
 var
   LazarusRevisionStr: string;
 
@@ -130,7 +132,8 @@ begin
   FPixmap := TPixmap.Create;
   FPixmap.LoadFromLazarusResource('lazarus_about_logo');
   Caption:=lisAboutLazarus;
-  VersionLabel.Caption := lisVersion+' #: '+lisLazarusVersionString;
+  VersionLabel.Caption := lisVersion+' #: '+
+     format(lisLazarusVersionString,[LazarusVersionStr]);
   RevisionLabel.Caption := lisSVNRevision+GetLazarusRevision;
 
   RevisionLabel.Visible:=false; // deactivated
diff --git a/ide/lazarus.pp b/ide/lazarus.pp
index cb58d6e55d..493a2de15d 100644
--- a/ide/lazarus.pp
+++ b/ide/lazarus.pp
@@ -58,7 +58,6 @@ uses
   {$ENDIF}
   MainBase;
 
-const LazarusVersionStr = '0.9.10';
 const RevisionStr={$I revision.inc}
 
 begin
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 4354724bd7..f3e2513a0c 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -43,7 +43,7 @@ uses
 resourcestring
   lisEnterTransla = 'Enter translation language';
   // version
-  lisLazarusVersionString = '0.9.9 beta';
+  lisLazarusVersionString = '%s beta'; // %s is the versionstring (eg. 0.9.10)
   lisLeaveEmptyFo = 'Leave empty for default .po file';
   lisMenuCollectPoFil = 'Collect .po files';
   lisMenuCreatePoFile = 'Create .po files';