LiveCode Forums.

Code: Select all

...
LOCK SCREEN ##!!!
put the loc of img XYZ into oldloc

put the formattedwidth of img XYZ into OriginalW
put the formattedheight of img XYZ into OriginalH

## Set your image container dimensions here
put 120 into tTargetW
put 120 into tTargetH
## do resizing stuff NOW :-)
put make_ratio(tTargetW,tTargetH,OriginalW,OriginalH) into tNewDimensions
set the width of img XYZ to item 1 of tNewDimensions
set the height of img XYZ to item 2 of tNewDimensions
set the loc img XYZ to oldloc
## DONE, curtain up:
unlock screen
## Or put this into a repeat loop to "fill" all your images in a loop...
...

## Calculates new image dimensions within max height/width while preserving aspect ratio
function make_ratio tW, tH, w, h
  if (w<=tW and h<=tH) = false then
    put min (tW/w,tH/h) into tscaleFactor
    return round(w * tscaleFactor) & "," & round(h * tscaleFactor)
  else

    ## Images that are smaller than the TARGET size are NOT scaled in this function, 
    ## it will return the oroginal dimensions in that case!
    return w & "," & h
  end if
end make_ratio