ImageSource with images of various sizes

[Paul Claude]

> on SetImageSource pImageName,pField,pChar,pHeight
>    create invisible image
>    set the botright of last image to -1,-1 -- off-screen
>    put image pImageName into last image
>    set the lockloc of last image to true
>    set the name of last image to pImageName & "Thumb"
>    set the height of last image to 14
>    set the width of last image to (the width of img "Ref" / the
> height of img "Ref") * pHeight
>    set the imageSource of char pChar of fld pField to pImageName &
> "Thumb"
> end SetImageSource
> 

Thanks, Eric, it works: the only problem is to copy all the images into your
stack with consequents problems of memory and speed, but I understand that
yours is the only solution.

Only setting the icon of a button you can obtain to show the image trimmed
without copying it.

Bye

PaulClaude