I have a different take on how to present the options, using `SlideView` rather than drop down, which is pretty nice.

I'm sorry for the fast animation, I had to drop a lot of frames to make its size decent.

    {names, symbols, values} = 
      Transpose[
       Options[Plot] /. (Rule[x_, y_] | RuleDelayed[x_, y_]) :> {x, 
          Unique[x], y}];
    Panel[
     Column[{
       Dynamic@
        Panel[Pane[
          Plot[Sin[x], {x, 0, 2 Pi}, 
           Evaluate[MapThread[Rule[#, #2] &, {names, symbols}]]], 
          BaseStyle -> {Background -> White}]],
       SlideView[
        TableForm /@ Partition[MapThread[
           Function[{name, symbol}, {Pane[name, 150], 
             InputField[Dynamic[symbol]]}], {names, symbols}
           ], 10]
        ]
       }]
     ]
    MapThread[Set[#, #2] &, {symbols, values}];

![animation][1]


  [1]: https://i.sstatic.net/q1Mms.gif