WHOAA,
Now this is a real reason to revamp the Geometry issue in REV for sure.
Thanks, I will look into this solution and apply it in a not so
important stack.
Tom
On Monday, November 10, 2003, at 04:48 PM, Jim Hurley wrote:
> 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
>use-revolution at lists.runrev.com>http://lists.runrev.com/mailman/listinfo/use-revolution>>
Thomas J McGrath III
Advanced Media Group
220 Drake Rd.
Bethel Park, PA 15102
3mcgrath at adelphia.net