LiveCode Forums.

Code: Select all

on mouseUp
   put true into ttt
   put 1 into t2
   repeat while ttt
      add 1 to t2
      set the textsize of field "Tester" to t2
      if the formattedWidth of field "Tester" > the width of field "Tester" then
         put false into ttt
         set textsize of field "Tester" to (t2 - 1)
      end if
   end repeat
   put textSize of field "Tester" into t2
   repeat until the formattedHeight of field "Tester" < the height of field "Tester"
      set textSize of field "Tester" to (t2 - 1)
   end repeat
end mouseUp

Code: Select all

   --speed up the action and prevent the user seeing strange text size changes by locking the screen
   lock screen
   --if there is nothing in the field then don't let it go into an endless loop increasing the size of nothing ad infinitum
   if the text of field "Tester" is not empty then
      --initialize small to start from
      put 1 into tSize
      set the textSize of field "Tester" to tSize
      --let the repeat loop end automatically by checking when the text exceeds the bounds
      repeat while (the formattedWidth of field "Tester" < the width of field "Tester") and (the formattedHeight of field "Tester" < the height of field "Tester")
         --increase the size
         add 1 to tSize
         set the textSize of field "Tester" to tSize
         --the loop should be done way before the app looks like it has hung, but I always give a repeat loop a breather
         wait 0 milliseconds with messages
      end repeat
      --the repeat loop exited because the size exceeded bounds, so reduce to the last size that did fit
      set the textSize of field "Tester" to tSize - 1
   end if
   unlock screen

Code: Select all

on doSetTextSize pFldID,pTextSize,pHeightPoss,pMargin -- pHeightPoss = field height
   put pTextSize into tSizeMax
   set the textsize of char 1 to -1 of fld id pFldID to tSizeMax
   set the fixedlineheight of fld id pFldID to false
   put the width of fld  id pFldID - (pMargin*2) into tMaxW
   put the formattedheight of fld id pFldID into tFH
   if tFH <= pHeightPoss then
      set the height of fld id pFldID to tFH
   end if 
   if tFH > pHeightPoss or  the formattedwidth of fld id pFldID > tMaxW then
      repeat with z = tSizeMax down to 6
         if the optionkey is down then exit repeat --•• just for test
         set the textsize of fld id pFldID to z
         set the  textsize of char 1 to -1 of fld id pFldID to z
         put the formattedheight of fld id pFldID into tFH     
         if tFH <= pHeightPoss and the formattedwidth of fld id pFldID <=tMaxW then 
            exit repeat
         end if
         wait 1 milliseconds with messages
      end repeat
   end if
end doSetTextSize