Thumbnail of JPEG's photos

[yves COPPE]

>This is proven to work where you want to view them vertically 
>(vertical scroll), and you have the folder path in a variable and 
>the list of files in another field..
>
>put into the field in advance the number like this:
>
>1
>2
>3
>4
>etc. (up to a very high number... higher than you would ever use)
>turn the foreground color to white (the number disappear.. then do this:
>
>
>global gCurrentFolder
>on mouseUp
>   set the lockscreen to true
>
>   repeat for each line x in fld "imageField" ## could be just "the files"
>     put offset (x,fld "imageField") & cr after tCharLocations
>   end repeat
>
>## clean up previous catalog first
>
>repeat for each line y in tCharLocations
>    if the imagesource of char y of fld "imagefield" is not empty then
>set the imageSource of char y of fld "imageField" to empty
>end if
>end repeat
>
>   put fld "fileList" into theFiles
>
>   put 1 into nextImage
>   repeat for each line y in tCharLocations
>     if line nextImage of  theFiles is not empty then
>       put (gCurrentFolder& (line nextImage of theFiles)) into tPath
>       set the imageSource of char y of fld "imageField" to ("binfile:"&tPath)
>       put nextImage+1 into nextImage
>     else
>       exit mouseUp
>     end if
>   end repeat
>
>end mouseUp
>


It works fine. Thank you.
-- 
Greetings.

Yves COPPE

Email : yvescoppe at skynet.be