如何在Mathematica Notebook Styles中填写CellFrameLabels？

Question

我一直在按照这些其他答案中的伟大建议来获取编号的单元格标签

扩展单元格定义到 CellFrameLabels 定义

如何在 Mathematica 笔记本中自动编号单元格标签？

我几乎那里。我想将部分编号添加到创意/柔和颜色样式表中的部分样式。我创建了一个新笔记本（这是我的公共保管箱上的副本）

http://dl. dropbox.com/u/1997638/CellFrameMargins.nb

转到“格式”菜单，选择“样式表 \ Creative \ PastelColor”，然后 “格式”“编辑样式表”，“选择样式：部分”，然后单击样式表编辑对话框顶部的 Creative\Pastelcolor.nb。

这将打开另一个样式表编辑器，然后我转到“标题和部分单元格的样式”下的第四项，然后转到“部分”中的第二项。将鼠标十字准线放在那里并单击，然后选择“单元格”菜单，“显示表达式”项，它会显示以下表达式：

Cell[StyleData["Section"],
 CellFrame->{{0, 0}, {1, 3}},
 CellFrameColor->RGBColor[1., 0.819608, 0.658824],
 FontFamily->"Helvetica",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0.882353, 0.419608, 0.0784314],
 Background->RGBColor[1., 0.886275, 0.741176]]

太棒了！揭示了所有细节，至少我是这么认为的。特别是，CellFrame 项为我提供了将单元格框架标签与部分样式对齐所需的 {{0, 0}, {1, 3}} 信息。好的，回到笔记本的 steylsheet 编辑器对话框，按照上述答案，我输入

Cell[
 StyleData["Section"],
 CellFrameLabelMargins -> 0,
  CellFrameLabels-> { {
   Cell[
    TextData[{ "§", CounterBox["Section"], ": " }], 
    "SectionLabel",
    CellFrame -> {{0, 0}, {1, 3}},
    CellFrameMargins -> 4
   ] (* left label *),
   Inherited (* right label *) }, 
  {Inherited (* bottom label *), 
   Inherited (* top label *) } } ]

The CellFrameMargins ->;我通过反复试验发现的 4 规则需要将单元格框架的顶部和底部与右侧部分样式的其余部分对齐。我很遗憾地报告说它几乎有效。 CellFrameLabels 的文本和框架之间存在间隙，我想填充这些间隙。就好像 CellFrameLabels 中的字体没有上下拉伸得足够远，即使它们与部分单元格中的字体完全相同。我找不到一种方法来填充标签后面的背景。我尝试了背景 -> RGBColor[...]，我尝试放入显式字体，我尝试设置 CellFrameMargins 和 CellFrameLabelMargins，以多种组合，但无济于事。

我很困惑，希望得到任何建议。

Answer 1

这似乎适用于柔和的风格。其作用是将标签放入框架内。我必须稍微调整一下 FrameBox 的 ImageMargins 和 FrameMargins 才能使所有内容对齐。

Cell[StyleData["Section"],
 CellFrameLabels->{{
  Cell[
   BoxData[
    FrameBox[
     TemplateBox[{"§", CounterBox["Section"], ": "},
      "Row",
       DisplayFunction->(RowBox[{#, " ", #2}]& )
     ],
     ImageMargins->-1,
     Background->RGBColor[1., 0.886275, 0.741176],
     FrameStyle->RGBColor[1., 0.886275, 0.741176],
     FrameMargins->2
    ]
   ], 
   "SectionLabel", CellFrame -> {{0, 0}, {1, 3}}, 
   CellFrameMargins->0
  ], Inherited}, 
  {Inherited, Inherited}},
 CellFrameLabelMargins->0
]

截屏：