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

Build profiles: allow translating strings.

Browse Source 
git-svn-id: trunk@27911 -
This commit is contained in:
juha 2010-10-27 22:49:47 +00:00
parent a4db8e39d0
commit 6082d0a0e1
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/buildprofilemanager.pas
View File

@ -790,8 +790,8 @@ var
begin begin
with TAddProfileForm.Create(nil) do with TAddProfileForm.Create(nil) do
try try
Caption:='Add New Profile'; Caption:=lisLazBuildNewProf;
ProfileHeaderLabel.Caption:='Current build options will be saved as:'; ProfileHeaderLabel.Caption:=lisLazBuildNewProfInfo;
if (ShowModal=mrOk) and (NameEdit.Text<>'') then begin if (ShowModal=mrOk) and (NameEdit.Text<>'') then begin
// Update ProfsToManage collection. // Update ProfsToManage collection.
NewProfile:=TBuildLazarusProfile.Create(fProfsToManage,NameEdit.Text); NewProfile:=TBuildLazarusProfile.Create(fProfsToManage,NameEdit.Text);
@ -834,8 +834,8 @@ begin
if i<0 then exit; if i<0 then exit;
with TAddProfileForm.Create(nil) do with TAddProfileForm.Create(nil) do
try try
Caption:='Rename Profile'; Caption:=lisLazBuildRenameProf;
ProfileHeaderLabel.Caption:='New name for profile:'; ProfileHeaderLabel.Caption:=lisLazBuildRenameProfInfo;
NameEdit.Text:=ProfilesListbox.Items[i]; NameEdit.Text:=ProfilesListbox.Items[i];
if (ShowModal=mrOk) and (NameEdit.Text<>'') then begin if (ShowModal=mrOk) and (NameEdit.Text<>'') then begin
// Update ProfsToManage collection. // Update ProfsToManage collection.

4
ide/lazarusidestrconsts.pas
View File

@ -2765,8 +2765,12 @@ resourcestring
lisLazBuildConfirmBuild = 'Confirm before rebuilding Lazarus'; lisLazBuildConfirmBuild = 'Confirm before rebuilding Lazarus';
lisLazBuildOk = 'Ok'; lisLazBuildOk = 'Ok';
lisLazBuildAdd = 'Add'; lisLazBuildAdd = 'Add';
lisLazBuildNewProf = 'Add New Profile';
lisLazBuildNewProfInfo = 'Current build options will be associated with:';
lisLazBuildRemove = 'Remove'; lisLazBuildRemove = 'Remove';
lisLazBuildRename = 'Rename'; lisLazBuildRename = 'Rename';
lisLazBuildRenameProf = 'Rename Profile';
lisLazBuildRenameProfInfo = 'New name for profile:';
lisCTDTemplates = 'Templates'; lisCTDTemplates = 'Templates';
lisSaveSettings = 'Save Settings'; lisSaveSettings = 'Save Settings';
lisLazBuildCancel = 'Cancel'; lisLazBuildCancel = 'Cancel';