Here's 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}];
    tables = 
       Partition[MapThread[Function[{name, symbol}, {
          Pane[name, 150], 
          InputField[Dynamic[symbol]]
       }], {names, symbols}], 10];
    MapThread[Set, {symbols, values}];
    Panel[
     Column[{
       Dynamic@
        Panel[Pane[
          Plot[Sin[x], {x, 0, 2 Pi}, 
           Evaluate[MapThread[Rule[#, #2] &, {names, symbols}]]], 
          BaseStyle -> {Background -> White}]],
       SlideView[
        TableForm /@ tables
        ]
       }]
     ]

![animation][1]


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