mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-02 11:01:20 +02:00
IDE: localize "Select profiles to build" dialog
git-svn-id: trunk@28217 -
This commit is contained in:
parent
21aade180b
commit
275fb50706
@ -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);
|
||||
|
@ -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
|
||||
|
@ -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.
|
||||
|
||||
|
@ -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)';
|
||||
|
Loading…
Reference in New Issue
Block a user