StatusBar

[jbk]

Using the following post as an example:

http://msgboard.alphasoftware.com/al...l=1#post568584


Any chance of adding or replacing the "Please Wait" with a "Wait Dialog" with a progress bar. I have created a script that sends a table without confirmation and the table is quite large and takes 20-30 seconds to send. The function that Tom has shown does display a "Please Wait" but I'm looking to put in a dialog box with a "repeating" or "bouncing" progress indicator that will display when user send table and closes when table has been sent. Similar to what Tom's "Please Wait" does just with a progress indicator. Thank you in advance for your help...

[CALocklin]

Re: StatusBar

If the waitdialog doesn't work (which it doesn't according to the other thread), why not just put a message in the PleaseWait dialog that tells the user that it might take a minute or two to complete. You could even change the font in the PleaseWait to a larger font so it can't be missed by all those lazy users who can't be bothered to read warnings. Unfortunately, the current length calculation doesn't work correctly for larger fonts so I modified it so that it will display correctly with any size font and as much text as you want (up to the 1024 character limit that A5 can work with in this case).

NOTES:

1. I used stritran() to convert [[text1]] to whatever is in the text1 variable. The only "magic" to using the double brackets is (a) its uniqueness so I don't have to worry about accidentally changing something else that just happened to have the same character string in it and (b) in what it looks like if you forget to run the stritran() command to convert it - it looks like a really messed up field object which makes it very hard to miss when editing. This isn't a big deal on a small dialog like this one but I've been known to forget something in a large, complicated xdialog and didn't catch it until the customer saw it. Now I use the double brackets so it's really obvious if I forget something during development. (One of my more complex xdialogs has 30 stritran commands related to it - easy to miss one during initial development.)

2. I added the {wrap=} command so a long text string would word wrap rather than running off the screen.

3. I also removed the box_code since it wasn't serving any purpose in this particular script.

FUNCTION PleaseWait as C ( Show = .F., what = "" )
	'DESCRIPTION: This function displays a 'Please Wait' dialog for use while processing.	
	'What is an optional parameter that will be displayed along with the words "Please Wait"
	PleaseWait = ""

	IF show = .F.
		IF ui_modeless_dlg_exist( "Processing" )
			ui_modeless_dlg_close( "Processing" )
		END IF
		EXIT FUNCTION
	END IF

	text1 = what + " Please Wait"

	box_code = <<%dlg%
	{background=Pale Yellow}{wrap=120}
	{font=arial,36,b}
	[[text1]];
%dlg%
	box_code = stritran( box_code, "[[text1]]", text1 )

	ui_modeless_dlg_box( "Processing", box_code )
	ui_dlg_move( "Processing", 2, 2.5 )

	ui_modeless_dlg_setfocus( "Processing" )
	ui_modeless_dlg_refresh( "Processing" )

END FUNCTION