paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

put versionstring into a string constant

Browse Source 
git-svn-id: trunk@7890 -
This commit is contained in:
vincents 2005-10-02 13:52:28 +00:00
parent f041e62ee3
commit d3b0afb5d7
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/aboutfrm.pas
View File

@ -56,6 +56,8 @@ type
function ShowAboutForm: TModalResult; function ShowAboutForm: TModalResult;
const
LazarusVersionStr= '0.9.10';
var var
LazarusRevisionStr: string; LazarusRevisionStr: string;
@ -130,7 +132,8 @@ begin
FPixmap := TPixmap.Create; FPixmap := TPixmap.Create;
FPixmap.LoadFromLazarusResource('lazarus_about_logo'); FPixmap.LoadFromLazarusResource('lazarus_about_logo');
Caption:=lisAboutLazarus; Caption:=lisAboutLazarus;
VersionLabel.Caption := lisVersion+' #: '+lisLazarusVersionString; VersionLabel.Caption := lisVersion+' #: '+
format(lisLazarusVersionString,[LazarusVersionStr]);
RevisionLabel.Caption := lisSVNRevision+GetLazarusRevision; RevisionLabel.Caption := lisSVNRevision+GetLazarusRevision;
RevisionLabel.Visible:=false; // deactivated RevisionLabel.Visible:=false; // deactivated

1
ide/lazarus.pp
View File

@ -58,7 +58,6 @@ uses
{$ENDIF} {$ENDIF}
MainBase; MainBase;
const LazarusVersionStr = '0.9.10';
const RevisionStr={$I revision.inc} const RevisionStr={$I revision.inc}
begin begin

2
ide/lazarusidestrconsts.pas
View File

@ -43,7 +43,7 @@ uses
resourcestring resourcestring
lisEnterTransla = 'Enter translation language'; lisEnterTransla = 'Enter translation language';
// version // version
lisLazarusVersionString = '0.9.9 beta'; lisLazarusVersionString = '%s beta'; // %s is the versionstring (eg. 0.9.10)
lisLeaveEmptyFo = 'Leave empty for default .po file'; lisLeaveEmptyFo = 'Leave empty for default .po file';
lisMenuCollectPoFil = 'Collect .po files'; lisMenuCollectPoFil = 'Collect .po files';
lisMenuCreatePoFile = 'Create .po files'; lisMenuCreatePoFile = 'Create .po files';