paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 11:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix the style of spaces. Issue #27441, patch from Anton.

Browse Source 
git-svn-id: trunk@48186 -
This commit is contained in:
juha 2015-03-09 23:06:41 +00:00
parent 9119350010
commit dc0729c75b
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditor.pp
View File

@ -49,7 +49,7 @@ uses
LazFileCache, LazUTF8,
// codetools
BasicCodeTools, CodeBeautifier, CodeToolManager, CodeCache, SourceLog,
LinkScanner, CodeTree,
LinkScanner, CodeTree, SourceChanger,
// synedit
SynEditLines, SynEditStrConst, SynEditTypes, SynEdit, SynRegExpr,
SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds, SynCompletion,
@ -9439,10 +9439,18 @@ end;
function TSourceEditorManager.Beautify(const Src: string): string;
var
NewIndent: Integer;
NewIndent, NewTabWidth: Integer;
begin
Result:=CodeToolBoss.Beautifier.BeautifyStatement(Src,2,[bcfDoNotIndentFirstLine]);
if (eoTabsToSpaces in EditorOpts.SynEditOptions)
or (EditorOpts.BlockTabIndent=0) then
NewTabWidth:=0
else
NewTabWidth:=EditorOpts.TabWidth;
NewIndent:=EditorOpts.BlockTabIndent*EditorOpts.TabWidth+EditorOpts.BlockIndent;
Result := CodeToolBoss.Beautifier.BeautifyStatement(Src, NewIndent);
Result:=BasicCodeTools.ReIndent(Result,2,0,NewIndent,NewTabWidth);
end;
procedure TSourceEditorManager.FindClicked(Sender: TObject);