FormulaGallery[forms_List] := TraditionalForm@Grid[Table[forms[[i]], {i, Length[forms]}], Dividers->All,Spacings->{1,2}, Alignment ->{Center,Center}, BaseStyle->{FontFamily->"Verdana"},Background->{None,{{Hue[.6,.15,.9],GrayLevel[.9]}}},FrameStyle->Directive[Thick,White]]

Pane[FormulaGallery[Map[{#,UnitConvert[Quantity[1,"LightYears"],#]}&,{"Feet","SurveyFeet","Meters","Kilometers","Microns","SI","Imperial","Metric"}]] ,550]