Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Showing status of program on screen
Message
From
23/05/2005 07:21:29
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01016672
Message ID:
01016681
Views:
16
>I have a number of routines which are invoked when a user clicks a button. The problem is the routines take quite a while to run and therefore I would like to display a message to the user of what is happening. Rather than use a Wait window are there any other techniques I could use?
>
>I have seen a form with a list box or something and everytime somethings happens it writes a record to a cursor which is displayed in a list box on the form.
>
>
>"Now printing report for style T675"      29/12/04 15:34:00
>"Now attaching report for style T567"     29/12/04 15:35:00
>
>
>Is this easy to do I cant remeber where I have seen this? Any help would be appreciated.
>
>Many Thanks

Another start point:
Audit_Open("Some Process")

FOR k=1 TO 100
	=Audit_Add(TRANSFORM(m.k,"@R phase 999999"))
	=INKEY(RAND()*1)
NEXT

Audit_Close()


PROCEDURE Audit_Open(cTitle)
	DEFINE POPUP Audit ;
		FROM 10,10 MARGIN ;
		TITLE (m.cTitle);
		FONT "Lucida Console",8
		

PROCEDURE Audit_Add(cText)
	IF CNTBAR('Audit')>0
		SET MARK OF BAR CNTBAR('Audit') OF Audit TO .T.
	ENDIF
	DEFINE BAR CNTBAR('Audit')+1 OF Audit ;
		PROMPT TTOC(DATETIME())+' >> '+m.cText;
		COLOR SCHEME 1+CNTBAR('Audit')%2

	ACTIVATE POPUP Audit BAR CNTBAR('Audit') NOWAIT
	SHOW POPUP Audit
	
PROCEDURE Audit_Close
	DEACTIVATE POPUP Audit
	RELEASE POPUPS Audit
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform