JCF2: localized Lines Breaking tab; slightly improved its layout

git-svn-id: trunk@24115 -

components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas

@@ -129,6 +129,17 @@ resourcestring
   lisAlignMaxVarianceInterface = 'Max Variance Interface';
   lisAlignMaxUnaligned = 'Max unaligned';
 
+  //Line Breaking tab
+  lisLBLineBreaking = 'Line Breaking';
+  lisLBMaxLineLength = 'Max line length';
+  lisLBBreakLinesThatAreLongerThanMaxLineLength = '&Break lines that are '
+    +'longer than max line length';
+  lisLBNever = '&Never';
+  lisLBSometimesIfAGoodPlaceToBreakIsFound = '&Sometimes, if a good place to '
+    +'break is found';
+  lisLBUsuallyUnlessThereIsNoAcceptablePlaceToBreak = '&Usually, unless there '
+    +'is no acceptable place to break';
+
 implementation
 
 end.

components/jcf2/Ui/Settings/frClarifyLongLineBreaker.lfm

@@ -12,10 +12,15 @@ inherited fClarifyLongLineBreaker: TfClarifyLongLineBreaker
     ParentColor = False
   end
   object edtMaxLineLength: TSpinEdit[1]
+    AnchorSideLeft.Control = Label3
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Label3
+    AnchorSideTop.Side = asrCenter
     Left = 116
     Height = 21
     Top = 3
     Width = 49
+    BorderSpacing.Left = 6
     MaxValue = 999
     TabOrder = 0
   end

components/jcf2/Ui/Settings/frClarifyLongLineBreaker.pas

@@ -58,7 +58,7 @@ implementation
 {$R *.lfm}
 
 uses 
-  JcfSettings, SetReturns, JcfHelp;
+  JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
 
 
 constructor TfClarifyLongLineBreaker.Create(AOwner: TComponent);
@@ -69,12 +69,17 @@ end;
 
 function TfClarifyLongLineBreaker.GetTitle: String;
 begin
-  Result := 'Line Breaking';
+  Result := lisLBLineBreaking;
 end;
 
 procedure TfClarifyLongLineBreaker.Setup(ADialog: TAbstractOptionsEditorDialog);
 begin
-  //
+  Label3.Caption := lisLBMaxLineLength;
+  rgRebreakLongLines.Caption := lisLBBreakLinesThatAreLongerThanMaxLineLength;
+  rgRebreakLongLines.Items[0] := lisLBNever;
+  rgRebreakLongLines.Items[1] := lisLBSometimesIfAGoodPlaceToBreakIsFound;
+  rgRebreakLongLines.Items[2] :=
+    lisLBUsuallyUnlessThereIsNoAcceptablePlaceToBreak;
 end;
 
 {-------------------------------------------------------------------------------