From d3b0afb5d7f2f3d1aa52548dc60f9414ec5579d7 Mon Sep 17 00:00:00 2001 From: vincents 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';