LiveCode Forums.

Code: Select all

global scaleh,scalew,tOrient
on setScaling
   local statsize,mainrect
   if the environment is mobile and scalew=0 then
      if char 1 of the machine="i" then put 20 into statsize else put 40 into statsize       -- allow for status bar differences
      put the screenrect into mainrect
      put item 3 of mainrect/item 3 of designrect into scalew
      put (item 4 of mainrect-statsize)/item 4 of designrect into scaleh
      set the rect of this stack to mainrect
      if item 3 of mainrect>item 4 of mainrect then put "L" into tOrient else put "P" into tOrient    -- save orientation for future dev.
   end if
end setScaling

Code: Select all

on preOpenCard
  if the environment is mobile then
      if field "Template" is empty then
         setSizes
      end if
      send resize to me in 0 millisec
   end if
end preOpenCard

Code: Select all

on setSizes
   local temp,tControls,tMac
   put "" into temp
   put the number of controls into tControls
   repeat with y = 1 to tControls
      put the long name of control y  into tTempName
      put the rect of tTempName into tMac
      if word 1 of tTempName is not "graphic" then
         put tMac&comma&the effective textSize of tTempName into tMac
      end if
      put temp & tMac&return into temp
   end repeat
   put temp into field "Template"
end setSizes

on resize
   local tTempName,tControls,y,tMac
   lock screen
   put the number of controls into tControls
   repeat with y = 1 to tControls
      put the long name of control y  into tTempName
      put word 2 of tTempName into tMac
      put line y of field "Template" into tRect
      if the number of items of tRect=5 then
         put item 5 of tRect into tFont
         put item 1 of tRect&comma&item 2 of tRect&comma&item 3 of tRect&comma&item 4 of tRect into tRect
      end if
      switch
         case word 1 of tTempName="button"
            resizeButton tTempName,tRect,tFont
            break
         case word 1 of tTempName="field"
            resizeField tTempName,tRect,tFont
            break
         case word 1 of tTempName="graphic"
            resizeRect tTempName,tRect
            break
         case word 1 of tTempName="group"
            resizeRect tTempName,tRect
            break
      end switch
   end repeat 
   unlock screen
end resize

on resizeButton tButt, temp,tfSize
   put item 1 of temp*scalew into item 1 of temp
   put item 2 of temp*scaleh into item 2 of temp
   put item 3 of temp*scalew into item 3 of temp
   put item 4 of temp*scaleh into item 4 of temp
   set the rect of tButt to temp
   set the textSize of tButt to round(tfsize*scalew)
end resizeButton

on resizeField tButt ,temp,tfSize
   put item 1 of temp*scalew into item 1 of temp
   put item 2 of temp*scaleh into item 2 of temp
   put item 3 of temp*scalew into item 3 of temp
   put item 4 of temp*scaleh into item 4 of temp
   set the rect of tButt to temp
   set the textSize of tButt to round(tfsize*scalew)
end resizeField

on resizeRect tButt, temp
   put item 1 of temp*scalew into item 1 of temp
   put item 2 of temp*scaleh into item 2 of temp
   put item 3 of temp*scalew into item 3 of temp
   put item 4 of temp*scaleh into item 4 of temp
   set the rect of tButt to temp
end resizeRect