IDE: localize "Select profiles to build" dialog

git-svn-id: trunk@28217 -
This commit is contained in:
maxim 2010-11-14 18:39:42 +00:00
parent 21aade180b
commit 275fb50706
4 changed files with 14 additions and 4 deletions

View File

@ -1136,7 +1136,7 @@ begin
PrepareClose;
EditForm:=TGenericCheckListForm.Create(Nil);
try
EditForm.Caption:='Select Profiles to Build';
EditForm.Caption:=lisLazBuildSelectProfilesToBuild;
// Copy profile names to checkboxlist and check the previously selected ones.
for i:=0 to fProfiles.Count-1 do begin
ind:=EditForm.CheckListBox1.Items.Add(fProfiles[i].Name);

View File

@ -6,6 +6,7 @@ object GenericCheckListForm: TGenericCheckListForm
Caption = 'GenericCheckListForm'
ClientHeight = 301
ClientWidth = 343
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
object ButtonPanel1: TButtonPanel
@ -34,6 +35,5 @@ object GenericCheckListForm: TGenericCheckListForm
Align = alClient
ItemHeight = 0
TabOrder = 1
TopIndex = -1
end
end

View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
StdCtrls, CheckLst;
StdCtrls, CheckLst, LazarusIDEStrConsts;
type
@ -15,6 +15,7 @@ type
TGenericCheckListForm = class(TForm)
ButtonPanel1: TButtonPanel;
CheckListBox1: TCheckListBox;
procedure FormCreate(Sender: TObject);
private
public
@ -28,5 +29,13 @@ implementation
{$R *.lfm}
{ TGenericCheckListForm }
procedure TGenericCheckListForm.FormCreate(Sender: TObject);
begin
ButtonPanel1.OKButton.Caption:=lisOk;
ButtonPanel1.CancelButton.Caption:=dlgCancel;
end;
end.

View File

@ -2841,7 +2841,8 @@ resourcestring
lisLazBuildConfirmDeletion = 'Confirm deletion';
lisLazBuildAreYouSureYouWantToDeleteThisBuildProfile = 'Are you sure you '
+'want to delete this build profile?';
lisLazBuildSelectProfilesToBuild = 'Select profiles to build';
// compiler
lisCompilerErrorInvalidCompiler = 'Error: invalid compiler: %s';
listCompilerInternalError = 'Internal compiler error! (%d)';