Auto close dialog box after a couple seconds

[Bob Arbuthnot]

I am using the following code to display a dialog box if no records are found. I would like the dialog box to automatically close after 2 seconds but am stumped as to how to accomplish this!


'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=a5_get_records_in_query("orders","Tab_No=Var->vcs_tab_no .AND.prnt_to="+chr(92)+""fry room"+chr(92)+"".AND.Qty>0 .AND. status="+chr(92)+""o"+chr(92)+"" .AND. CDATE(Created)<>"+chr(92)+"""+chr(92)+""",-1,.f.)=0",local_variables()) THEN
'Displays a message box (style:'OK Button', image: 'Question symbol', id: 'no_recs_dlg').
DIM SHARED norecsdlg_result as N
DIM SHARED norecsdlg_OK_Button as L
norecsdlg_OK_Button = .F.

title_var = "NO Records Found"
message_text_var = <<%text%
There are currentlly NO records to process
%text%
norecsdlg_result=ui_msg_box(title_var,message_text_var,UI_OK+ UI_FIRST_BUTTON_DEFAULT+ UI_QUESTION_SYMBOL)
'Test to see which button on the message box was pressed....
SELECT
CASE norecsdlg_result = UI_OK_SELECTED
norecsdlg_OK_Button= .t.
END SELECT
END IF

[madtowng]

Hi Bob,
The buttons to me suggest you expect some interaction with the user, but the title you chose
implies to me that you want to display a message for a few seconds before it vanishes.

Presuming you want the latter, have you checked the Action javascript Actions ?
The Fade Out Message seems to be what you're looking for.

Capture.png

[Bob Arbuthnot]

Went for a jog since I was stumped and the solution came to me. I created a new form with my message on it, put a timer event on it to close after 2 seconds. I then opened the form as a dialog in the script and it disappears after 2 seconds.

[Mike Wilson]

Hi Bob,
I have a dozen or so dynamic dialogs like this that I have as functions that I call within scripts for messages, warnings, errors, etc. This would be for my purposes a standard message to the user. I call this function 1000 times in the code of my application. The function call is dlg_msg_box() which is a timed modeless dialog that presents with the input message and lasts for the time you designate in the open-time parameter.. Also has dialog presentation position as a parameter as character horizontal-vertical, position. The open time is defaulted in the function parameter to 2 seconds so if a time parameter is not designated in the call, the default is 2 seconds. Here it is if it might help you. A standard call would be:

dlg_msg_box("Help Bob to make his application more robust") >>> position = center page and open time = 2 seconds

For your script:

dim vfilter as C="Tab_No=Var->vcs_tab_no .AND.prnt_to="+chr(92)+""fry room"+chr(92)+"".AND.Qty>0 .AND. status="+chr(92)+""o"+chr(92)+"" .AND. CDATE(Created)<>"+chr(92)+"""+chr(92)+""")
if a5_get_records_in_query("orders",vfilter)=0
dlg_msg_box("There are currentlly NO records to process")
>>> do wharever else is needed
end if



'================

FUNCTION  dlg_msg_box AS V (input_msg as C, box_hyphen_pos as C="",open_time as n=2)

dim dlg_body as C
dim mdlg as C="ACTION MESSAGE"
vlen=max_str_length(input_msg,crlf())+( max_str_length(input_msg,crlf())^.83)

if box_hyphen_pos<>""
box_pos="{position="+word(box_hyphen_pos,1,"-")+","+word(box_hyphen_pos,2,"-")+"}"
else
box_pos=""
end if

input_msg=space(5)+input_msg

if str(open_time)=""
if vlen<15
open_time=1.5
else if vlen>15 .and. vlen<40
open_time=2
else if vlen>40 .and. vlen<70
open time=2.7
else if vlen>70 .and. vlen<125
open_time=3.9
else if vlen>125
open_time=5
end if
end if

z1=box_pos
'<<%dg1%
'{position=%dg1%

z2=<<%dg2%
{background=#75,63,68}{font=arial,10,b}{nocaption}{xmargin=2,1}{ymargin=1,0}
{region}
{region}
{lf};
{background=#240,220,110}
{text=%dg2%

z3=<<%dg3%
,3input_msg}
{lf};
{endregion};
{endregion};
%dg3%


dlgF=z1+z2+vlen+z3
'msgbox(dlgF)
ui_modeless_dlg_box(mdlg,dlgF)

xbasic_wait_for_idle()
sleep(open_time)
if ui_modeless_dlg_exist(mdlg)
ui_modeless_dlg_close(mdlg)
end if

END FUNCTION

[Bob Arbuthnot]

Thank you everyone, much appreciated.

[gkeramidas]

i have a very simple function, you enter the title, text, number of seconds to display, color of text, backgound golr. a 0 in the time variable will not close it until you tell it to lose. not perfect, but good enough for my usage,

FUNCTION Wait_Dialog AS C (mdlg_head AS C, dlg_msg AS C, sleep_time=0 AS N, tcolor AS C, bcolor AS C, wait_msg  = .F. as l )

    dim mdlg_text as c

    mdlg_text =<<%dlg7%
{can_exit=exit}{font=consolas,14,b}{wrap=100}
[[bcolor]] [[tcolor]]
{units=F}{justify=center}
{text=50mm}{lf=1};

[[msg]]{lf=2};
[[txt]]

{lf=4};
%dlg7%

    mdlg_text = stritran(mdlg_text,"[[msg]]", dlg_msg+ crlf(2)  )
    if wait_msg = .t. then
        mdlg_text = stritran(mdlg_text,"[[txt]]","Please Wait...")
        else
        mdlg_text = stritran(mdlg_text,"[[txt]]","")
    end if
    mdlg_text = stritran(mdlg_text,"[[tcolor]]","{Color="+tcolor+"}")
    mdlg_text = stritran(mdlg_text,"[[bcolor]]","{Background="+bcolor+"}")
    ui_modeless_dlg_box(mdlg_head,mdlg_text,<<%Code7%
%code7%)
    sleep(sleep_time)
    if sleep_time>0 then
        ui_modeless_dlg_close(mdlg_head)
    end if
END FUNCTION