From 82418034359fbd703796830eff81a1be14a5e924 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Thu, 8 Jul 2010 20:52:55 +0000
Subject: [PATCH] converter: improved 'replace names' dialog localization

git-svn-id: trunk@26539 -
---
 converter/replacenamesunit.lfm | 2 +-
 converter/replacenamesunit.pas | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/converter/replacenamesunit.lfm b/converter/replacenamesunit.lfm
index 4d0993ff78..38bcb4e7e3 100644
--- a/converter/replacenamesunit.lfm
+++ b/converter/replacenamesunit.lfm
@@ -3,7 +3,6 @@ object ReplaceNamesForm: TReplaceNamesForm
   Height = 472
   Top = 438
   Width = 343
-  ActiveControl = Grid
   Caption = 'Properties and Types to replace'
   ClientHeight = 472
   ClientWidth = 343
@@ -59,6 +58,7 @@ object ReplaceNamesForm: TReplaceNamesForm
       Align = alLeft
       AutoSize = True
       BorderSpacing.Around = 6
+      Caption = '&Help'
       Constraints.MinHeight = 25
       Constraints.MinWidth = 75
       Kind = bkHelp
diff --git a/converter/replacenamesunit.pas b/converter/replacenamesunit.pas
index 8c5712c890..358624650e 100644
--- a/converter/replacenamesunit.pas
+++ b/converter/replacenamesunit.pas
@@ -225,6 +225,9 @@ end;
 procedure TReplaceNamesForm.FormCreate(Sender: TObject);
 begin
   Caption:=lisReplacements;
+  btnOK.Caption:=lisOk;
+  HelpButton.Caption:=lisMenuHelp;
+  btnCancel.Caption:=dlgCancel;
   IsLasRow:=false;
 end;