dialog test {
title "Dialog"
size -1 -1 150 20
option dbu
list 1, 0 0 140 20
}
on *:dialog:test:init:*: {
mdxinit $dname
mdx SetBorderStyle $dname 1
mdx SetControlMDX $dname 1 ToolBar list flat nodivider arrows > exec\bars.mdx
did -i $dname 1 1 bmpsize 16 16
did -i $dname 1 1 setimage +nh icon small icon.ico
did -a $dname 1 +av 1 Go $chr(9) $+ WHOIS
did -a $dname 1 +a 0 no $chr(9) $+ test
did -a $dname 1 -
did -a $dname 1 +av 0 MDX $chr(9) $+ ROX
}
on *:dialog:test:*:1:{
if ($devent == sclick) {
if ($did(1).sel == 2) { echo -a you it pressed the first button }
if ($did(1).sel == 3) { echo -a you it pressed the second button }
if ($did(1).sel == 5) { echo -a you it pressed the third button }
}
if ($devent == dclick) {
if ($did(1).sel == 2) { echo -a you it pressed the first arrows button }
if ($did(1).sel == 5) { echo -a you it pressed the third arrows button }
}
}
I do not know if it was this there that you it wanted, if will not be places of new its doubt
