ui_dlg_ctl_goto() doesn't goto

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

Allen:

Believe or not, I've already tried this. At first it appears to work. However; if one clicks on the drop down at the end of the combo-box object, the keylist has not been updated. So even though the radio button shows Company as the key, the combo-box still has Last Name which is the default when the dialog loads.

[Allen Klimeck]

Re: ui_dlg_ctl_goto() doesn't goto

now the goto doesn't work again

Change:
ui_dlg_refresh(dlg,)

To:
ui_dlg_refresh(dlg,.t.)

[johnkoh]

Re: ui_dlg_ctl_goto() doesn't goto

Ron,

I came out this. If you have only two fields then I think, just simple "{on_key=enter}" + event handler is best way to do. I still like the radio button for layout.

dim current_control as C = ""  
dim target_control as C = ""

vfind = "k=customer,{keylist_build(\"H=.05,1:25[Last Name]\",''+Lastname,left(''+Lastname,40))}{.t. .and. unique_key_value()}"

DIM vcFW as C = vFind

dim vR as C
vR=ui_dlg_box("Test",<<%dlg%
{startup=Init}{on_key=enter} {comment=added this event}
{lf};
{region}
Title:|[.12vcChoice^+{Last Name,Company,City}!vTitle_*]; {comment=problem worked with only dropdown}
Find for:|[%@vcFw%.30vf2]
{endregion};
<15OK> <15Cancel>
%dlg%,<<%code%
If a_dlg_button ="init" then
    ' Set focus on drop down object
    ui_dlg_ctl_goto("test","vcChoice")
    ' Force drop down the "sloppy" way by sending an Alt-Down key
	sys_send_keys("{%DOWN}")
	a_dlg_button =""
end if

If a_dlg_button="enter" then
	ui_dlg_navigate("test","next")
    ' Force drop down the "sloppy" way by sending an Alt-Down key
	sys_send_keys("{%DOWN}")	
end if

if left(alltrim(a_dlg_button),7) = "vTitle_"
	if vcChoice<>""
		'ui_dlg_ctl_goto("Test","vc_title")
		'current_control = alltrim(ui_dlg_ctl_current("test")) 
		'test the location and value as help
		'msgbox("wher",current_control)
		'If current_control = "[.12vcChoice^+{Mr,Mrs,Mr and Mrs,Ms}!vTitle_changed]" then
		'	msgbox("where am I?","from "+current_control)
		'end if
		
		if a_dlg_button ="vTitle_change" then 
			'change the filter list byt option
			vcFindWhat = ""
			select
				case vcChoice = "Last Name"
					vcFW = vFind
				case vcChoice = "Company"
					vcFW = stritran_multi(vFind,"Lastname","Company")
					vcFW = stritran(vcFW,"Last Name","Company")
				case vcChoice = "City"
					vcFW = stritran_multi(vFind,"Lastname","bill_city")
					vcFW = stritran(vcFW,"Last Name","City")
			end select
		end if
		
'		If a_dlg_button ="vTitle_killfocus" then
'			select		
'				case current_control = "[.12vcChoice^+{Last Name,Company,City}!vTitle_changed]" 
'					target_control = "[%@vcFw%.30vf2]" 
'					'msgbox("where am I?","from "+current_control+" mov to "+target_control)
'				    ' Force drop down the "sloppy" way by sending an Alt-Down key
'					sys_send_keys("{%DOWN}")
'			end select
'			ui_dlg_ctl_goto("test",target_control)		
'		end if
	end if

	a_dlg_button=""
end if	
	
	
if a_dlg_button= "OK" 
	if vcChoice=""
		ui_modeless_dlg_box("Message",<<%dlg%
		{nocaption}{background=yellow}
		{nocaption}{background=yellow}
		{region}
	  Title is a required field...
		{endregion};
		%dlg%)
		xbasic_wait_for_idle()
		sleep(2)
		ui_modeless_dlg_close("Message")
		ui_dlg_ctl_goto("Test","vcChoice")
		a_dlg_button=""
	else
		msgbox("test return",vf2)
		sleep(2)
		end
	end if
else if a_dlg_button="cancel"
	IF IS_OBJECT("MESSAGE")
		ui_modeless_dlg_close("Message")
	END IF
		end
end if
a_dlg_button=""
%code%)

[Ray in Capetown]

