paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 20:17:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: add 2 tab based indent modes to beautifier. Issue #0024557 / missing

Browse Source 
git-svn-id: trunk@43863 -
This commit is contained in:
martin 2014-01-31 21:50:23 +00:00
parent d4ee8f0e73
commit 461597b957
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synbeautifier.pas
View File

@ -1490,7 +1490,6 @@ begin
else
y := ACaret.LinePos + 1;
GetIndentInfo(y, s, Indent);
if s <> '' then begin;
@ -1632,12 +1631,14 @@ begin
end;
sbitConvertToTabSpace:
begin
IndentCharsFromLinePos := 0;
Result := CreateTabSpaceMix(Indent, False);
exit;
if not ModifyIndent then Indent := OrigIndent;
end;
sbitConvertToTabOnly:
begin
IndentCharsFromLinePos := 0;
Result := CreateTabSpaceMix(Indent, True);
if not ModifyIndent then Indent := OrigIndent;
exit;