ui_get_radio2 question

[Mark Williams]

How can i trap the cancel button when using the ui_get_radio2 function?

example:


dim list as C
dim res as C
list = a5.Color_Enum()
list = word(list,1,crlf() ,3)
res = ui_get_radio2("Pick a color","red",list,"Color Selection")
' need to do something like this
if ui_get_radio2_button = "Cancel"
end
end if
ui_msg_box("Color Choice",res)

Thanks

[CraigSchumacker]

I don't think the cancel button is returning the UI_CANCEL_SELECTED one might expect it to.

How about eliminating the default value ("red"), which returns a blank value?

res = ui_get_radio2("Pick a color","",list,"Color Selection")

?res
= ""

Or, add another option to the top of the list?

dim list as C
dim res as C
list = a5.Color_Enum()
list = "None" + crlf() + word(list,1,crlf() ,3)
res = ui_get_radio2("Pick a color","",list,"Color Selection")

?res
= "None"

[martinwcole]

if res=""
end
end if
If they do not pick something the response is "" (nothing)
That is almost universally true in xbasic, a few exceptions of course

[Mike Wilson]

I wrote my own..

dim vLpicks as C=comma_to_crlf("one,two,three,four")
dlg_radio_select("Test",vLpicks,"three")

msgbox(vreply)


FUNCTION dlg_radio_select AS C (dlg_title as C,choice_list as C,default_value as C="")

<<%c%
OUTPUT = vreply
%c%

'dialog field variables -OUTPUT VARIABLE
dim SHARED vRBK as C=default_value 'Radio Button picK
dim shared vreply as C
if default_value<>""
vRBK=default_value
end if

'RADIO BUTTONS
dim dlg_radios as C
dim vn_rbo_lines as N

'rectify to crlf list
if occurs(chr(44),choice_list)>0
choice_list=comma_to_crlf(choice_list)
end if

'RADIO BUTTON LINE COUNT=(line_count(choice_list+)*2)
vn_rbo_lines=line_count(choice_list)*3+1

'CHOICES LENGTH EVAL
dim vn_rbo_choices as n
vn_rbo_choices=max_str_length(choice_list,crlf())
vn_rbo_choices=int(vn_rbo_choices+(vn_rbo_choices^1.07))
'msgbox("Choices",(""+vn_rbo_choices))

'OVERAL DIALOG WIDTH
dim vn_rbo_width as N
vn_rbo_width= vn_rbo_choices

'LOOP THROUGH LIST AND MAKE RADIO BUTTON STRING
dim vFW as C
for each foo in choice_list
vFW=alltrim(foo)
dlg_radios=dlg_radios+"{lf};{sp=7}(vrbk:"+vFW+");{lf=.5};"+crlf()
next
dlg_radios=dlg_radios+"{text="+(""+vn_rbo_width)+"xxx}"+crlf()

'COMPILE RADIO FRAME AND CONTENTS
dlg_radios="{font=arial,8,bi}{frame=1,"+(""+vn_rbo_lines)+":"+alltrim(dlg_title)+"}{font=Arial,10,b}"+crlf()+dlg_radios

dim dlg_insert as C
dlg_insert="{sp="+vn_rbo_width

dlg_insert=dlg_insert+"{lf};"+crlf()+"{endregion}"+crlf()+"{lf};{region}{justify=left}{text=7xww}{region}{background=#252+226+27}{font=arial,10};"+crlf()
dlg_insert=dlg_insert+dlg_radios+crlf()

'dialog structure
dim dlg_title as C
dim dlg_body as C
dim dlg_code as C
dim vR as C
dim z1 as C
dim z3 as C
dim z5 as C
dim z7 as C

'build dialog
z1=<<%dg1%
{on_activate=init}{background=#120,150,170}{xmargin=3,9}{ymargin=1,1}
{region}
{justify=center}
%dg1%

z3=<<%dg3%
{endregion}
{endregion};
{lf};
{justify=center}{initial_focus}<%O={J=C}{I:'a5_checkpoint'}{F=arial,10} OK ;OF={J=C}{C=white}{B=black}{I:'a5_checkpoint'}{F=Arial,10,bi} OK %15,1.5!OK>
{sp=3}<%O={J=C}{I:'$$generic.edit.cancel'}{F=arial,10} Cancel ;OF={J=C}{C=white}{B=black}{I:'$$generic.edit.cancel'}{F=Arial,10,bi} Cancel %15,1.5!Cancel> ;
%dg3%

dlg_body=z1+dlg_insert+z3
dlg_code=<<%code%

'CANCEL
IF a_dlg_button="Cancel"
vproceed="no"
vRBK=""
END IF

'OK
IF a_dlg_button="OK"
if vrbk=""
dlg_warn_box("No Selection was made")
a_dlg_button=""
else
vReply=vRBK
end if
END IF

%code%

vR=ui_dlg_box(dlg_title,dlg_body,dlg_code)
if vR="Cancel"
vReply="CANCEL"
vproceed="no"
end
end if


END FUNCTION

[Tom Cone Jr]

There's an undocumented function that may be of help.

UI_GET_RADIO2P()

dim list as C
dim tes as P
list = a5.color_enum()
list = word(list,1,crlf(),3)
tes = ui_get_radio2p("pick a color","red",list)

'if "Cancel" is selected it will be returned by
' tes.lastbutton

'if "OK" is selected it will be returned by
' tes.lastbutton
' and
' tes.selected will return the choice user picked