anchor.diff:    Ed: TATSynEdit;
   begin
     Ed:= (Sender as TMenuItem).Owner as TATSynEdit;
  -  Ed.DoCommand(cCommand_SelectAll, cInvokeMenu);
  +  Ed.DoCommand(cCommand_SelectAll, cInvokeMenuContext);
   end;
   
   procedure TfmMain.PopupBottomWrapClick(Sender: TObject);
  
positive.code:   F:= FrameOfPopup;
    if F=nil then exit;
  
    F.Editor.DoCommand(cmd_CopyFilenameFull, cInvokeMenu);
  end;
  
  procedure TfmMain.mnuTabCopyNameClick(Sender: TObject);
  
negative.code:   Ed: TATSynEdit;
  begin
    Ed:= (Sender as TMenuItem).Owner as TATSynEdit;
    Ed.DoCommand(cCommand_ClipboardCopy, cInvokeMenuContext);
  end;
  
  procedure TfmMain.PopupBottomSelectAllClick(Sender: TObject);
  