Paul,
I'm sorry: I forgot a very important line in the handler I proposed:
on SetImageSource pImageName,pField,pChar, pHeight
create invisible image
set the botright of last image to -1,-1
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 pHeight
set the width of last image to (the width of img "Ref" / the
height of img "Ref") * pHeight
set the imagedata of last image to the imagedata of last image
set the imageSource of char pChar of fld pField to pImageName &
"Thumb"
end SetImageSource
The important line to add is: set the imagedata of last image to the
imagedata of last image
This allow to reduce the size of the"thumbnail" image to its actual
size: 2 KB or less whatever can be the size of the original image :-)
Best Regards from Paris,
Eric Chatonet.
Le 2 déc. 05 à 16:12, Eric Chatonet a écrit :
Hi Paul,
Thanks for Paris :-)
If you
show an image of another opened stack in your button (as icon),
the size
maybe bigger but results dropped and it's OK; in a field as
imagesource,
it's not dropped and 'invades' the field.
As far as I know, images used as icons in buttons or placed in
fields are never resized.
Fortunately :-)
As for me I would use something like:
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
And then I would use for instance: SetImageSource "Ref","Test",3,14
Where Ref is the name of an original image, Test the name of a
field, 3 the char number and 14 the height I want for the image in
the field.
----------------------------------------------------------------
So Smart Software
For institutions, companies and associations
Built-to-order applications: management, multimedia, internet, etc.
Windows, Mac OS and Linux... With the French touch
Free plugins and tutorials on my website
----------------------------------------------------------------
Web site http://www.sosmartsoftware.com/
Email [EMAIL PROTECTED]/
Phone 33 (0)1 43 31 77 62
Mobile 33 (0)6 20 74 50 86
----------------------------------------------------------------
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
