IDE: localize Edit Build Lazarus Defines dialog

git-svn-id: trunk@28117 -

ide/buildlazdialog.pas

@@ -1157,7 +1157,7 @@ var
 begin
   EditForm:=TGenericListEditForm.Create(Nil);
   try
-    EditForm.Caption:='Edit Defines';
+    EditForm.Caption:=lisLazBuildEditDefinesDialogCaption;
     EditForm.Memo1.Lines.Assign(fProfiles.AllDefines);
     if EditForm.ShowModal=mrOK then begin
       CopyUIToProfile(Profiles.Current); // Make sure changed fields don't get lost.

ide/genericlisteditor.lfm

@@ -6,12 +6,13 @@ object GenericListEditForm: TGenericListEditForm
   Caption = 'GenericListEditForm'
   ClientHeight = 301
   ClientWidth = 343
+  OnCreate = FormCreate
   Position = poScreenCenter
   LCLVersion = '0.9.29'
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 40
-    Top = 255
+    Height = 34
+    Top = 261
     Width = 331
     OKButton.Name = 'OKButton'
     OKButton.Caption = '&OK'
@@ -28,7 +29,7 @@ object GenericListEditForm: TGenericListEditForm
   end
   object Memo1: TMemo
     Left = 0
-    Height = 249
+    Height = 255
     Top = 0
     Width = 343
     Align = alClient

ide/genericlisteditor.pas

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

ide/lazarusidestrconsts.pas

@@ -2816,6 +2816,7 @@ resourcestring
   lisLazBuildABOChooseOutputDir = 'Choose output directory of the IDE executable ';
   lisLazBuildDefines = 'Defines';
   lisLazBuildEditDefines = 'Edit Defines';
+  lisLazBuildEditDefinesDialogCaption = 'Edit Defines';
   
   // compiler
   lisCompilerErrorInvalidCompiler = 'Error: invalid compiler: %s';