Re: Two questions, auto-scaling

[Jim Hurley]

What follows is a solution of desperation. I found that the best 
solution for me on the stack I am currently working on was to just 
let the user resize the window to fit his or her needs. It was easier 
than using RR built-in geometry utilities.

This requires scaling everything (all controls) when the stack is resized.

Fields are treated differently. When the fields are scaled, the text 
may not fit, so for these I scale the font size as well (unless there 
is a vertical scrollbar in which case I only scale the rect).

Caution: I hesitate to offer this. Use with care. It works for me but 
I have not tested it widely.

Jim

Place in the stack script:

local scaleX,scaleY

on resizeStack x,y, xold,yold
  lock screen
  repeat with i = 1 to the number of cards
    go to card i
    doResize x,y,xold,yold
  end repeat
  go to recent card
  unlock screen
end resizeStack
 on doResize x,y,xold,yold
  put x/xold into scaleX
  put y/yold into scaleY
  doScaling
  sizeFontToFit
end doResize
on doScaling
  repeat with i = 1 to the number of controls
    put the name of control i into tControl
    put the rect of  tControl into tRect
    repeat with j =1 to 4
      multiply item j of tRect by item oneOrTwo(j) of (scaleX,scaleY)
    end repeat
    set the rect of tControl to tRect
  end repeat
end doScaling
function oneOrTwo k
  return 2 - (k mod 2)
end oneOrTwo
on sizeFontToFit
  repeat with n = 1 to the number of fields
    if the vScrollbar of field n is true then next repeat
    put the width of field n into tWidth
    put the textFont of field n into tFont
    put the fontsizes of tFont into tSizeList
    repeat with i = 1 to the number of lines in tSizeList
      set the textsize of field n to line i of tSizeList
      if  the formattedwidth of field n > tWidth then exit repeat
    end repeat
    set the height of field n to the formattedheight of field n
  end repeat
end sizeFontToFit
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution