Image Proportions

[Rick Harrison]

Thanks for the post!

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
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>