Your method was pretty close to the one I ended up writing.
It does have a few added whistles I hadn't considered though.
I thank you again for your contribution!
Rick Harrison
Try this as an option, Rick... I am sure others will post alternatives for
you...
on mouseUp
if the platform is "Win32" then
answer file "Select Image..." with filter "Images (*.gif;*.jpg;*.png),
*.gif;*.jpg;*.png"
else answer file "Insert Image" of type "JPEGGIFf"
if it is empty then exit mouseUp
FLCsetThumbnail it
end mouseUp
on FLCsetThumbnail tPath lock screen put "50" into tW # Adjust maximum thumbnail width as required put "55" into tH # Adjust maximum thumbnail height as required put the topLeft of img "thumbnail" into tTL set the lockLoc of img "thumbnail" to false set the fileName of img "thumbnail" to tPath put the width of img "thumbnail" into w put the height of img "thumbnail" into h if not (w<=tW and h<=tH) then put min (tW/w,tH/h) into tscaleFactor set the width of img "thumbnail" to w * tscaleFactor set the height of img "thumbnail" to h * tscaleFactor end if set the lockLoc of img "thumbnail" to true set the topLeft of img "thumbnail" to tTL # OPTIONAL... Use a button to display the image # hide img "thumbnail" # set the icon of btn "thumbnail" to "" # set the icon of btn "thumbnail" to the id of img "thumbnail" unlock screen end FLCsetThumbnail _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
