anchor.diff:    st.BorderTypeRight:= TecBorderLineType(ini.ReadInteger(section, skey+'_BorderTypeRight', 0));
     st.BorderTypeTop:= TecBorderLineType(ini.ReadInteger(section, skey+'_BorderTypeTop', 0));
   
  -  st.ChangeCase:= TecChangeCase(ini.ReadInteger(section, skey+'_ChangeCase', 0));
     st.FormatFlags:= StrToFormatFlags(ini.ReadString(section, skey+'_FormatFlags', ''));
     st.FormatType:= TecFormatType(ini.ReadInteger(section, skey+'_FormatType', 0));
  -  st.Hidden:= ini.ReadBool(section, skey+'_Hidden', false);
  -  st.MultiLineBorder:= ini.ReadBool(section, skey+'_MultiLineBorder', false);
  -  st.ReadOnly:= ini.ReadBool(section, skey+'_ReadOnly', false);
  -  st.VertAlignment:= TecVertAlignment(ini.ReadInteger(section, skey+'_VertAlignment', 0));
   end;
   
   
  
positive.code: end;
  
  
  procedure DoSaveLexerStyleToFile(st: TecSyntaxFormat; ini: TIniFile; const section, skey: string);
  begin
    with st do
  
negative.code: end;
  
  
  procedure DoLoadLexerStyleFromFile(st: TecSyntaxFormat; cfg: TJSONConfig;
    skey: string);
  begin
    if not SEndsWith(skey, '/') then skey:= skey+'/';
  
    st.DisplayName:= cfg.GetValue(skey+'Name', '');
    st.Font.Name:= cfg.GetValue(skey+'FontName', '');
    st.Font.Size:= cfg.GetValue(skey+'FontSize', 10);
    st.Font.Color:= StringToColor(cfg.GetValue(skey+'FontColor', ''));
    st.Font.Style:= StringToFontStyles(cfg.GetValue(skey+'FontStyles', ''));
    st.BgColor:= StringToColor(cfg.GetValue(skey+'BgColor', ''));
  
    st.BorderColorBottom:= StringToColor(cfg.GetValue(skey+'BoColorB', ''));
    st.BorderColorLeft:= StringToColor(cfg.GetValue(skey+'BoColorL', ''));
    st.BorderColorRight:= StringToColor(cfg.GetValue(skey+'BoColorR', ''));
    st.BorderColorTop:= StringToColor(cfg.GetValue(skey+'BoColorT', ''));
  
    st.BorderTypeBottom:= TecBorderLineType(cfg.GetValue(skey+'BoTypeB', 0));
    st.BorderTypeLeft:= TecBorderLineType(cfg.GetValue(skey+'BoTypeL', 0));
    st.BorderTypeRight:= TecBorderLineType(cfg.GetValue(skey+'BoTypeR', 0));
    st.BorderTypeTop:= TecBorderLineType(cfg.GetValue(skey+'BoTypeT', 0));
  
    st.FormatFlags:= StrToFormatFlags(cfg.GetValue(skey+'FormatFlags', ''));
    st.FormatType:= TecFormatType(cfg.GetValue(skey+'FormatType', 0));
  end;
  
  
  procedure DoLoadLexerStyleFromFile(st: TecSyntaxFormat; ini: TIniFile; const section, skey: string);
  begin
    st.DisplayName:= ini.ReadString(section, skey+'_Name', '');
  