Re: front end equation formatting
- To: mathgroup at smc.vnet.net
- Subject: [mg112508] Re: front end equation formatting
- From: John Fultz <jfultz at wolfram.com>
- Date: Sat, 18 Sep 2010 07:23:56 -0400 (EDT)
You want this... Cell[TextData[{ "then, ", Cell[BoxData[ FormBox[ RowBox[{"h", "=", FractionBox["j", "k"]}], TraditionalForm]]] }], "Text", ScriptSizeMultipliers->{1.}] ScriptSizeMultipliers is fully documented, so you can read more about how it works. Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. On Fri, 17 Sep 2010 06:42:45 -0400 (EDT), Scot T. Martin wrote: > First Cell[] below shows an equation of equally sized character. Second > Cell[] makes a smaller font of the terms in the FractionBox[]. Does anyone > know how to set the formatting so that the font does not get smaller? > Thank! > > Cell[BoxData[ > FormBox[ > RowBox[{"h", "=", > FractionBox["j", "k"]}], TraditionalForm]], "Input", > CellChangeTimes->{{3.4936705626324425`*^9, 3.4936705700112553`*^9}}] > > > Cell[TextData[{ > "then, ", > Cell[BoxData[ > FormBox[ > RowBox[{"h", "=", > FractionBox["j", "k"]}], > TraditionalForm]],FormatType->"TraditionalForm"] > }], "Text", > CellChangeTimes->{{3.4936705831308784`*^9, 3.4936705899480906`*^9}}]