Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Image not displaying on FoxPro Desktop
Message
General information
Forum:
Visual FoxPro
Category:
Pictures and Image processing
Title:
Image not displaying on FoxPro Desktop
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01442657
Message ID:
01442657
Views:
128
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  
Next
Reply
Map
View

Click here to load this message in the networking platform