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

IDE: localize Edit Build Lazarus Defines dialog

Browse Source 
git-svn-id: trunk@28117 -
This commit is contained in:
maxim 2010-11-07 13:38:38 +00:00
parent b2aa415919
commit e97fa4cdac
4 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/buildlazdialog.pas
View File

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

7
ide/genericlisteditor.lfm
View File

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

11
ide/genericlisteditor.pas
View File

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

1
ide/lazarusidestrconsts.pas
View File

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