Блог

При щелчке правой кнопкой мыши на графике в Mathematica вы получаете контекстное меню (вырезать графику, скопировать графику, сохранить графику как, …), но для графики LocatorPane это меню щелчка правой кнопкой мыши отключено. Как я могу вызвать контекстное меню для графики LocatorPane с помощью EventHandler или команды MouseAction в Mathematica? Какая команда создает это меню?

 LocatorPane[{1, 1}/2, Graphics[{Gray, Disk[]}]]
  

Я нахожу этот код, чтобы открыть окно «Сохранить как» в mathematica.

 FrontEndExecute[FrontEndToken["SelectionSaveSpecial"]]
  

Я хочу, чтобы при щелчке правой кнопкой мыши на графическом элементе LocatorPane открывалось окно «Сохранить как».

Не полный ответ, но контекстные меню Cell s управляются ContextMenu опцией Cell . Вы можете установить контекстное меню по умолчанию для Cell s со стилем "Graphics" для любой ячейки, которую вы пожелаете:

 CellPrint[
 Cell[BoxData[SuperscriptBox["x", "2"]], "Output", 
  ContextMenu -> 
   FEPrivate`FrontEndResource["ContextMenus", "Graphics"]]]
  

Вы сказали:

Я хочу вызвать «сохранить графику как», щелкнув правой кнопкой мыши на графике LocatorPane.

Я еще не нашел способ сделать это, но вы, возможно, не знаете, что можете:

1. выберите LocatorPane объект, щелкнув на пробел справа от него и перетащив влево.

2. используйте menu File > Save Selection As... , чтобы сохранить графику в желаемом формате.

То, что я считаю правильным вариантом, похоже, не работает:

 SetOptions[EvaluationNotebook[], 
  ComponentwiseContextMenu -> {"GraphicsBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "GraphicsBox"], 
    "Graphics3DBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "Graphics3DBox"], 
    "LocatorPaneBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "GraphicsBox"], 
    "CellGroup" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellGroup"], 
    "CellBracket" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellBracket"], 
    "CellRange" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellRange"], 
    "CellInsertionPoint" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellInsertionPoint"]}
  ];
  

В частности, значение для "LocatorPaneBox" -> было изменено на "GraphicsBox" , но это не имеет видимого эффекта.

С другой стороны, изменение значения для "GraphicsBox" -> действительно имеет эффект.

Я подозреваю, что, поскольку LocatorPane используется ввод с помощью мыши, он фиксирует попытку щелчка правой кнопкой мыши и никогда не передает ее механизму контекстного меню. Возможно, отключение мыши в качестве устройства ввода для LocatorPane исправило бы это, но это не кажется практичным.

Вот один из способов реализовать ваше предложение об использовании "SelectionSaveSpecial" :

 Dynamic[EventHandler[
  LocatorPane[{1, 1}/2, Graphics[{Gray, Disk[]}]],
  {"MouseClicked", 2} :> 
   FrontEndExecute[
     SelectionMove[EvaluationNotebook[], All, GeneratedCell];
     SelectionMove[EvaluationNotebook[], All, CellContents]; 
     FrontEndToken["SelectionSaveSpecial"]
   ]
]]