LiveCode Forums.

Code: Select all

on scrollbarDrag
   set the textSize of me to the textSize of me -1
end scrollbarDrag

on backSpaceKey
   if (the length of me is 0) then 
       set the textSize of me to 200
   else 
       set the textSize of me to the textSize of me +1
   end if
   pass backSpaceKey  -- so it actually does what it is supposed to
end backSpaceKey

on initField
   put empty into me
   set the dontWrap of me to true
   set the textSize of me to 200
end initField

Code: Select all

global gWindowWidth  -- Only so it doesn't have to be retrieved each key stroke

on rawkeyDown pCode
   set the textSize of me to gWindowWidth/(the length of me+1) * 1.6
   -- Plus one so to avoid a divide by zero
   -- One point six is the inverse of the 5x8 character ratio
   pass rawkeyDown
end rawkeyDown

on initField
   put empty into me
   set the textAlign of me to center
   put the width of me into gWindowWidth
end initField

Code: Select all

local sMinTextSize = 8
local sDesiredTextSize = 30

on rawKeyUP
   
   repeat while the formattedWidth of me >= the width of me -(item 1 of the margins of me * 2)
      set the textSize of me to min (max ((the effective textSize of me - 1), sMinTextSize),sDesiredTextSize)
      if the textSize of me = sMinTextSize then exit repeat
   end repeat
   
   repeat while the formattedWidth of me < the width of me - (item 1 of the margins of me * 2)
      set the textSize of me to min (max ((the effective textSize of me + 1), sMinTextSize),sDesiredTextSize)
      if the textSize of me = sDesiredTextSize then exit repeat
   end repeat
   
   pass rawKeyUP
end rawKeyUP