Return to Answer

added 513 characters in body

Source Link

edited Oct 1, 2014 at 20:03

83.1k
6
72
202

Framed[
 Row[{
   "Interval",
   IntervalSlider[Dynamic[m], {0, 3, 0.1}, Appearance -> "Markers"],
   Dynamic[m],
   " meters"}],
 Background -> [email protected],
 FrameMargins -> 15]

enter image description here

Thanks to alancalvitty's comment: Much nicer is:

Framed[
 Row[{
   "Interval",
   IntervalSlider[
    Dynamic[m], {0, 3, 0.1},
    Appearance -> "Markers"],
   Dynamic[m], " meters"}],
 BaseStyle -> Directive[FontFamily -> "Helvetica", FontSize -> 14],
 RoundingRadius -> 10,
 Background -> GrayLevel @ 0.9,
 FrameMargins -> 15,
 FrameStyle -> GrayLevel @ 0.7]

enter image description here

Framed[
 Row[{
   "Interval",
   IntervalSlider[Dynamic[m], {0, 3, 0.1}, Appearance -> "Markers"],
   Dynamic[m],
   " meters"}],
 Background -> [email protected],
 FrameMargins -> 15]

enter image description here

Framed[
 Row[{
   "Interval",
   IntervalSlider[Dynamic[m], {0, 3, 0.1}, Appearance -> "Markers"],
   Dynamic[m],
   " meters"}],
 Background -> [email protected],
 FrameMargins -> 15]

enter image description here

Thanks to alancalvitty's comment: Much nicer is:

Framed[
 Row[{
   "Interval",
   IntervalSlider[
    Dynamic[m], {0, 3, 0.1},
    Appearance -> "Markers"],
   Dynamic[m], " meters"}],
 BaseStyle -> Directive[FontFamily -> "Helvetica", FontSize -> 14],
 RoundingRadius -> 10,
 Background -> GrayLevel @ 0.9,
 FrameMargins -> 15,
 FrameStyle -> GrayLevel @ 0.7]

enter image description here

Source Link

created Oct 1, 2014 at 8:29

eldo

83.1k
6
72
202

Framed[
 Row[{
   "Interval",
   IntervalSlider[Dynamic[m], {0, 3, 0.1}, Appearance -> "Markers"],
   Dynamic[m],
   " meters"}],
 Background -> [email protected],
 FrameMargins -> 15]

enter image description here