RE: RB2007 and TextSize

["Steve Garman" <realbasic at garman dot demon dot co dot uk>]

>   If sh < shSav Then
>     do
>       g.TextSize = g.TextSize + 1
>       sh = g.StringHeight( "Why", 32000 )
>     loop until sh >= shSav
>   elseif sh > shSav Then
>     do
>       g.TextSize = g.TextSize - 1
>       sh = g.StringHeight( "Why", 32000 )
>     loop until sh >= shSav or g.TextSize = 0
>   end if

Sorry, that should have been:

  If sh < shSav Then
    do
      g.TextSize = g.TextSize + 1
      sh = g.StringHeight( "Why", 32000 )
    loop until sh >= shSav
  elseif sh > shSav Then
    do
      g.TextSize = g.TextSize - 1
      sh = g.StringHeight( "Why", 32000 )
    loop until sh <= shSav or g.TextSize = 0  //Corrected line
  end if
  





-- 
Steve Garman
Using REALbasic Professional on Windows XP Pro


_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>