gosub formM4yH3m
while #menubutton <> formM4yH3m
{
menu get chk1
set %checkbox1 #menures
menu get chk2
set %checkbox2 #menures
gosub ProcessMenuOptions
}
halt
sub ProcessMenuOptions
if %checkbox1 = #false && %checkbox2 = #true
{
menu setprop status alignment 1
menu setprop chk2 alignment 1
menu setprop status text Right
}
if %checkbox1 = #true && %checkbox2 = #false
{
menu setprop status alignment 0
menu setprop chk1 alignment 0
menu setprop status text Left
}
if %checkbox1 = %checkbox2
{
menu setprop status alignment 2
menu setprop chk1 alignment 2
menu setprop chk2 alignment 2
menu setprop status text Centered
}
return
sub FormM4yH3m
menu form formM4yH3m 100 100 500 250 Example checkboxes
menu setprop formM4yH3m visible #true
menu setdef fontname MS Sans Serif
menu setdef alignment 2 ; 0 = left, 1 = right, 2 = center
menu text status 50 10 text$text
; syntax for check box parameters:
;menu Check {name} {x} {y} {width} {height} {checked} {text}
menu panel Panel1 10 50 400 150
menu check chk1 10 10 300 15 #false Check box 1 (left)
menu check chk2 10 30 300 15 #true Check box 2 (right)
return