PDA

View Full Version : X_Dialog Example ?


ABC123

Louis Nickerson
01-21-2005, 06:11 AM
Good Morning All,

I am looking for an example of an X-Dialog. I know that I've seen it before, but it is not included in the 99 scripts that are in the samples provided with A5.

If my memory serves me well...and sometimes it does not, the dialog I am looking for has two list boxes or perhaps combo boxes.

When the user selects the name of a state in the first control, the second control is populated with a list of cities located in the state that was selected in the first control.

If anyone remembers seeing this or something similar...and knows where to find it, please let me know where it is.

Kindest Regards,

Louis

AaronBBrown
01-21-2005, 06:18 AM
Have you checked out the "Learning Xdialog" database in your A5v5 program files folder? Mine's in

C:\Program Files\a5v5\Learning Xdialog\Learning Xdialog.adb

There are dozens of samples there.

Louis Nickerson
01-21-2005, 06:29 AM
Aaron,

Yes I have...all 99 sample X-Dialog scripts, but it is not in there.

Any other ideas?

Thanks

Louis

Steve Andrews
01-21-2005, 06:54 AM
Louis,

Check out the following thread. I think it is what you are after.

http://msgboard.alphasoftware.com/alphaphorum/read.php3?sortby=lastreply&direction=desc&num=11&id=6038&thread=6038

Steve

Louis Nickerson
01-21-2005, 06:58 AM
Steve,

Thank you Sir!

This is not the one I have seen in the past, but I think I can adapt it do look and feel the way I want.

Louis

crimmelcp
01-23-2005, 12:57 PM
Try This

Charlie Crimmel

'Date Created: 23-Jan-2005 03:49:21 PM
'Last Updated: 23-Jan-2005 03:49:21 PM
'Created By : ccrimmel
'Updated By : ccrimmel

'Create an XDialog dialog box to prompt for parameters.
DIM SHARED state as C
DIM SHARED customers as C
DIM SHARED varC_result as C

auto_list_state = table.external_record_content_get("customer","Bill_State_Region","Bill_state_region",".t. .and. unique_key_value()")
temp_count = w_count(auto_list_state,crlf())
DIM a_state[temp_count] as c
a_state.initialize(auto_list_state)



DIM a_customers[1] as c

dim vl as p
vl = local_variables()
state = "MA"

Dim format as p
Format.tab_stops=""
Format.odd_row_color="White"
Format.even_row_color="Blue White"
Format.odd_selected_color="Dark Blue"
Format.even_selected_color="Dark Blue"
Format.font="Arial,8"
Format.font_color_unselected="Black"
Format.font_color_selected="White"
Format.lastbutton="OK"
Format.group_size=2
Format.number_rows=.f.
Format.alternating_bands=.t.

get_data(vl)

ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Alpha Five",""%dlg%
{region}
Which State:| [%v%.37state^=a_state!state_changed];
Select Customer:| [%d;O={@@}%.100,20customers^#a_customers];
{endregion};
{line=1,0};
{region}
"*15=ok_button_label!OK" "15=cancel_button_label!CANCEL"
{endregion};
%dlg%,""%code%
if a_dlg_button = "state_changed" then
a_dlg_button = ""
get_data(vl)
end if
%code%)



'-----------------------------------------------------
function get_data as c (vars as p)
with vars

'IMPORTANT ---make sure that this command is all ONE LINE --
auto_list_customers = table.external_record_content_get("customer","alltrim(Customer_Id) + \"|{I:'a5_vertical_line'}\" + alltrim(lastname) + \"|{I:'a5_vertical_line'}\" + alltrim(firstname) + \"|{I:'a5_vertical_line'}\" + bill_state_region","Lastname","(Bill_state_region = " + quote(var-"state)+")")


'Apply 'owner draw' formatting information to the list
auto_list_customers = a5_owner_draw_list_fmt(auto_list_customers,Format)
temp_count = w_count(auto_list_customers,crlf())
REDIM a_customers[temp_count] as c
a_customers.clear()
a_customers.initialize(auto_list_customers)
customers = a_customers[1]
end with
end function

Louis Nickerson
01-24-2005, 12:25 PM
Cahrlie,

Thank You!

Louis