xdialog event resetting dialog checkbox

[Mike Wilson]

Hello,
I need help getting a list selection event in a dialog to change a logical checkbox from T -> F and break the effects of the T value. The attached code makes a two panel dialog (panel 1 "Orders" at left and panel 2 "Found" at right - multi select). When a selection of an Order is made, the dialog event generates the Found list values. Changing the "Select All" checkbox to T fires the event that makes all the values selected in the Found list (required a "blink" code to manifest). What I need is to have is a dialog event other than the checkbox event change the checkbox from T --> F, like when another Order is selected, and none of the value in the Found list be selected. I have worked this out so when the Found list values are selected manually and the checkbox is F, the Found selections clear on selection of a new Order ("blink" code again to manifest), but I can't get the checkbox to change from T to F value. Thanks for any help.

[Mike Wilson]

Re: xdialog event resetting dialog checkbox

I changed the check box into radio buttons with Select All: Yes and No and it works as needed and expected.

[Al Buchholz]

Re: xdialog event resetting dialog checkbox

Thanks for sharing.

[johnkoh]

Re: xdialog event resetting dialog checkbox

Mike,

How about this sample?

vList1=<<%str%
Apple 
Orange 
Pear 
Banana 
%str%    

dim shared vSelect as c =""		'child result

dim vShow as L 
'condition
dim vListType as c =""
vListType="fruit"



dlgbody=<<%dlg%
{startup=init}


{frame=1,1}
{region}
{lf};
parent list:;
 [.30,5vSelect^#vlist1!vParentList_changed];
{lf};
{endregion}|{sp}|


{frame=1,1}
{region}
2nd child - show result;
{embedded=40,10:childdialog};
{endregion};
{lf};

show the child value into name;
[.20vSelect];
{lf};
<Close>{sp}<Hello_2>;

%dlg%

dlgevent=<<%code%
if a_dlg_button = "init" then
	msgbox("test init")
    a_dlg_button = ""
    'show_listbox(vListType)
    show_embedded_result(vSelect)
end if

If a_dlg_button ="vParentList_changed" then
	'msgbox("changed item from child   "+vSelect)

	show_embedded_result(vSelect)
end if

if a_dlg_button = "Hello_2" then
    ui_dlg_event("ChildDialog","Hello",.t.)
    ui_msg_box("","Another message from the parent dialog")
end if


'removed: {watch= a_dlg_button = !vList_changed}
'If a_dlg_button ="vChildBox_changed" then
If a_dlg_button ="vList_changed" then							'not acting
    'ui_dlg_event("ChildDialog","vList_changed",.t.)
    'ui_msg_box("","Another message from the parent dialog")
end if

if a_dlg_button = "close" then
    ui_modeless_dlg_close("ParentDialog")
end if

%code%

ui_modeless_dlg_box("ParentDialog",dlgbody,dlgevent)



function show_embedded_result as v (vSelect as c)	'vars as P)
    'with vars
    
dim name as c =""
'name = vSelect		'return value

	if vSelect ="orange" then
		vShow =.t.
		name = vSelect		'return value
	end if
	    
ui_modeless_dlg_box("ChildDialog",<<%dlg%
{wrap=40}
This is an embedded dialog box that responds to the Hello event sent to it from its parent.;
{lf};
show: (vShow!vShowChanged);
Name: [.20name];;;

{lf};
<Hello> <%B=T;O={J=C,C}{F=Tahoma,9}{I:'$$file.save'} Save%10!vSave>;

%dlg%,<<%code%
if a_dlg_button ="vShowChanged" then
	if vShow =.t. then
		msgbox("selected")
		name = vSelect		'return value
	else
		msgbox("not selected")	
	end if
end if
if a_dlg_button = "Hello" then
    'sleep(2)
    ui_msg_box("child","Hello: " + name)
end if
If a_dlg_button ="vList_changed" then
	'msgbox("changed item from child   "+vSelect)
end if
%code%)
 
    'end with
end function

[Mike Wilson]

Re: xdialog event resetting dialog checkbox

Hi Jon,
On first review it certainly does what I have asked for. I'll have to dissect it further to see just what makes it work. That the action happens within a subfunction maybe. Thank you very much for this.