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';