StringWidth Wrap Incorrect CutOff

[Josh Hague <jhague at koingosw dot com>]

Give it a try... I've reported it to RealSoftware. I didn't do anything 
wrong did I?:
  Dim p As PrinterSetup
  Dim g As Graphics
  Dim b As Boolean
  Dim WrapWidth As Integer
  Dim StringToDraw As String

  p = New PrinterSetup
  b = p.PageSetupDialog

  If b = True Then
    g = OpenPrinterDialog(p)
    If g <> Nil Then
      g.TextFont = "Monaco"
      g.TextSize = 11
      StringToDraw = "welcome to the world of macintosh, isn't this 
great folks? Yes... yes it is... w00t.. yay and all that other fun 
stuff."
      WrapWidth = 300
      g.DrawString StringToDraw, Abs(p.PageLeft), Abs(p.PageTop) + 
g.TextHeight, WrapWidth
      g.FillRect Abs(p.PageLeft),Abs(p.PageTop) + g.TextHeight, 
WrapWidth,10
    End If
  End If


-Josh Hague
jhague at koingosw dot com


---
A searchable archive of this list is available at:
<http://dbserver.realsoftware.com/KBDB/search.php>

Unsubscribe:
<mailto:realbasic-betas-off at lists dot realsoftware dot com>

Subscribe to the digest:
<mailto:realbasic-betas-digest at lists dot realsoftware dot com>
.