How to program a click panel for chemical elements (like a periodic table)?

simple version

With a single codeline, ColorData["Atoms", "Panel"], can be transformed in a click panel for ElementData[].

{ColorData["Atoms", "Panel"] // ReplaceAll[#, RuleDelayed[ "MouseClicked", $_] :> (RuleDelayed["MouseClicked", atomClicked = Part[RuleDelayed["MouseClicked", $], 2, 2, 2, 1, 1, 1]])] &, Dynamic[atomClicked, Initialization :> (atomClicked = "H")] } 

changing size or removing panel

Now it would be nice to change the panel size.This could be done simply by using

... // Magnify[#, 2] &

but maybe not the best solution.Therefore I added another function, which replaces ImageSize in Graphics.

(*version2 >>> shows how to remove the panel and how to change image size*) Clear@"`*" atomClicked = "H";(*init>>>important*) imageSize[size_] := ReplaceAll[#, Graphics[x_, {y__}] :> Graphics[x, {ImageSize -> size, y}]] &; atomClickedFunction = ReplaceAll[#, RuleDelayed[ "MouseClicked", $_] :> (RuleDelayed["MouseClicked", atomClicked = Part[RuleDelayed["MouseClicked", $], 2, 2, 2, 1, 1, 1]])] &; {ColorData["Atoms", "Panel"] // atomClickedFunction // imageSize@600 // First (*removes Panel*), atomClicked, ElementData[atomClicked, "AlternateStandardNames" (* >>> Latin names, only for Latin abbreviations available in ElementData[]*)], ElementData[atomClicked, "AtomicNumber"], ElementData[atomClicked, "StandardName"], ElementData[atomClicked, "DiscoveryYear"], ElementData[atomClicked, "DiscoveryCountries"]} // Column // Framed // Dynamic 

Transformed in a clickPanel for ElementData[ ] now.

Implementing the code in form of a Module[] with optionPatterns and more ... could be the next step ...

Just an idea ...

I recently needed to do something like this. Here's a simplified version of what I came up with:

DynamicModule[{elem = "Hydrogen"}, Panel[Row[{(ColorData["Atoms", "Panel"] /. HoldPattern["MouseClicked" :> rhs_] :> ("MouseClicked" :> (elem = CanonicalName[ElementData[Cases[Unevaluated[rhs], _Rule, ∞][[1, 1]]]]))) /. g_Graphics :> Append[g, ImageSize -> Large] /. Panel[stuff_, __] :> stuff, Spacer[20], Dynamic[Grid[Transpose[{Style[#, Bold] & /@ {"name:", "symbol:", "atomic number:", "atomic weight:", "phase:", "electron configuration:"}, Table[ElementData[elem, prop], {prop, {"Name", "Symbol", "AtomicNumber", "AtomicWeight", "Phase", "ElectronConfigurationString"}}] /. {e_EntityClass :> ToLowerCase[CanonicalName[e]], m_Missing :> ToLowerCase[First[m]], q_Quantity :> QuantityMagnitude[q]}}], Alignment -> Left], TrackedSymbols :> {elem}]}]]]