anchor.diff:              Result:= 'c:'+IntToStr(NCmd);
           end;
         end;
  +
       categ_OpenedFile:
         begin
           NIndex:= NCmd-cmdFirstFileCommand;
  
positive.code:           else
              Result:= Format('p:%s.%s', [ItemModule, ItemProc]);
        end;
      categ_Lexer:
        begin
          NIndex:= NCmd-cmdFirstLexerCommand;
  
negative.code: var
    F: TEditorFrame;
    NCmd, NIndex: integer;
    Category: TAppCommandCategory;
  begin
    Result:= '';
  
  