Tab Order in Xdialog

[[email protected]]

Hi All

I have a Record List - Combo Box within a form in a xdialog script.

In a normal xdialog form the tab order follow the fields as they are laid out.

My problem is that I have the Record list Combo box at the top of the form and when the user tabs to the next line from the combo box, it actually goes to the cancel button at the bottom of the form. My code is 800 lines long its a take on the Genie from learning xdialog

the code below is my page from the genie the second bit of code is the code that makes the combo box

Andy

page_5 = <<%dlg2%

ui_modeless_dlg_box("genie",<<%dlg%

{cellspillover=on}
{region}
Finance:;
{lf};
Select Price Band:| [%@vpriceB_rl_def%.15vpriceB] ;
{lf};
Credit Status | [.12Credit^=crate] ;
{lf};
Credit Checked: | [.15creditchecked^=Ccheck] ;
{lf};
Credit Limit | [.10Vlimit];
{lf};
Terms In Days | [.10Vterms];
{lf};
V.A.T. Rate | [%r%.30Vvat];
{lf};
V.A.T. Number | [.30Vno];
{endregion};
{region=b}
{condition=(Class="E = EC Vat Registered")}
VAT Format:| [%mwr%.40,5vatinput];
{endregion}
{condition=.t.}
{region=b}

{endregion}

Record List combo box

vpriceB_rl_def = "k=pricband,{keylist_build(\"H=.05,1:15[Price Band],2:45[Description],3:60[Users]\",''+Priceband,left(''+Priceband,15),left(''+Descript,45),left(''+Users,60))}{}"

[Keith Hubert]

Re: Tab Order in Xdialog

Hi Andy,

Try this from the Learning Xdialog.

Notice the {Tab=Page} and {endtab}|

dim a_card_type[100] as c
x = "American Express,Visa,Master Card,Discover"
a_card_type.initialize(stritran(x,",",crlf()))
dim a_expire_month[12] as c
x = "01,02,03,04,05,06,07,08,09,10,11,12"
a_expire_month.initialize(stritran(x,",",crlf()))
dim a_expire_year[10] as c
x = "2000,2001,2002,2003,2004,2005,2006,2007,2008,2009"
a_expire_year.initialize(stritran(x,",",crlf()))

page = "Shipping"
result = ui_dlg_box("Title",<<%dlg%
{tab=page}
{pane=Billing}
{region}
First name:| [.32firstname] ;
Last name:| [.32lastname] ;
Address 1:| [.32address1] ;
Address 2:| [.32address2] ;
City:| [.32City] ;
State:| [State] ;
Zip:| [Zip]
{endregion};

{pane=Shipping}
{region}
First name:| [.32firstname] ;
Last name:| [.32lastname] ;
Address 1:| [.32address1] ;
Address 2:| [.32address2] ;
City:| [.32City] ;
State:| [State] ;
Zip:| [Zip]
{endregion};

{pane=Credit Card}
{region}
Card Type:| [.32card_type^=a_card_type] ;
Card Number:| [.32card_number] ;
Expiration:| [.4expiry_month^=a_expire_month] [.5expiry_year^=a_expire_year] ;
{endregion};

{endtab}|
{Region3}
 <10&OK>;
 <10&Cancel>
{Endregion3}
%dlg%)

[csda1]

Re: Tab Order in Xdialog

Hi All

I have a Record List - Combo Box within a form in a xdialog script.

In a normal xdialog form the tab order follow the fields as they are laid out.

My problem is that I have the Record list Combo box at the top of the form and when the user tabs to the next line from the combo box, it actually goes to the cancel button at the bottom of the form. My code is 800 lines long its a take on the Genie from learning xdialog

the code below is my page from the genie the second bit of code is the code that makes the combo box

The easiest way is to rearrange the XDialog controls to follow the normal tab order. Alternatively, you can use the {INITIAL_FOCUS}, UI_DLG_CTL_GOTO() to control the control that has focus.

If you set up your event code in the Xdialog, you can use the KILLFOCUS event to transfer control to the object of your choice after it leaves a control.

You could also probably use the {ONKEY} to do a similar thing by trapping the TAB key

[[email protected]]

Re: Tab Order in Xdialog

Hi Ira


If you take a look at my code below you will see that it is in the order that I want the tab to go, If I enter the "Select Price Band" and use the tab it will not move to the next field.

ui_modeless_dlg_box("genie",<<%dlg%

{cellspillover=on}
{region}
Finance:;
{lf};
Select Price Band:| [%@vpriceB_rl_def%.15vpriceB] ;
{lf};	
Credit Status | [.12Credit^=crate] ;
{lf};
Credit Checked: | [.15creditchecked^=Ccheck] ;
{lf};
Credit Limit | [.10Vlimit];
{lf};
Terms In Days | [.10Vterms];
{lf};
V.A.T. Rate | [%r%.30Vvat];
{lf};
V.A.T. Number | [.30Vno];
{endregion};
{region=b}
{condition=(Class="E = EC Vat Registered")}
VAT Format:| [%mwr%.40,5vatinput];
{endregion}
{condition=.t.}
{region=b}
{endregion}


%dlg%,<<%code%

I have tried to use the case statement you pointed me to but when I do the tab will not work at all

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

ui_dlg_box(dlg_title,<<%dlg%
{startup=init}
{on_key=enter}
{on_key=tab}
{region0}
.......................................

if a_dlg_button = "tab" 
a_dlg_button = ""
current_control = alltrim(ui_dlg_ctl_current(dlg_title))
select 
case current_control = "[vpriceB]" 
target_control = "[crate]" 
end select 
ui_dlg_ctl_goto(dlg_title,target_control)
  
end if

Any help you could give would be great

Andy

[Tom Cone Jr]

Re: Tab Order in Xdialog

Andy, here's an example that may help you.

Run the only script you'll find in the code page of the control panel.

Tab through the fields.

Notice the directionality of the tab sequence. I've reversed the normal sequence.

When you study the code notice that I pass the full control specification (definition) to the ui_dlg_ctl_goto() function.

Hope this helps.