Re: ui_dlg_ctl_goto() doesn't goto

Ray:

I've set the target_control to "[%@vcFW%.38vcFindWhat]" plus all kinds of things and I cannot get the goto to work with the combo-box. I used your code and yes it worked. But "[textbox1]" is not a combo-box.

Ron

That's my point. And you want goto() to find "vcFW", not gonna happen.

[G Gabriel]

Re: ui_dlg_ctl_goto() doesn't goto

Just ran your code in alphasports.
I am not sure what exactly are you looking to do. Here is your code:
Ron.zip
Are you looking for something like this?
ron1.zip

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

Everyone, thank you for your help. Maybe this short video will better explain what I'm trying to do.

http://screencast.com/t/C7tsFTPe

The example I'm using is only to demonstrate what I'm trying to do. The live code is more complex than
my demo.

[G Gabriel]

Re: ui_dlg_ctl_goto() doesn't goto

OK. Now I see what you want and yes you were correct it is a timing issue. I simplified (did not change) your script and it works as you wish:

DIM SHARED vcChoiceF as C = "Lastname"
DIM SHARED vFind as C
DIM SHARED vcFindWhat as C = ""
DIM SHARED varC_result as C

dlg_title="Find What"
ok_button_label = "&OK"
cancel_button_label = "&Cancel"

vfind = "k=customer,{keylist_build(\"H=.05,1:25[Last Name]\",''+Lastname,left(''+Lastname,40))}{.t. .and. unique_key_value()}"
varC_result = ui_dlg_box(dlg_title,<<%dlg%
{units=f}{font=calibri,11}{xmargin=2,2}{ysize=.3};;

{region}
(vcChoiceF:Last Name!x_*)
 (vcChoiceF:Company!x_*)
 (vcChoiceF:City!x_*);;
{endregion};

{region}
Find:|{initial_focus} [%@vfind%.38vcFindWhat];
{endregion};;

{region}
{justify=center,center}
<8=ok_button_label!OK?vcFindWhat<\>""> <*8=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button="cancel"
end
	end if
if a_dlg_button="ok"
	msgbox(vcFindWhat)
	end if
		
		select
		case vcChoiceF = "Company"
			vfind = stritran_multi(vFind,"Lastname","Company")
			vfind = stritran(vfind,"Last Name","Company")
		case vcChoiceF = "City"
			vfind = stritran_multi(vFind,"Lastname","bill_city")
			vfind = stritran(vfind,"Last Name","City")
	end select	
		ui_dlg_ctl_goto(dlg_title,"vcFindWhat")
	if a_dlg_button="x_change"	
		vcFindWhat = ""
		xbasic_wait_for_idle()
		ui_dlg_ctl_goto(dlg_title,"vcFindWhat")
	end if
	a_dlg_button = ""
%code%)

[johnkoh]

Re: ui_dlg_ctl_goto() doesn't goto

Hi G Gabriel,

I tested your code and found not properly work. After changed the Radio button, still show the previous value on the dropdown.


Do you know how to manipulate the Radio-button event (* see red ink)?

if a_dlg_button = "vcChoice_change" then
	a_dlg_button = ""
	vcFindWhat = ""

	select
		case vcChoiceF = "Last Name"
			vcFW = vFind
		case vcChoiceF = "Company"
			vcFW = stritran_multi(vFind,"Lastname","Company")
			vcFW = stritran(vcFW,"Last Name","Company")
		case vcChoiceF = "City"
			vcFW = stritran_multi(vFind,"Lastname","bill_city")
			vcFW = stritran(vcFW,"Last Name","City")
	end select
	
	'What I'm looking for is after the radio button choice is changed, I'd like there to be a flashing cursor in the combo-box control
 	'waiting for the user to start entering letters
 		
	[B]current_control = alltrim(ui_dlg_ctl_current("test")) 'test the location and value as help
	
	msgbox("where am I ",current_control)	[COLOR="#FF0000"]'test result, not accurate[/COLOR][/B]	[SIZE=3][/SIZE][COLOR="#FF0000"]'<== Problem at here, 
after selected the drop-down box, the cursor still indicated the Drop-down.[/COLOR] 		

'	current_control = "vcChoiceF" 
'	target_control = "[%@vcFW%.38vcFindWhat]" 	
'	ui_dlg_ctl_goto("test",target_control)
	
	'How to show the flashing?
    ' Force drop down the "sloppy" way by sending an Alt-Down key
