fixed indenter bug (I swear I fixed this bug years ago!)

2006-05-11 16:03:18 +00:00
parent b2b001c9e4
commit 567044c381
4 changed files with 4 additions and 2 deletions
--- a/editor/studio/UnitCodeUtils.pas
+++ b/editor/studio/UnitCodeUtils.pas
@ -213,6 +213,8 @@ begin

    if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
      eIndent := eIndent + CountChars(eStr[i], '{');
+    if (i+1 < eStr.Count) and (Trim(RemoveStringsAndComments(eStr[i +1], true, true)) = '{') then
+        eTempIndent := eTempIndent -1;

    frmMain.pbLoading.Position := frmMain.sciEditor.Lines.Count + i -1;
    SetProgressStatus('Indenting Code...');