Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Image not displaying on FoxPro Desktop
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Photos et traitement d'images
Titre:
Image not displaying on FoxPro Desktop
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Database:
Visual FoxPro
Divers
Thread ID:
01442657
Message ID:
01442657
Vues:
127
The previous image was a TIFF file and so is this new image. The TIFF image won't show up on the desktop; none of the code has changed, only the file name. Like I said, it was working previously, but nothing has changed except the image. I can open the TIFF fiel and look at it and it looks fine. There is one thing that just came to my mind; this may need the image placed in the root of the project. Hmmm,... (maybe that'll work).

Posting a little later. Yep, that was it, a matter of a proper path. I put the image in the root and it worked fine. Now, how do I delete this posting? :)

Here's the code in the MAIN prg file:
lcImage = "IVFAdvPlusLIM256.tif"
lcBgType = "CENTER"
IF NOT PEMSTATUS(_Screen, "oImg", 5)
	_Screen.AddObject("oImg", "Image")
ENDIF
 
WITH _Screen.oImg
	.Visible = .F.
	.Stretch = 0
	.Picture = lcImage 
	DO CASE
	CASE lcBgType == "STRETCH"
		.Top     = 0
		.Left    = 0
		.Stretch = 2
		.Height	 = _Screen.Height
		.Width	 = _Screen.Width
	CASE lcBgType == "ISOMETRIC"
		.Stretch = 1
		.Height	 = _Screen.Height
		.Width	 = _Screen.Width
		.Top  = (_Screen.Height - .Height) / 2
		.Left = (_Screen.Width - .Width) / 2
	CASE lcBgType == "CENTER"
		.Stretch = 0
		.Top  = (_Screen.Height - .Height) / 2
		.Left = (_Screen.Width - .Width) / 2
	OTHERWISE	
		.Top  = 0
		.Left = 0
		.Stretch = 0
	ENDCASE
	.Visible = .T.
ENDWITH  
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform