anchor.diff:        DataItem.Y2:= iLine;
         DataItem.Level:= 1;
         DataItem.Title:= S;
  -      DataItem.Icon:= 0;
  +      DataItem.Icon:= cIconFolder;
         Data.Add(DataItem);
  +    end
  +    else
  +    begin
  +      iSymbol:= Pos('=', S);
  +      if iSymbol>0 then
  +      begin
  +        DataItem.X1:= 0;
  +        DataItem.Y1:= iLine;
  +        DataItem.X2:= iSymbol-1;
  +        DataItem.Y2:= iLine;
  +        DataItem.Level:= 2;
  +        DataItem.Title:= Copy(S, 1, iSymbol-1);
  +        DataItem.Icon:= cIconArrow;
  +        Data.Add(DataItem);
  +      end;
       end;
     end;
   end;
  
positive.code: implementation
  
  class procedure TTreeHelperIni.GetHeaders(Ed: TATSynEdit; Data: TATTreeHelperRecords);
  var
    DataItem: TATTreeHelperRecord;
    St: TATStrings;
    S: UnicodeString;
    iLine: integer;
  begin
    Data.Clear;
    St:= Ed.Strings;
  
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;
  