anchor.diff:  end;
   
   
  +procedure DoSaveLexerStyleToFile(st: TecSyntaxFormat; cfg: TJSONConfig;
  +  skey: string);
  +begin
  +  if not SEndsWith(skey, '/') then skey:= skey+'/';
  +
  +  cfg.SetValue(skey+'Name', st.DisplayName);
  +  cfg.SetValue(skey+'FontName', st.Font.Name);
  +  cfg.SetValue(skey+'FontSize', st.Font.Size);
  +  cfg.SetValue(skey+'FontColor', ColorToString(st.Font.Color));
  +  cfg.SetValue(skey+'FontStyles', FontStylesToString(st.Font.Style));
  +  cfg.SetValue(skey+'BgColor', ColorToString(st.BgColor));
  +
  +  cfg.SetValue(skey+'BoColorB', ColorToString(st.BorderColorBottom));
  +  cfg.SetValue(skey+'BoColorL', ColorToString(st.BorderColorLeft));
  +  cfg.SetValue(skey+'BoColorR', ColorToString(st.BorderColorRight));
  +  cfg.SetValue(skey+'BoColorT', ColorToString(st.BorderColorTop));
  +
  +  cfg.SetValue(skey+'BoTypeB', Integer(st.BorderTypeBottom));
  +  cfg.SetValue(skey+'BoTypeL', Integer(st.BorderTypeLeft));
  +  cfg.SetValue(skey+'BoTypeR', Integer(st.BorderTypeRight));
  +  cfg.SetValue(skey+'BoTypeT', Integer(st.BorderTypeTop));
  +
  +  cfg.SetValue(skey+'FormatFlags', FormatFlagsToStr(st.FormatFlags));
  +  cfg.SetValue(skey+'FormatType', Integer(st.FormatType));
  +end;
  +
   procedure DoSaveLexerStyleToFile(st: TecSyntaxFormat; ini: TIniFile; const section, skey: string);
   begin
     with st do
  
positive.code:     ini.WriteInteger(section, skey+'_BorderTypeRight', Integer(BorderTypeRight));
      ini.WriteInteger(section, skey+'_BorderTypeTop', Integer(BorderTypeTop));
  
      ini.WriteInteger(section, skey+'_ChangeCase', Integer(ChangeCase));
      ini.WriteString(section, skey+'_FormatFlags', FormatFlagsToStr(FormatFlags));
      ini.WriteInteger(section, skey+'_FormatType', Integer(FormatType));
      ini.WriteBool(section, skey+'_Hidden', Hidden);
      ini.WriteBool(section, skey+'_MultiLineBorder', MultiLineBorder);
      ini.WriteBool(section, skey+'_ReadOnly', ReadOnly);
      ini.WriteInteger(section, skey+'_VertAlignment', Integer(VertAlignment));
    end;
  end;
  
  
negative.code: 
  uses
    SysUtils, Classes, Graphics, IniFiles,
    jsonConf,
    ecSyntAnal,
    ATStringProc;
  
  procedure DoSaveLexerStyleToFile(st: TecSyntaxFormat; cfg: TJSONConfig; skey: string);
  procedure DoSaveLexerStyleToFile(st: TecSyntaxFormat; ini: TIniFile; const section, skey: string);
  procedure DoSaveLexerStylesToFile(an: TecSyntAnalyzer; const fn: string);
  
  procedure DoLoadLexerStyleFromFile(st: TecSyntaxFormat; cfg: TJSONConfig; skey: string);
  procedure DoLoadLexerStyleFromFile(st: TecSyntaxFormat; ini: TIniFile; const section, skey: string);
  procedure DoLoadLexerStylesFromFile(an: TecSyntAnalyzer; const fn: string);
  
  