From 7696d6fc43b76f2c34c732237ea4be917f343a02 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Fri, 7 Jan 2011 14:15:28 +0000
Subject: [PATCH] IDE, Code templates dialog: fixed localization

git-svn-id: trunk@28895 -
---
 ide/codetemplatesdlg.lfm | 43 ++++++++++++++++++++--------------------
 ide/codetemplatesdlg.pas |  5 +++--
 2 files changed, 25 insertions(+), 23 deletions(-)

diff --git a/ide/codetemplatesdlg.lfm b/ide/codetemplatesdlg.lfm
index b0575beacc..3a1adf4e2f 100644
--- a/ide/codetemplatesdlg.lfm
+++ b/ide/codetemplatesdlg.lfm
@@ -20,13 +20,13 @@ object CodeTemplateDialog: TCodeTemplateDialog
     Align = alTop
     BorderSpacing.Around = 6
     Caption = 'FilenameGroupBox'
-    ClientHeight = 32
+    ClientHeight = 33
     ClientWidth = 481
     TabOrder = 0
     object FilenameEdit: TEdit
       AnchorSideRight.Control = FilenameButton
       Left = 9
-      Height = 27
+      Height = 21
       Top = 4
       Width = 435
       Anchors = [akTop, akLeft, akRight]
@@ -41,7 +41,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideBottom.Side = asrBottom
       Left = 449
       Height = 23
-      Top = 8
+      Top = 2
       Width = 26
       Anchors = [akRight, akBottom]
       BorderSpacing.Right = 6
@@ -58,7 +58,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
     Align = alTop
     BorderSpacing.Around = 6
     Caption = 'TemplatesGroupBox'
-    ClientHeight = 148
+    ClientHeight = 149
     ClientWidth = 481
     TabOrder = 1
     object TemplateListBox: TListBox
@@ -68,7 +68,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideBottom.Control = TemplatesGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 136
+      Height = 137
       Top = 6
       Width = 315
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -79,7 +79,6 @@ object CodeTemplateDialog: TCodeTemplateDialog
       ItemHeight = 0
       OnSelectionChange = TemplateListBoxSelectionChange
       TabOrder = 0
-      TopIndex = -1
     end
     object AddButton: TButton
       AnchorSideTop.Control = TemplateListBox
@@ -133,20 +132,20 @@ object CodeTemplateDialog: TCodeTemplateDialog
     AnchorSideRight.Control = Owner
     AnchorSideBottom.Control = FilenameGroupBox
     Left = 6
-    Height = 262
+    Height = 268
     Top = 236
     Width = 485
     Align = alClient
     BorderSpacing.Around = 6
     Caption = 'EditTemplateGroupBox'
-    ClientHeight = 243
+    ClientHeight = 250
     ClientWidth = 481
     TabOrder = 2
     object UseMacrosCheckBox: TCheckBox
       Left = 6
-      Height = 22
+      Height = 17
       Top = 6
-      Width = 161
+      Width = 117
       BorderSpacing.Bottom = 7
       Caption = 'UseMacrosCheckBox'
       ParentShowHint = False
@@ -159,10 +158,10 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideTop.Control = UseMacrosCheckBox
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Side = asrBottom
-      Left = 193
-      Height = 29
+      Left = 149
+      Height = 23
       Top = 3
-      Width = 132
+      Width = 116
       AutoSize = True
       BorderSpacing.Left = 20
       BorderSpacing.Around = 6
@@ -178,8 +177,8 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideBottom.Control = EditTemplateGroupBox
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 138
-      Top = 99
+      Height = 155
+      Top = 89
       Width = 469
       BorderSpacing.Around = 6
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -802,7 +801,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideRight.Side = asrBottom
       Left = 6
       Height = 30
-      Top = 63
+      Top = 53
       Width = 469
       Anchors = [akTop, akLeft, akRight]
       AutoFill = True
@@ -826,9 +825,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
       AnchorSideTop.Control = UseMacrosCheckBox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 35
-      Width = 186
+      Height = 17
+      Top = 30
+      Width = 139
       BorderSpacing.Top = 6
       Caption = 'KeepSubIndentCheckBox'
       ParentShowHint = False
@@ -838,13 +837,15 @@ object CodeTemplateDialog: TCodeTemplateDialog
   end
   object ButtonPanel: TButtonPanel
     Left = 6
-    Height = 32
-    Top = 504
+    Height = 26
+    Top = 510
     Width = 485
     OKButton.Name = 'OKButton'
     OKButton.Caption = '&OK'
+    OKButton.OnClick = OkButtonClick
     HelpButton.Name = 'HelpButton'
     HelpButton.Caption = '&Help'
+    HelpButton.OnClick = HelpButtonClick
     CloseButton.Name = 'CloseButton'
     CloseButton.Caption = '&Close'
     CloseButton.Enabled = False
diff --git a/ide/codetemplatesdlg.pas b/ide/codetemplatesdlg.pas
index 1572aa1a65..95a5f5a32c 100644
--- a/ide/codetemplatesdlg.pas
+++ b/ide/codetemplatesdlg.pas
@@ -939,8 +939,9 @@ begin
   DeleteButton.Caption:=dlgEdDelete;
   TemplatesGroupBox.Caption:=lisCTDTemplates;
 
-  ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
-  ButtonPanel.OKButton.OnClick := @OKButtonClick;
+  ButtonPanel.OKButton.Caption:=lisOk;
+  ButtonPanel.HelpButton.Caption:=lisMenuHelp;
+  ButtonPanel.CancelButton.Caption:=dlgCancel;
 
   FilenameGroupBox.Caption:=lisDebugOptionsFrmModule;
   UseMacrosCheckBox.Caption:=lisEnableMacros;