LiveCode Forums.

Code: Select all

on mouseUp
   createImage
end mouseUp

on createImage
   if there is an image "Test" then delete image "Test"
   export snapshot from this cd to myPict as PNG
   set the text of the templateImage to myPict
   put rescale(the formattedwidth of the templateImage,the formattedHeight of the templateImage,100,100) into myWH
   set the rect of the templateImage to 0,0 & comma & myWH
   set the loc of the templateImage to the loc of this cd
   set the showBorder of the templateImage to true
   set the name of the templateImage to "Test"
   create img
end createImage

function rescale theImgWidth,theImgHeight,theCdWidth,theCdHeight
  if theCdWidth/theImgWidth < theCdHeight/theImgHeight then
    put theCdWidth / theImgWidth into myRatio
  else
    put theCdHeight / theImgHeight into myRatio
  end if
  put theImgWidth * myRatio into myNewWidth
  put theImgHeight * myRatio into myNewHeight
  return myNewWidth,myNewHeight
end rescale