Thumbnail of JPEG's photos

[Sannyasin Sivakatirswami]

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


On Sunday, January 5, 2003, at 11:46 PM, yves COPPE wrote:

> Hi,
>
> I posted a message without answer.
> can someone help me please ??
>
>
>
> Hi,
>
> I'd like to show photo's in a fld
> the user chooses a folder with jpegs photos (on Mac OS X)
> thet's the script :