Trap "enter key" ui_dlg_box

[Peter.Greulich]

The following xdialog box closes if the user presses the enter key. I want to trap that key so that the dialog only closes when the suer presses a button or the "X".

footer_string = "Press OK to open Statement Reconciliation form."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
vDialogButton = ui_dlg_box("Bank Statement Reconcilation",
{region}
Enter the Statement Closing Date:| [%DATE;P=popup.calendar(dtoc(vStateDate));I=popup.calendar%.16vStateDate!vStateDate_*];
Enter the Statement Opening Balance:| [%z%.16vOpenBalance];
Enter the Statement Closing Balance:| [%z%.16vCloseBalance];
{endregion};
{region}
{text=50,1:footer_string};
{endregion};
{line=1,0};
{region}

{endregion};
%dlg%,
if left(a_dlg_button,11) = "vStateDate_" then
if a_dlg_button = "vStateDate_killfocus" then
vStateDate = ctod(dtoc(vStateDate))
end if
a_dlg_button = ""
end if
%code%)

Peter

[AaronBBrown]

RE: Trap

Add

{on_key=enter!enter_pressed}

and then trap the enter_pressed event...


if a_Dlg_Button = "enter_pressed"
a_dlg_button = ""
' do something
end if

[Peter.Greulich]

RE: Trap

It doesn''t work; I'm sure I've got it wrong:

footer_string = "Press OK to open Statement Reconciliation form."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
vDialogButton = ui_dlg_box("Bank Statement Reconcilation",
{on_key=enter!enter_pressed}
{region}
Enter the Statement Closing Date:| [%DATE;P=popup.calendar(dtoc(vStateDate));I=popup.calendar%.16vStateDate!vStateDate_*];
Enter the Statement Opening Balance:| [%z%.16vOpenBalance];
Enter the Statement Closing Balance:| [%z%.16vCloseBalance];
{endregion};
{region}
{text=50,1:footer_string};
{endregion};
{line=1,0};
{region}

{endregion};
%dlg%,
if a_dlg_button = "enter_pressed"
a_dlg_button = ""
end if
if left(a_dlg_button,11) = "vStateDate_" then
if a_dlg_button = "vStateDate_killfocus" then
vStateDate = ctod(dtoc(vStateDate))
end if
a_dlg_button = ""
end if
%code%)

[Steve Workings]

RE: Trap

Here's a snippet from my code library that I use as a model:


{on_key=Enter}
if a_dlg_button="enter" .and. .not.\
("OK"$ui_dlg_ctl_current("Dialog Title")) then
ui_dlg_navigate("Dialog Title","next")
a_dlg_button=""
end if



- Steve

[Peter.Greulich]

RE: Trap

I'm guessing that ui_dlg_navigate() is a personal function. But in any case, unfortunately, I'm still stuck.

[CALocklin]

RE: Trap

Try taking the "*" out of the OK button.

[Steve Workings]

RE: Trap

ui_dlg_navigate() is an A5 function. I clipped your xdialog, put in my Enter trapping, and get good results. Here's the code:


dim vStateDate as d
footer_string = "Press OK to open Statement Reconciliation form."
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
vDialogButton = ui_dlg_box("Bank Statement Reconcilation",""%dlg%
{on_key=enter}
{region}
Enter the Statement Closing Date:| [%DATE;P=popup.calendar(dtoc(vStateDate));I=popup.calendar%.16vStateDate!vStateDate_*];
Enter the Statement Opening Balance:| [%z%.16vOpenBalance];
Enter the Statement Closing Balance:| [%z%.16vCloseBalance];
{endregion};
{region}
{text=50,1:footer_string};
{endregion};
{line=1,0};
{region}
"*15=ok_button_label!OK" "15=cancel_button_label!CANCEL"
{endregion};
%dlg%,""%code%
if a_dlg_button="enter" .and. .not.\
("OK"$ui_dlg_ctl_current("Bank Statement Reconcilation")) then
ui_dlg_navigate("Bank Statement Reconcilation","next")
a_dlg_button=""
end if
if left(a_dlg_button,11) = "vStateDate_" then
if a_dlg_button = "vStateDate_killfocus" then
vStateDate = ctod(dtoc(vStateDate))
end if
a_dlg_button = ""
end if
%code%)

[Peter.Greulich]

RE: Trap

Cal,

You're the man! Many thanks.

Peter

P.S. An asterick - the irony!

[Peter.Greulich]

RE: Trap

Steve,

Your code does indeed work. I looked up ui_dlg_navigate() in the CHM file and it wasn't in the index. That's why I thought it was a UDF. Thanks for your assist. Much appreciated.

Peter

[JerryBrightbill]

RE: Trap

Peter

I have the help file from Dec 30 and it does list ui_dlg_navigate() in the functions listing.

Jerry

[Peter.Greulich]

RE: Trap

Ahhh...Dec 30th

I have the previous one.

Thanks, Jerry. I will update mine.

Peter