From 98fafddd9dabd4d3a32f07182fb10908d2d5e77c Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Thu, 1 Apr 2010 21:10:39 +0000
Subject: [PATCH] JCF2: localized Blocks tab

git-svn-id: trunk@24359 -
---
 .../jcf2/IdePlugin/lazarus/jcfuiconsts.pas    |  9 ++++++
 .../jcf2/Ui/Settings/frClarifyBlocks.pas      | 29 +++++++++++++++++--
 2 files changed, 36 insertions(+), 2 deletions(-)

diff --git a/components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas b/components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas
index df8d075ea1..366ab944be 100644
--- a/components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas
+++ b/components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas
@@ -171,6 +171,15 @@ resourcestring
   lisCaseBlocksLeaveAsIs = 'Leave as is';
   lisCaseBlocksNever = 'Never';
 
+  //Blocks tab
+  lisBlocksBlocks = 'Blocks';
+  lisBlocksUseANewLineInBlocksAt = 'Use a new line in blocks at:';
+  lisBlocksBlockWithBegin = 'Block with begin';
+  lisBlocksBlockWithoutBegin = 'Block without begin';
+  lisBlocksBetweenElseAndIf = 'Between else and if';
+  lisBlocksBetweenEndAndElse = 'Between end and else';
+  lisBlocksElseBegin = 'Else begin';
+
 implementation
 
 end.
diff --git a/components/jcf2/Ui/Settings/frClarifyBlocks.pas b/components/jcf2/Ui/Settings/frClarifyBlocks.pas
index dc10349352..bef177ac8a 100644
--- a/components/jcf2/Ui/Settings/frClarifyBlocks.pas
+++ b/components/jcf2/Ui/Settings/frClarifyBlocks.pas
@@ -60,7 +60,7 @@ implementation
 {$R *.lfm}
 
 uses
-  JcfSettings, SettingsTypes, JcfHelp;
+  JcfSettings, SettingsTypes, JcfHelp, jcfuiconsts;
 
 constructor TfClarifyBlocks.Create(AOwner: TComponent);
 begin
@@ -70,12 +70,37 @@ end;
 
 function TfClarifyBlocks.GetTitle: String;
 begin
-  Result := 'Blocks';
+  Result := lisBlocksBlocks;
 end;
 
 procedure TfClarifyBlocks.Setup(ADialog: TAbstractOptionsEditorDialog);
 begin
   inherited Setup(ADialog);
+  Label1.Caption := lisBlocksUseANewLineInBlocksAt;
+  rgBlockBegin.Caption := lisBlocksBlockWithBegin;
+  rgBlockBegin.Items[0] := lisCaseBlocksAlways;
+  rgBlockBegin.Items[1] := lisCaseBlocksLeaveAsIs;
+  rgBlockBegin.Items[2] := lisCaseBlocksNever;
+
+  rgBlock.Caption := lisBlocksBlockWithoutBegin;
+  rgBlock.Items[0] := lisCaseBlocksAlways;
+  rgBlock.Items[1] := lisCaseBlocksLeaveAsIs;
+  rgBlock.Items[2] := lisCaseBlocksNever;
+
+  rgElseIf.Caption := lisBlocksBetweenElseAndIf;
+  rgElseIf.Items[0] := lisCaseBlocksAlways;
+  rgElseIf.Items[1] := lisCaseBlocksLeaveAsIs;
+  rgElseIf.Items[2] := lisCaseBlocksNever;
+
+  rgEndElse.Caption := lisBlocksBetweenEndAndElse;
+  rgEndElse.Items[0] := lisCaseBlocksAlways;
+  rgEndElse.Items[1] := lisCaseBlocksLeaveAsIs;
+  rgEndElse.Items[2] := lisCaseBlocksNever;
+
+  rgElseBegin.Caption := lisBlocksElseBegin;
+  rgElseBegin.Items[0] := lisCaseBlocksAlways;
+  rgElseBegin.Items[1] := lisCaseBlocksLeaveAsIs;
+  rgElseBegin.Items[2] := lisCaseBlocksNever;
 end;
 
 {-------------------------------------------------------------------------------