LiveCode Forums.

Code: Select all

local xScaler, yScaler

on preopenstack
   if the environment is "development" then
      set the height of me to 762 // 800 - 38 for the toolbar
      set the width of me to 480
      set the top of me to 100
   end if
end preopenstack

on resizestack
   put getRatioX() into xScaler
   put getRatioY() into yScaler
   textSizeSet the long name of this stack
   loadRects the long name of this stack
end resizestack

function getRatioX
   set the itemdel to comma
   put item 3 of the working screenRect into tWidth
   put tWidth / 480 into tRatio
   return tRatio
end getRatioX

function getRatioY
   set the itemdel to comma
   put item 4 of the working screenRect into tHeight
   put tHeight / 800 into tRatio
   return tRatio
end getRatioY

command textSizeSet tStack
   
   repeat with y = 1 to the number of cards of tStack
      repeat with x = 1 to the number of fields of card y of tStack
         if the TextSize of field x of card y of tStack > 0 then
            set the textSize of field x of card y of tStack to the TextSize of field x of card y of tStack * xScaler 
         end if
      end repeat
      repeat with x = 1 to the number of buttons of card y of tStack
         if the TextSize of button x of card y of tStack > 0 then
            set the textSize of button x of card y of tStack to the TextSize of button x of card y of tStack * xScaler 
         end if
      end repeat
   end repeat
   
end textSizeSet

command loadRects tStack
   
      local tRect
      put 2 into tDiv     
      repeat with y = 1 to the number of cards of tStack
         repeat with x = 1 to the number of controls of card y of tStack
            if the long id of control x of card y of tStack begins with "group" then
               set the margins of  long id of control x of card y of tStack to 0
               next repeat
            end if
            if the long id of control x of card y of tStack contains "graphic" then

               set the roundRadius of control x of card y of tStack to (the roundRadius of control x of card y of tStack * xScaler)
            end if
            
            put the rect of control x of card y of tStack into tRect
            put item 1 of tRect * xScaler into item 1 of tRect
            put item 2 of tRect * yScaler into item 2 of tRect
            put item 3 of tRect * xScaler into item 3 of tRect
            put item 4 of tRect * yScaler into item 4 of tRect
            set the rect of control x of card y of tStack to tRect          
         end repeat
      end repeat 

end loadRects