anchor.diff:    end;
   end;
   
  +procedure DoOnLexerLoaded(Sender: TObject; ALexer: TecSyntAnalyzer);
  +var
  +  fn_ops: string;
  +begin
  +  //load *.cuda-lexops
  +  fn_ops:= GetAppLexerOpsFilename(ALexer.LexerName);
  +  if FileExistsUTF8(fn_ops) then
  +    DoLoadLexerStylesFromFile_JsonLexerOps(ALexer, fn_ops, UiOps.LexerThemes);
  +end;
  +
   //----------------------------
   {$I formmain_loadsave.inc}
   {$I formmain_updates_proc.inc}
  
positive.code: var
    NTickInitial: QWord = 0;
  
  
  implementation
  
  
negative.code: 
  procedure TfmMain.DoOps_LoadLexerLib(AOnCreate: boolean);
  var
    ListBackup: TStringlist;
  begin
    ListBackup:= TStringList.Create;
    try
      if not AOnCreate then
        DoOps_LexersDisableInFrames(ListBackup);
  
      //load lite lexers
      AppManagerLite.Clear;
      AppManagerLite.LoadFromDir(AppDir_LexersLite);
  
      //load EControl lexers
      AppManager.OnLexerLoaded:= @DoOnLexerLoaded;
      AppManager.InitLibrary(AppDir_Lexers);
      if AppManager.LexerCount=0 then
        MsgLogConsole(msgCannotFindLexersAll);
  
      if not AOnCreate then
        DoOps_LexersRestoreInFrames(ListBackup);
    finally
      FreeAndNil(ListBackup);
    end;
  end;
  