Раскраска "горизонтальная линия" в Mathematica

Question

Есть ли в любом случае, чтобы в Mathematica эти строки автоматически были черными?

Answer 1

Стиль этих строк по умолчанию определен в файле ContextMenus.tr, расположенном в подкаталоге SystemFiles/FrontEnd/TextResources из $InstallationDirectory.Если вы ищете «CellInsertionPoint» в этом файле, то вы должны найти что-то вроде

"CellInsertionPoint" -> {
  ....
  Menu["Insert Ho&rizontal Line",
    {
     MenuItem["Thi&n Line", FrontEndExecute[{
       FrontEnd`NotebookWrite[FrontEnd`InputNotebook[], 
        Cell[" ", "Text", 
         ....
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
     MenuItem["&Medium Line", FrontEndExecute[{
         .....    
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
     MenuItem["&Thick Line", FrontEndExecute[{   
         .....
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
  ....
}

Чтобы навсегда изменить цвет горизонтальных линий по умолчанию, вы можете установить CellFrameColor этих трех элементов меню на любой нужный вам цвет.(или вы можете создать дополнительные MenuItems, если вы хотите больше выбора).Обратите внимание, что вам нужно перезапустить Mathematica, чтобы изменения вступили в силу.

Если вы не хотите изменять исходный файл, вы также можете сохранить копию файла в соответствующем подкаталоге либо в $BaseDirectory, либо в $UserBaseDirectory и отредактировать его.

Answer 2

У Хайке есть ответ, но в маловероятном случае, если вы не хотите связываться с этими файлами .tr, вы также можете выполнить

NotebookPut[
  NotebookGet[
    SelectedNotebook[]] /. {
      Cell[" ", "Text", x___, CellFrameColor -> RGBColor[___], y___] :> 
      Cell[" ", "Text", x, CellFrameColor -> RGBColor[0, 0, 0], y]}, 
  SelectedNotebook[]];

и повернуть каждый кадр ячейки (строки - просто кадры ячейки) черный.

Answer 3

Хотя он не удовлетворяет критерию «автоматический», вы можете просто вставить стандартную синюю линию и затем изменить ее цвет.Так как линия не может быть выбрана, вам нужно нажать под линией нажатие на клавишу сдвиг вверх.Затем нажмите Ctrl-Shift-E (Показать выражение), чтобы увидеть (для толстой линии)

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}]

Затем RGBColor легко изменяется.