anchor.diff:      DoLoadLexerStylesFromFile_JsonLexerOps(ALexer, fn_ops, UiOps.LexerThemes);
   end;
   
  +procedure TfmMain.DoCodetree_PanelOnEnter(Sender: TObject);
  +begin
  +  with CodeTree.Tree do
  +    if Enabled and CanFocus then
  +      SetFocus;
  +end;
  +
   //----------------------------
   {$I formmain_loadsave.inc}
   {$I formmain_updates_proc.inc}
  
positive.code:   InitToolbar;
  
    PanelCodeTreeAll:= TATPanelSimple.Create(Self);
  
    CodeTree:= TAppTreeContainer.Create(Self);
    CodeTree.Parent:= PanelCodeTreeAll;
  
negative.code:     procedure DoApplyTranslationToGroups(G: TATGroups);
      procedure DoClearSingleFirstTab;
      procedure DoCloseAllTabs;
      procedure DoDialogMenuThemes_ThemeSyntaxSelect(const AStr: string);
      procedure DoDialogMenuThemes_ThemeUiSelect(const AStr: string);
      procedure DoFileDialog_PrepareDir(Dlg: TFileDialog);
  