IDE: environment: added turkish

git-svn-id: trunk@15469 -

components/synedit/synbeautifierpas.pas

@@ -32,9 +32,29 @@ implementation
 
 function TSynBeautifierPas.GetIndentForLineBreak(Editor: TCustomSynEdit;
   InsertPos: TPoint; var NextText: string): integer;
+var
+  LastTextY: LongInt;
+  Line: string;
+  Lines: TStrings;
 begin
-  Result:=inherited GetIndentForLineBreak(Editor, InsertPos, NextText);
+  Result:=0;
-  
+  //DebugLn(['TSynCustomBeautifier.GetIndentForLineBreak ',dbgs(InsertPos)]);
+  NextText:=Trim(NextText);
+  if InsertPos.Y<1 then exit;
+  LastTextY:=InsertPos.Y;
+  Lines:=Editor.Lines;
+  if LastTextY>Lines.Count then
+    LastTextY:=Lines.Count;
+  while (LastTextY>0) do begin
+    Line:=Lines[LastTextY-1];
+    if LastTextY=InsertPos.Y then
+      Line:=copy(Line,1,InsertPos.X-1);
+    if Line<>'' then begin
+      Result:=LeftSpaces(Editor,Line,false);
+      exit;
+    end;
+    dec(LastTextY);
+  end;
 end;
 
 end.

components/synedit/synedit.pp

@@ -11410,7 +11410,6 @@ var
   Lines: TStrings;
 begin
   Result:=0;
-  DebugLn(['TSynCustomBeautifier.GetIndentForLineBreak ',dbgs(InsertPos)]);
   if InsertPos.Y<1 then exit;
   LastTextY:=InsertPos.Y;
   Lines:=Editor.Lines;

ide/idetranslations.pas

@@ -131,6 +131,8 @@ begin
     Result:=rsLanguageLithuanian
   else if CompareText(ID,'sk')=0 then
     Result:=rsLanguageSlovak
+  else if CompareText(ID,'tr')=0 then
+    Result:=rsLanguageTurkish
   else
     Result:=ID;
 end;

ide/lazarusidestrconsts.pas

@@ -2065,6 +2065,7 @@ resourcestring
   rsLanguageAfrikaans   = 'Afrikaans';
   rsLanguageLithuanian  = 'Lithuanian';
   rsLanguageSlovak      = 'Slovak';
+  rsLanguageTurkish     = 'Turkish';
 
   // Unit dependencies
   dlgUnitDepCaption     = 'Unit dependencies';