How to add a "Show Animation Control" element directly (without using the Manipulate control setting)?

I can not find how to do this. When using Manipulation, it automatically shows a little “+” at the end of the control, as shown below:

Manipulate[x,
 {{x, 0, "x"}, 0, 1, .1, Appearance -> "Labeled"}
 ]

enter image description here

Now I want to directly configure the control with Dynamic and make it look like the one above: (By the way, thanks to Simon for displaying the correct syntax for this here

Manipulate[x,
 {{xChanged, False}, None},

 Grid[{
   {"x ", 
    Slider[Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}], 
    Spacer[2],
    Dynamic@x
    }
   }, Frame -> None, Spacings -> {0.2, 0.1}, Alignment -> Center]
 ]

enter image description here

Now the only thing missing is the "+". I cannot use the AppearanceElement options in the above. So next time I tried this

Manipulate[x,
 {{xChanged, False}, None},

 Grid[{
   {"x ", 
    Animator[Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}, 
     AnimationRunning -> False], Spacer[2],
    Dynamic@x
    }
   }, Frame -> None, Spacings -> {0.2, 0.1}, Alignment -> Center]

 ]

enter image description here

. "+", " " Manipulate. , .

, . ref/AppearanceElements . ref/Manipulate, " " {"HideControlsButton", "SnapshotButton", "ResetButton", "UpdateButton", , , .

ref/Manipulator "InputField", "StepLeftButton", "PlayPauseButton", "StepRightButton", "FasterSlowerButtons", "DirectionButton", "InlineInputField". " ".

- , "+"?

(, , ref/AppearanceElements)

,

+2
2

, Manipulator?

Manipulate[x, {{xChanged, False}, None}, {x, None}, 
 Grid[{{"x ", 
    Manipulator[
     Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}], 
    Spacer[2], Dynamic@x}}, Frame -> None, Spacings -> {0.2, 0.1}, 
  Alignment -> Center]]

made using the above

+3

:

Manipulate[x,  
   Grid[{{"test: ", Control[{x, 0, 1}], Spacer[9], Dynamic[x]}}, 
  Spacings -> {0.2, 0.1}]]

control

0

All Articles