xdialog auto advance and size of fields

[Chris.Tanti]

I have three variables on an xdialog, all two characters long.

Is it possible to have an autoadvance feature on the form, so that when the field is filled, it skips to the next field.

Also, is it possible for the enter key to be used to move onto each field if required instead of tab, currently enter closes the form (it is focused on the ok button).

Also! can I increase the visible width of the field rather than the actual width, so its still two characters in size, but larger on the form (as its rather cut off).

[Keith Hubert]

RE: xdialog auto advance and size of fields

Chris

The answer to question 3, 5.10 will limit you to input 5 characters but the field will 10 characters wide.

Sorry I cant help with the other points at this time.

Keith Hubert
London.

[Chris.Tanti]

RE: xdialog auto advance and size of fields

Thanks,

Works great.

[George Pelkofer]

RE: xdialog auto advance and size of fields

Chris:

Auto advance is set in the field rules.

From the control panel 'Table/Sets' tab, right click the table or set in question.

Choose 'Edit Field Rules'.

Click on the 'Data Entry' tab.

Choose the field you wish to auto advance.

Check off the 'Auto Advance' checkbox.

Repeat the last two steps for any and all fields you wish.

[Chris.Tanti]

RE: xdialog auto advance and size of fields

George,

That only applied to table data entry.
My problem is with XDialog generated screens, a different thing altogether.

[Peter.Wayne]

RE: xdialog auto advance and size of fields

you have to use the key-trapping features of xdialog and do a lot of coding yourself. here is a short example that illustrates some of the issues you brought up:

dim Address_1 as c
dim Address_2 as c
dim Dob as d
dim First_Name as c
dim Home_Phone as c
dim Last_Name as c
dim Marital as c
dim Middle_Ini as c
dim Sex as c

sex_list=

%list%

control_count=w_count(controls_list,crlf())
'ui_msg_box("control_count",""+control_count)
dim control_array[control_count] as c
control_array.initialize(controls_list)

exclude=
{endregion1};
%dlg%,"
a_dlg_button="Cancel"
case else
a_dlg_button=""
curr_ctrl_number=control_array.find(curr_ctrl)
if curr_ctrl_number=control_count then
curr_ctrl_number=0
end if
next_control=control_array[curr_ctrl_number+1]
next_control=left(next_control,len(next_control)-1)
next_control=word(next_control,1,"!")
next_control=word(next_control,1,"^")
next_control=word(next_control,1,"#")
if occurs("%",next_control)>0 then
next_control=word(next_control,3,"%")
end if
while .not. isalpha(next_control)
next_control=right(next_control,len(next_control)-1)
end while
ui_dlg_ctl_goto(dlg_title,next_control)
end select
case left(a_dlg_button,5)="add1_"
if a_dlg_button="add1_killfocus" then
Address_1=w_upper(address_1)
end if
a_dlg_button=""
case left(a_dlg_button,5)="add2_"
if a_dlg_button="add2_killfocus" then
Address_2=w_upper(address_2)
end if
a_dlg_button=""
case left(a_dlg_button,4)="dob_"
if a_dlg_button="dob_killfocus" then
valid_date=dtoc(dob)" / / "
if .not. valid_date then
dob={ / / }
else
dob=ctod(dtoc(dob))
end if
end if
a_dlg_button=""
end select
%code%)
if varC_result"OK" then
end
end if


the enter key is trapped so it does not exit the xdialog, but instead advances field to field.
you will see that the "middle initial" field auto-advances--i check to see when the field has a value and then advance to the next field.
if you really want all the features, though, of a form, then you might as well use a form, no?

[Chris.Tanti]

RE: xdialog auto advance and size of fields

Oh my goodness!

Yes, I think you are correct, I think I will try plan 2, and just create a pop up form!. Just wondered if it was possible. I am just starting to experiment with xdialog.

Thanks Peter.

[Keith Hubert]

RE: xdialog auto advance and size of fields

Peter,

This is so cool it even gave me a diagnosis. I feel a lot better now. Thank you.

Keith Hubert
London.

[Peter.Wayne]

RE: xdialog auto advance and size of fields

i foolishly just cut and paste from a larger script. trapping the "enter" key, at least, can be made much simpler for most field types.
e.g.

dlg_title="enter instead of tabs"
ui_dlg_box(dlg_title,
%dlg%,