Hello All,
Can anyone tell me why the double-click event in the following code is not causing the message box to appear?
++++++++++++++++++++++++++++++++++++++++++++++++++++++
DIM form_name as C
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DIM SHARED vc_search_input as C
DIM SHARED vc_search_select as C
DIM SHARED varC_result as C
DELETE expression_result
expression_result = eval("\"\"",form_name)
vc_search_input = convert_type(expression_result,"C")
DELETE expression_result
expression_result = eval("\"\"",form_name)
vc_search_select = convert_type(expression_result,"C")
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
DIM vc_search_select_rl_def_orig as C
vc_search_select_rl_def_orig = "kl=tbl_customer,{keylist_build(\"H=.025,1:35[Customer Name],2:35[Street Address],3:15[City],4:15[State]\",''+Customer_id,left(''+Customer_name,35),left(''+Street_address_1,35),left(''+Street_city,15),left(''+Street_state,15))}{Customer_name "= [varC-"vc_search_input]}"
DIM vc_search_select_rl_def as C
vc_search_select_rl_def = replace_parameters(vc_search_select_rl_def_orig,local_variables())
varC_result = ui_dlg_box("Search for customer (by company name)",""%dlg%
{region}
| [.100vc_search_input!vc_search_input_changed];
| [%@vc_search_select_rl_def%.100,25vc_search_select!list_*];
{endregion};
{line=1,0};
{region}
"*15=ok_button_label!OK" "15=cancel_button_label!CANCEL"
{endregion};
%dlg%,""%code%
If a_dlg_button = "vc_search_input_changed" then
vc_search_select_rl_def = replace_parameters(vc_search_select_rl_def_orig,local_variables())
a_dlg_button = ""
else if a_dlg_button = "list_dblclick" then
ui_msg_box("title","message",UI_STOP_SYMBOL)
a_dlg_button = ""
else
a_dlg_button = ""
end if
%code%)
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Thanks,
Louis
Can anyone tell me why the double-click event in the following code is not causing the message box to appear?
++++++++++++++++++++++++++++++++++++++++++++++++++++++
DIM form_name as C
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DIM SHARED vc_search_input as C
DIM SHARED vc_search_select as C
DIM SHARED varC_result as C
DELETE expression_result
expression_result = eval("\"\"",form_name)
vc_search_input = convert_type(expression_result,"C")
DELETE expression_result
expression_result = eval("\"\"",form_name)
vc_search_select = convert_type(expression_result,"C")
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
DIM vc_search_select_rl_def_orig as C
vc_search_select_rl_def_orig = "kl=tbl_customer,{keylist_build(\"H=.025,1:35[Customer Name],2:35[Street Address],3:15[City],4:15[State]\",''+Customer_id,left(''+Customer_name,35),left(''+Street_address_1,35),left(''+Street_city,15),left(''+Street_state,15))}{Customer_name "= [varC-"vc_search_input]}"
DIM vc_search_select_rl_def as C
vc_search_select_rl_def = replace_parameters(vc_search_select_rl_def_orig,local_variables())
varC_result = ui_dlg_box("Search for customer (by company name)",""%dlg%
{region}
| [.100vc_search_input!vc_search_input_changed];
| [%@vc_search_select_rl_def%.100,25vc_search_select!list_*];
{endregion};
{line=1,0};
{region}
"*15=ok_button_label!OK" "15=cancel_button_label!CANCEL"
{endregion};
%dlg%,""%code%
If a_dlg_button = "vc_search_input_changed" then
vc_search_select_rl_def = replace_parameters(vc_search_select_rl_def_orig,local_variables())
a_dlg_button = ""
else if a_dlg_button = "list_dblclick" then
ui_msg_box("title","message",UI_STOP_SYMBOL)
a_dlg_button = ""
else
a_dlg_button = ""
end if
%code%)
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Thanks,
Louis
Comment