'	sys_send_keys("{%DOWN}")		
 	
end if

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

Hi G:

I was excited when I first tried your code. But as John says, the drop down is out of sycn with the radio button choice. If I use a msgbox(), the correct vcChoiceF value is displayed. But the wrong keylist comes up in the dropdown. I re-did your code to try to fix this. The code is running solidly, but the drop down always displays whatever the previous radio button choice was.

DIM SHARED vcChoiceF as C = "Last Name"
DIM SHARED vFind as C
DIM SHARED vcFindWhat as C = ""
DIM SHARED varC_result as C

dlg_title="Find What"
ok_button_label = "&OK"
cancel_button_label = "&Cancel"

vfind = "k=customer,{keylist_build(\"H=.05,1:25[Last Name]\",''+Lastname,left(''+Lastname,40))}{.t. .and. unique_key_value()}"
varC_result = ui_dlg_box(dlg_title,<<%dlg%
{units=f}{font=calibri,11}{xmargin=2,2}{ysize=.3};;

{region}
(vcChoiceF:Last Name!x_*)
 (vcChoiceF:Company!x_*)
 (vcChoiceF:City!x_*);;
{endregion};

{region}
Find:|{initial_focus} [%@vfind%.38vcFindWhat];
{endregion};;

{region}
{justify=center,center}
<8=ok_button_label!OK?vcFindWhat<\>""> <*8=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%

if a_dlg_button="cancel"
	end
end if

if a_dlg_button="ok"
	msgbox(vcFindWhat)
end if

if a_dlg_button="x_change"
	vcFindWhat = ""
end if

xbasic_wait_for_idle()

if vcChoiceF = "Last Name" then
	vfind = "k=customer,{keylist_build(\"H=.05,1:25[Last Name]\",''+Lastname,left(''+Lastname,40))}{.t. .and. unique_key_value()}"	
end if

if vcChoiceF = "Company" then
	vfind = "k=customer,{keylist_build(\"H=.05,1:25[Company]\",''+Company,left(''+Company,40))}{.t. .and. unique_key_value()}"
end if

if vcChoiceF = "City" then
	vfind = "k=customer,{keylist_build(\"H=.05,1:25[City]\",''+bill_city,left(''+bill_city,40))}{.t. .and. unique_key_value()}"	
end if

ui_dlg_ctl_goto(dlg_title,"vcFindWhat")

a_dlg_button = ""

%code%)

[G Gabriel]

Re: ui_dlg_ctl_goto() doesn't goto

I am not sure what are you guys talking about?

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

G:

All of your results are from the last name keylist. Abrams, Graham and Smallwood are last names.

[G Gabriel]

Re: ui_dlg_ctl_goto() doesn't goto

Sorry, but I am at loss here. If you start typing A and you get Abram then you click "OK", you have "Abram". How is that from the last name keylist? Isn't that the name you are looking for? What am I missing?
Perhaps what you mean is the previous choice is still showing in the box. OK.

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

The sole purpose of changing the radio button choice is to change the keylist data. With last name selected, the keylist will give you Abrams, Graham, Smallwood. When you select city, typing in the find box will return data from the city keylist. Changing the radio button to Company will change the keylist to return company names. That's what my video shows.

[G Gabriel]

Re: ui_dlg_ctl_goto() doesn't goto

I understand what you are trying to but while it seems simple enough, the problem is there is so much happening when you change the radio button, not just jumping back to vcfindwhat, and hence the timing issues.
When you change the radio button, not only you want to jump back to the vcfindwhat, but you want also to:
1-clear it
2-rebuild the vfind list

I got it working 99% as of now (see if you could spot the glitch). With a little more time, I might get it to work 100%, maybe..

[Ronald Anusiewicz]

Re: ui_dlg_ctl_goto() doesn't goto

The video doesn't allow me to see enough of the code to follow what is happening.
I'm really close myself. See my post and code in #24. This code is working with
the exception that the keylist is the previous radio button selection. The strange thing is that
a msgbox will show the current radio selection.

G. and John: I truly appreciate your efforts. At this point, I'm not really sure if the end result
will be worth all this effort. It would be nice and professional, but the user will have to just
click in the find combo-box before they can start typing.