Yes, the buffer solves the problem. There is discussion about it in the Rotated Text thread from Dec 2004.
On 2/2/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > > Thanks Paul, but how does this solve the problem? It still relies on the > stringshape. (My method did not.) Is it the fact that you're drawing to a > buffer > then to the main graphic? > Greg > > > Sub DrawVerticalString(g As graphics, Text1 As String, XPos As Integer, > > YPos > > As Integer, iScale As Integer=3D1) > > Dim StrSh as New StringShape > > Dim p as picture > > Dim h, w As Integer > > StrSh.Text=3DText1 > > StrSh.TextFont=3D"Times New Roman" > > StrSh.TextSize=3Dapp.DefFontSize*iScale > > StrSh.Rotation=3DToRad(270) > > StrSh.FillColor=3DRGB(0,0,255) > > g.TextFont=3DStrSh.TextFont > > g.TextSize=3DStrSh.TextSize > > h=3Dg.stringWidth(StrSh.Text) > > w=3Dg.textHeight > > p=3DnewPicture(w,h,32) > > p.graphics.DrawObject StrSh, 3*iScale+w/2, h/2 > > g.DrawPicture p, XPos-2*iScale-w/2, YPos-h/2 > > End Sub > _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
