Mathematica: HOWTO Create collapsible control groups in Manipulate GUIs

Webel IT Australia promotes the amazing Mathematica tool and the powerful Wolfram Language and offers professional Mathematica services for computational computing and data analysis. Our Mathematica tips, issue tracking, and wishlist is offered here most constructively to help improve the tool and language and support the Mathematica user community.
DISCLAIMER: Wolfram Research does not officially endorse analysis by Webel IT Australia.
Icon class
icon_class
far fa-sticky-note
icon_class_computed
far fa-sticky-note
Note kind
Keywords
Click on the image to view it full size
Thanks to Vitaliy Kaurov, WOLFRAM Research for this tip:

Manipulate[
 ParametricPlot[{a1 Sin[n1 (x + p1)], a2 Cos[n2 (x + p2)]}, {x, 0, 
   20 Pi}, PlotRange -> 1.1, PerformanceGoal -> "Quality", 
  Axes -> axes, ImageSize -> size],
 OpenerView[{"Horizontal", 
   Column[{Control[{{n1, 1, "Frequency"}, 1, 4}], 
     Control[{{a1, 1, "Amplitude"}, 0, 1}], 
     Control[{{p1, 0, "Phase"}, 0, 2 Pi}]}, Right]}], 
 OpenerView[{"Vertical", 
   Column[{Control[{{n2, 5/4, "Frequency"}, 1, 4}], 
     Control[{{a2, 1, "Amplitude"}, 0, 1}], 
     Control[{{p2, 0, "Phase"}, 0, 2 Pi}]}, Right]}], 
 OpenerView[{"Plot options", 
   Row[{Control[{axes, {True, False}}], 
     Control[{{size, Medium}, {Small, Medium, Large}}]}, 
    Spacer[20]]}], ControlPlacement -> Top]

Relates to
Related notes
Related notes (backlinks)
Related snippets (extracts)
Visit also
Visit also (backlinks)
External links