| To: | REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com> |
|---|---|
| Subject: | Re: Imprimer sous tous les angles ... |
| From: | Mark Nutter <manutter51 at yahoo dot com> |
| Date: | Fri, 8 Dec 2006 10:28:29 -0800 (PST) |
| Delivered-to: | listarchive at realsoftware dot com |
| Delivered-to: | realbasic-nug dot fr at lists dot realsoftware dot com |
| Domainkey-signature: | a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding:Message-ID; b=H3McVhVlr52e1tuUtd2ZQMWQcE7QQc8J8RLx6D3427wT45hbj8F/prWKs8nyoRUTRildtg/GkeOO7VfbNf7zRFNScwZEYnXz96zfjYrA7w4oiQDVUn9uXeLWhcwl9TJoo/0P5icrP0PraG4X38yNiFKZdNUyAULg1LDFgESxeVI=; |
Je n'ai pas fait l'experience moi-meme, mais Joe Strout a dit
qu'il faut mettre la taille 4x plus grande, et puis reduire par
la meme quantite:
Sub Paint(g As Graphics)
Dim ss As new StringShape
Dim i As Integer
ss.Text = "Bonjour, monde."
ss.TextSize = 40
ss.Scale = 0.25
ss.TextFont = "Arial"
for i = 0 to 179 step 20
ss.Rotation = i / 57.295779578552 // deg -> radian
g.DrawObject ss, 100, 100
next
End Sub
Mark Nutter
Quick and easy regex creation and debugging!
http://www.bucktailsoftware.com/products/regexplorer/
____________________________________________________________________________________
Have a burning question?
Go to www.Answers.yahoo.com and get answers from real people who know.
|
| Previous by Date: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
|---|---|
| Next by Date: | Re: Imprimer sous tous les angles ..., Eric Pousse |
| Previous by Thread: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
| Next by Thread: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
| Indexes: | [Date] [Thread] [Top] [All Lists] |