voiloa la procedure avec ses parametres
Avec cela tu peux tout modifier: la police,la taille, la couleur, le
rayon du cercle ....
//=====================
// Parametre à passer à la fonction
//====================
//=== Extends g as graphics, S as String, x as integer, y as
integer, ray as double, centerAngle as double, ClockWise as Boolean
//== =======================
Dim w, h as integer, alpha, hcw as double
Dim i,n,sens,lo1,lo2 as integer
Dim char as New StringShape, c as String
w = g.StringWidth(S)
h = g.StringHeight(S,w+50)
sens = 1
if not ClockWise then sens = -1
alpha = sens*(centerAngle - w / (2*ray))
n = len(S)
char.Bold = g.Bold
char.Italic = g.Italic
char.Underline = g.Underline
char.TextFont = g.TextFont
char.TextSize = g.TextSize
char.fillColor = Couleurs
For i = 1 to n
char.Text = mid(S,i,1)
hcw = g.StringWidth(char.Text ) / (2*ray)
alpha = alpha + hcw*sens
char.Rotation = alpha
lo1 =x+ray*sin(alpha)*sens
Lo2 = y-ray*cos(alpha)*sens
g.DrawObject char, x+ray*sin(alpha)*sens, y-ray*cos(alpha)*sens
alpha = alpha + hcw*sens
Next
|