Timed message display

[Stan Mathews]

Ui_msg_box() is easy to create and supports unlimited(?) lines but must be manually dismissed and doesn't support images.
Waitdialogs can be programatically closed, only support three lines, and also don't support images.

If you want to display a message for a defined length of time with images and have as many lines as you want you can use an xdialog something like this.

dlg_body = "{image=$sys_error} An error has occurred! ;"
dlg_body = dlg_body + "{lf};"
dlg_body = dlg_body + "***** Email Delivery Failure ***** ;"
dlg_body = dlg_body + "{lf};"
dlg_body = dlg_body + "{lf};"
dlg_body = dlg_body + "Unable to connect to the Company Email server;"
dlg_body = dlg_body + "{lf};"
dlg_body = dlg_body + "Please contact the System Administrator;"

ui_modeless_dlg_box("Error",dlg_body)
ui_yield()
sleep(3)
UI_MODELESS_DLG_CLOSE("Error")

[MoGrace]

Re: Timed message display

I liked your idea so much I made a function that can be imported to the control panel and added a script to use from the code library.

copy and paste this text into your library entry:

'prompt for image in IW and paste to vImg then delete next line
'or use genie from right click menu in code editor to replace default
?A5_PROMPT_FOR_IMAGENAME()

dim vMsg as c
dim vTitle as c
dim vHdr as c
dim vImg as c
dim vTime as n
dim vFlag as L
vMsg = "var->AskC_1_MsgBody"
vTitle = "var->AskC_2_Title"
vImg = "$sys_information"	
vHdr = "var->AskC_3_Header"
vTime = var->AskC_4_Seconds
vFlag = .f.

XdMsg(vMsg,vTitle,vImg,vHdr,vTime,vFlag)

Import function:
XdMsg-05-09-2015.txt