Scripting "mouse hover-over" functionality

DMR

Hi,

I'm trying to script a graph box which possesses the same "mouse hover-over" functionality that the Graph Builder provides for displaying labels (including images, if a column of images has been included in the data table from which the graph is being derived).

I think (though I could be wrong) this can be done by including a "marker seg(:x column, :y column, row states(dt, <something>))" as one of the properties of the graph box (where dt is the data table), but I can't get the correct syntax.  Could somebody show me how to do this, please?

Many thanks

ian_jmp

Try this, David:

Names DefaultTo Here(1);

dt =

New Table( "EU Country List",

Add Rows( 5 ),

New Column( "Country",

Character,

"Nominal",

Set Values( {"Austria", "Belgium", "Bulgaria", "Croatia", "Cyprus"} )

),

New Column( "Year Joined",

Numeric,

"Continuous",

Format( "Date Abbrev", 35 ),

Input Format( "ddMonyyyy" ),

Set Values( [2871763200, 1704153600, 3250454400, 3455481600, 3166214400] )

),

New Column( "Population",

Numeric,

"Continuous",

Format( "Best", 10 ),

Set Values( [8205533, 10584534, 7262675, 4280000, 792604] )

),

New Column( "Language",

Character,

"Nominal",

Set Values( {"German", "French/Flemish", "Bulgarian", "Croatian", "Greek"} )

),

New Column( "Flag_picture",

Expression,

Set Values(

{New Image(

Char To Blob(

"1iVBORw0KGgoAAAANSUhEUgAAADAAAAAhCAIAAAAQ6r/uAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAASdJREFUWAntmK0SgzAMx7PdROuGw07O8gjIPc8eoUheZ4+xOSaRyMoil7SQ6zGGmEkEFelXrv3dv7kSenDOgaZyQpib9/DuAUZhMGMeVUVASHN+vgACgI1MqbGwOIOzi8Ff/uj87Ykjm4vYAiYg0iZ5J5uWW9hF9z//7UVwFo5kNBUGSuLLozEQH5YwEwOpU0hYGN6eFVJ3ZIwo1wh0M9PFaC5XC0YOZN7ZEAMBFe5enst5WLRuGo4hUY5s8x0oE2O1uSu0Kks2uCuUibHaVKdQTGEHD6OCmzoqRkC+bUPXiecfwVqoawIah8H0vYLPPQKpyqkthQ0HtfiJxQjKgKa+eMUKKQihKAYDqTsydQqJB88EEG9qTGbxR1+8cE6NjyD47CDOkwA+vE9LawdBhiMAAAAASUVORK5CYII=",

"base64compressed"

),

"png"

), New Image(

Char To Blob(

"1iVBORw0KGgoAAAANSUhEUgAAACYAAAAhCAIAAAA6Wk5BAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAAO1JREFUSA3tVzEOgzAMNFUHewtb38ETunYrY7/DW/qEPqFsHVkZO8JGxprABjWmikglkilKDl/usKJcUhQFbDuOTFfXdVVVMu8tp/wqQ6C5o32KGMRHlvWUzFeWpYiFyxlPqZEx+IbmRQCdg00nAJTCQCkXGnY7awHaJSSfaeBj4HQyfn1YquJ/X0tJiL7ItZTOWD+kWsoAKv0IdFW0KvdhbACVAf5lgI4NYOw+VMb2WemA9sKL7RONnXHgj9tn5rS/LmlVxmt9pcNaY1eWleB9DCIiY0zbSpGDkPPGwoPdAkcfLvcd5p78yfb58gP/KUNijMsk3gAAAABJRU5ErkJggg==",

"base64compressed"

),

"png"

), New Image(

Char To Blob(

"1iVBORw0KGgoAAAANSUhEUgAAADAAAAAhCAIAAAAQ6r/uAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAAR9JREFUWAntmDEOwjAMRQNicLZkZOQKvQpbGblKR9Yeg5WxV2Ds2JGxbM2ITYorNYQOSI2HRFVk2Un89J26UjdVVSlJY4cwZVlaayVQ1XVNQEhjjJEAhAxbIRyMkYFYioiRFYoIw+6sEEsRMcQpRI2xfXTgIEK8tpuALvfrve/WzhzkA9AndSAgN7ghCCdwvCnE3aEMtHQVskJZoSUF4nHfeqgPGafs02E/ii9eIwJAXwsCOjedalv9ARoUoD2bcVno9FtmK2NOXPbjEAwpgOZYENDeOeh7co3DixfOGP7H6ffGDhlz02ufuFQjCZaAJOQ+pNmf1mCgtBhTdgbiAk+xJBYDiSuZOIWS1OdLUupD2JGUFvD3gzv1rSgUPjLGC51fWhI18lFnAAAAAElFTkSuQmCC",

"base64compressed"

),

"png"

), New Image(

Char To Blob(

"1iVBORw0KGgoAAAANSUhEUgAAAEEAAAAhCAIAAAAJYVFIAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAABmdJREFUWAnNWNuLnVcVX/v63c45c85MZibDtDZJU6202mnQ2JqYUq0iLQUFa0RTLyAlaA3aIvogaIglecmD0mJ9qqJYSl/yoEgNbfAypgbikF4SGh2bTMh0bjlnzuW77dtyj/kX9oMf++l8h9/61v6t9VsX4iDMUxGScHRGOlR1CmkBCKBlKlRZ0JlYLnMFNWHUMpWorCKI/n2Yh4aBAaAxczozqPJUZCW5QcFmgKpAQBEvO7vlErEUmyoxoFGEsutxgvmgjUHIuYAxZRTiNt4QJRAGrAWkAKHblQOZGiw50W0RhaJ/6yqC+SA1YdF0pUEZFCnkSgFNuBXFAHTMiYwSCbpAYkwFZb82/488oEBTr/J0mgGUklS0Y1il4pjsns0clqqnRUI5GAoJT8YkD+gDCUUqiUW30rTF28qsTT2yRzx0Ye61+f2PHyQffyG9OveXFz716t4/T/xi978WuhTGSkFBh3Ij2H0Ulb70xNFP3v/kzury89/+yn/cfPWeev1em2C+0P350bNf3EWufuLfR+567oFi9cXjb+OB3/0olA/BeEDgu17SX3hj8uS2s1/645nXF0Qh1NrR3TuvXyo7+w/nX9XX+gtLPz7z6IH4+vnG/R+5+vDtoXzwOR3mUGke+ufLL7bPZknjjpnVi+vfnF/+GcD23+95ckXMLp+zU3Zy7srCD4/v/V6zOHL+dCi7HodgIGVyLoE9t85+509Txl0sNvedWpqbrHfdM0o36n5Drr7VOJOnyw+//25SHb527vOv/Breng/FA68xTEogreOLl79bLk6deenRv/91241LRQXpqTbSTe3VNINncoZrH/7DzH3nPr3/wTfnExLGrr8IgtYGuQ+krgSefusYDN+pp9rRyZ8ayMxTT8TXS9h5Lxz7QSFW8MgzYthnsy32k2eBhlJEALQuzHE9NFh9/bFNEDjeVnWOda7uuAfF7NqHPtBFi4Wv3jOOgH7sG4jDMEb/9/HctzBBeKCQGoaRq6MsBr4DZZqDjlrCubX2+zpCjTzlRtQkTbWQXDesCMiDQwxxPAZqzP/xmrPo+goJKQHUlXcr//uFSyOIkUlUG/4/eP6CMjqI0ZsggVTJJ1YFyHWqR5b6ZmnRcyuEb/VkpPKR28giUfu86xnkRhc3OAuW0N4QBxIklABivQnQ7jb5OzcaA4TbOkWmmkuFz7ikP9TbO5HdLDaupOuUjfqAOZAskGEA5zDIsWWJ2HeHvrYRAY43fQIbH14fnNFAhw/c50PIuQInd/RIggcPVaiCGL0JwkmgboPIGAwvdD5hYZNtb/vmuu4CtFj6Xra8Ufp2FbgydRNLXfUjJwJqa7i41OAiJw89Xj91pK1LOLAXKgUnfmluSfXSYrpvP6wP4NTLukXj7iKoCmIZLJa8qAc5pRd8h/rddS88ZnlFARtyyJfecD7Ezv2tkH4WHS/KVVQjXFwpcRDE6E0QblmYkSo2Xh5G0OlxjCBzoyQeM1yLaeIn53hHomQJXR5zcFlviiaQhLK7pUtj4tkgnKpI6lInGT3xsZXDb/5mrFgB1dC33a4G17LZVOGGAEIm5p6/6+D3F7axkc+dUILoO5zJJIgPmeXxWN4to+Nvbb/zMyf3gcz41bQlKu/L+LQcNfMMXvny08d+NeBSsx2prIOtNjgN1PNpqjShM6ocJBOfe7U/t/Pk6ROfze++cwqHG7d+FE5ffvDp3y5vjGdyupXBer3e8rUw0EOmp54LAuVs28ZlB4qeqw2mVEmdchj2GE7lLm92OFWDpkVJ+EhbaDZdXQex60GCaWvC1vtG9LSMZZaZOmP6atknnTbPV1qM68LRNO066wufpEyWNQ1GQ7j9UkRNapER3wjTNTu6UqxPZK2oV3GWuJo2eUv3jV83RX5RhrwDUSgSPA5rZI8EgRuh36Viqyl9GWZpquJmZWInWyhrDTVSFUUKdN7MokE+VJIGavm3vj1YLLEoRlf09EA4TCqIuDPFdTZGhr0sbk2MrBXAbTVMgHWYdLpSLA5ydx4kWFTKigrLB0bDWOr3fJtAo8Ytw6KTdRJrh6g3qR02OkkPTD9tryfjoRwIycOI1x0U43yCbfoVvfNzgg+tiJhqNIpE3JBNP/fURZ4JhlUvRWdpsJQIFkuxxZJqMNps1S6SOZGDI5QKmjiE0mo/qFDGrJ9AffsRrEZv0flf6kuA0Nq4m/oAAAAASUVORK5CYII=",

"base64compressed"

),

"png"

), New Image(

Char To Blob(

"1iVBORw0KGgoAAAANSUhEUgAAADUAAAAhCAIAAAD2w3SqAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAAkRJREFUWAntmK932zAQx297A2cmMxsKJkxhKTRMWcdMC7s/w7RshYEZHDQ0XJnNFiioMItVcKc48fw2+7m+5DUBEclZP+4+/upO8sunLMvgitsXYkvTNAiCK4Rcr9eej+CiKLpCPkL6fJ1YLdWNr5WCZdz0Y8nWLrqIfrYNP2p8JJ8FWzn9AlaPYrUTPojP2cIWK6vXGCYgVBt+1PDn81ma0z/AlRAuACNEST6d01BXjtSqS3rE+TeMVgBiUrjz8e02zhSH2LiHcIc8Q/ko5OMk2dp3OImPds3pHMAAhH/hyPeRjEwUSqjvbbypBpPP6WdnS8/UQemNTbtMr4Ei6R0d7eTWRxA7/XMUjtSjOW77DDDhTOlCM/VDsWxid339YwuVYfzgzCuE/I8jJh+gxDjxEg40GiU4P036WmY3Lh+dE7PMQgiG6gMcvNE+UilAEJKuGN9jlLKZugv5fKSNL0zlE4uq2O02YrmZerx1UXptJp+2O3InBSWWP+pQpij7z96t1THGArE3/Ggnk4/85voXIn6Vd6I5jf+7GCqrC13FKGYzfgoy+UIUDmBrtLYmiRaLWB4pvSKk7qv5XRr/HaAuUh+0Xw/yLofSOJPrsthtk2iWSH/xv1S5rulGgTgMfZHvO+mR15j6UTBKvie1ajbR1LXPM+tFJTgMgrmIlvF8n6A8sMMqPl/jQAmplCRKAYGFN6qCp8V9Q38S13HxqXwt5dHhmX+59++ZMQbd3fgGpXnXwE2/d8k0OMnXL/2NNTh+6YE/bce4VOQps4UAAAAASUVORK5CYII=",

"base64compressed"

),

"png"

)}

)

),

Set Label Columns( :Country, :Language, :Flag_picture )

);

xVals = Column(dt, "Year Joined") << getValues;

yVals = Column(dt, "Population") << getValues;

NewWindow("My Window",

GraphBox(XScale(Min(xVals), Max(xVals)), YScale(Min(yVals), Max(yVals)),

MarkerSeg(xVals, yVals, RowStates(dt))

)

);