Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
UT membership should increase
Message
De
22/08/2001 20:32:10
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00540894
Message ID:
00547726
Vues:
20
>It must be a video driver issue or something, because I can't repro. I use dockable debug windows all the time (specifically to find ad hoc docking bugs), and never crash. And here I thought we found the big ones like this, too. :-(

Yep yep, its that screen object thingy. If you want, one last test (blows everytime for me):

bring up the Watch Window
Dock it to the _screen
Close the watch window
Run the code below && Make sure it has an BMP file to use
When it suspends, you'll have the command window
Type in "debug"

The Watch Window will try to reappear and blow c5.

I suppose since teh error has to do with my Image, I'll test if Version(2) <> 0 and only create it when I'm not in teh runtime (where I'd be debugging code). Then I'll be fine.
_screen.NewObject('oLogo', 'logo')
_screen.oLogo.Visible = .T.
SUSPEND 

* This class uses a little trick to give the _screen tappable events
DEFINE CLASS logo AS image
	oscr = _SCREEN

	PROCEDURE Init
		* Find a file for this object
		lcFile = 'C:\WINNT\GONE FISHING.BMP'
		if not empty(lcFile)
			this.Picture = lcFile
		else
			return .F.
		endif
		this.Position()
	ENDPROC

	PROCEDURE oscr.Resize
		* This assumes the object was added to the screen as "oLogo"
		this.oLogo.Position() 
	ENDPROC

	PROCEDURE Position
		* Position this image where it should be
		with this
			.Left = _screen.width / 2 - .width / 2
			.Top = _screen.height / 2 - .Height / 2
		endwith
	ENDPROC 

ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform