Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Thumbnails in a scrollbox
Message
From
04/10/2005 09:50:35
Luis Navas
Independent Consultant
Auckland, New Zealand
 
 
To
04/10/2005 08:34:43
Aaron K. Y. Chu
Health & Care Co. Ltd.
Hong Kong, Hong Kong
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
01055806
Message ID:
01055832
Views:
7
Just another idea, read the articles in www.foxite.com there are 2 articles about thumbnails.

Luis
>Dear All,
>
>Few days ago, I have written a question on how to add a thumbnail image in a form... it is quite simple by using Thumbnail Control in OLE container. However, I find that the scrollbox container cannot scroll up & down the thumbnail controls I added programmatically... so I create a custom container to hold the thumbnail controls, the scrollbox can scroll up & down the controls...
>
>It works fine in local machine, when I try to use it from other machine, in that the thumbnail image cannot be displayed?!
>
>Basically, the path is something like "\\computer1\photo\"
>
>
>With ThisForm.pf1.photo.SBC.viewFrame.clientarea		&&.Viewbox
>FOR x = 1 TO n
>	z = ALLTRIM(pict[x,1])
>	ext = UPPER(RIGHT(z,LEN(z)-RAT('.',z)))
>	IF ext = "BMP" OR ext = "JPG"
>		lcObjName = "image" + Transform(x)
>		.AddObject(m.lcObjName,'Thumblabel')
>			loLabel = evaluate("."+m.lcObjName)
>		WITH lolabel
>			.tag = SET('default')+CURDIR()+z
>			.label1.caption = z
>			.height = 100
>			.width = 100
>			.thumb1.displayfile(.tag)
>			.top = nTop
>			.left = nLeft
>			.visible = .T.
>		IF nTotalWidth - nleft- .width - nSpace >= .width
>						nLeft = nLeft + .width + nSpace
>		ELSE
>			nTop = nTop+.height + nSpace
>			nleft = 10
>		ENDIF
>	ENDWITH
>	ENDIF
>ENDFOR
>ENDWITH
>
>
>It seems to me that the thumbnail controls could not wait until downloading from the target path...
>
>Any help is greatly appreciated
I never forget a face, but in your case I will make an exception :-)
Previous
Reply
Map
View

Click here to load this message in the networking platform