anchor.diff:  implementation
   
   class procedure TTreeHelperIni.GetHeaders(Ed: TATSynEdit; Data: TATTreeHelperRecords);
  +const
  +  cIconFolder = 0;
  +  cIconArrow = 7;
   var
     DataItem: TATTreeHelperRecord;
     St: TATStrings;
     S: UnicodeString;
  -  iLine: integer;
  +  iLine, iSymbol: integer;
   begin
     Data.Clear;
     St:= Ed.Strings;
  
positive.code:       DataItem.Y2:= iLine;
        DataItem.Level:= 1;
        DataItem.Title:= S;
        DataItem.Icon:= 0;
        Data.Add(DataItem);
      end;
    end;
  end;
  
negative.code:   begin
      S:= St.Lines[iLine];
      if S='' then Continue;
      if S[1]=';' then Continue;
      if S[1]='#' then Continue;
      if (Length(S)>=3) and (S[1]='[') and (S[Length(S)]=']') then
      begin
        DataItem.X1:= 0;
  