anchor.diff:      apstTextBold,
       apstTextItalic,
       apstTextBoldItalic,
  -    apstTextCross
  +    apstTextCross,
  +    apstTextCrossBold,
  +    apstTextCrossItalic,
  +    apstTextCrossBoldItalic
       );
   
   const
  
positive.code:   SetStyle(apstTextItalic, 'TextItalic', clBlack, clNone, clNone, [fsItalic], blNone, blNone, blNone, blNone, ftFontAttr);
    SetStyle(apstTextBoldItalic, 'TextBoldItalic', clBlack, clNone, clNone, [fsBold, fsItalic], blNone, blNone, blNone, blNone, ftFontAttr);
    SetStyle(apstTextCross, 'TextCross', clBlack, clNone, clNone, [fsStrikeOut], blNone, blNone, blNone, blNone, ftFontAttr);
  end;
  
  procedure AppThemeSaveToFile(const AFileName: string; const D: TAppTheme; IsThemeUI: boolean);
  
negative.code: begin
    Result:= AppTheme.Styles[id];
  
    if id in [apstTextBold..High(TAppThemeStyleId)] then
    begin
      styleId:= AppTheme.Styles[apstId];
      Result.Font.Color:= styleId.Font.Color;
  