Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Default Wait Window Position
Message
From
21/01/2004 16:17:27
 
 
To
21/01/2004 15:26:23
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00867546
Message ID:
00869232
Views:
30
I see a difference between VFP6 and VFP8. In 6, the WAIT WINDOW is in the main form, while in 8, the WAIT WINDOW is in the second form.

Is that what you mean?



>Fabio,
>
>The code below produces the anomaly that I see. It seems to happen when a child form of a top-level form is modal:
>
>
>PUBLIC oform1, oform2
>
>oform1=NEWOBJECT("form1")
>
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>	ShowWindow = 2	&& As top-level form
>	WindowType = 0	&& Modeless
>
>	AutoCenter = .T.
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>	height = 480
>	width = 640
>
>	PROCEDURE Click
>		WAIT WINDOW ;
>			"Form1: ShowWindow = " + ;
>			ALLTRIM(STR(this.ShowWindow)) + ;
>			" WindowType = " + ;
>			ALLTRIM(STR(this.WindowType)) TIMEOUT 3
>
>		oform2=NEWOBJECT("form2")
>		oform2.Show
>		THISFORM.Release()
>	ENDPROC
>
>ENDDEFINE
>
>DEFINE CLASS form2 AS form
>
>	ShowWindow = 1	&& In top-level form
>	WindowType = 1	&& Modal
>
>	AutoCenter = .T.
>	DoCreate = .T.
>	Caption = "Form2"
>	Name = "Form2"
>	height = 480*.5
>	width = 600*.5
>
>	PROCEDURE Click
>		WAIT WINDOW ;
>			"Form2: ShowWindow = " + ;
>			ALLTRIM(STR(this.ShowWindow)) + ;
>			" WindowType = " + ;
>			ALLTRIM(STR(this.WindowType)) TIMEOUT 3
>
>		THISFORM.Release()
>	ENDPROC
>
>ENDDEFINE
>
>
>What do you think?
>
>Thanks!
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform