or something :^))
On 09 Jan 2004, at 22:04, [EMAIL PROTECTED] wrote:
Message: 10 Date: Fri, 9 Jan 2004 13:03:35 -0800 (PST) From: Alejandro Tejada <[EMAIL PROTECTED]> Subject: Re: Rev Crash Again! ... cardImage() function To: [EMAIL PROTECTED] Message-ID: <[EMAIL PROTECTED]> Content-Type: text/plain; charset=us-ascii
snip
How did you call this function?
I wrote in the message box the following
get cardImage(Home) put it
and the result is the binary PNG data in the message box and a temporal image that dissapears when I click on it.
al
Ok here is an example based on the idea of Jim to make thumbnails. But this are not real thumbnails, only resized images. To make a real thumbnail take a screenshot (import or export can both be used) from the produced image.
1. make list field named "list" 2. a btn to put the windows in fld "list"
3. a second btn with the following script:
on mouseup
put line (the hilitedline of fld "list") of fld "list" into sname
if sname is not in the windows then
answer "First update the window list"
exit to top
end if
if sname is not empty then put cardImage(sname) into a
if there is not an img "test" then
create invisible img
set the name of last img to "test"
end if
if there is an img "test" then set the text of img "test" to a
put the width of img "test" into x
put the height of img "test" into y
### if a resizing is wanted you can do this for example
### adapt to your own needs
if x > y then put x div 100 into theFactor
else put y div 100 into theFactor
if theFactor > 0 then
set the width of img "test" to x div theFactor
set the height of img "test" to y div theFactor
end if
show img "test"
choose browse tool
end mouseup#### = changed
function cardImage theStack ####
local tCurrentCardImage, tOldBuffer, tID
put the alwaysBuffer of stack theStack into tOldBuffer
put the cantmodify of stack theStack into tCMOldBuffer ####
set the cantmodify of stack theStack to false ####
set the alwaysBuffer of stack theStack to false
set the alwaysBuffer of stack theStack to true
put the windowID of stack theStack into wID
put the pixMapID of stack theStack into pID
if not ((pID is wID) or (pID is 0)) then
create invisible image
--put the imagePixMapID of last image into tID ### you can safely omit this line
set the imagePixMapID of last image to (the pixMapID of stack theStack)
export last image to tCurrentCardImage as PNG
--set the imagePixMapID of last image to tID ### you can safely omit this line
set the alwaysBuffer of stack theStack to false
set the cantmodify of stack theStack to tCMOldBuffer ####
delete last image
else #### add your own error text here
answer "Sorry no deal, no picture data could be taken"
exit to metacard
end if
return tCurrentCardImage
end cardImage
Have fun
WA.
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
