Ho la necessità di scrivere in una drawingArea del testo mediante una for... next che scriva lettera per lettera e, nel caso trovi dei caratteri, scrivere alla riga sopra altre cose.
Io ho utilizzato il draw.fillX e draw.fillY ma non ritorna i valori dopo la scrittura.
FOR a = 1 TO Len(sLine)
IF cnt = 0 THEN
IF Mid(sLine, a, 1) <> "[" THEN
Draw.Text(Mid(sLine, a, 1), lX, lY)
lY = Draw.FillY
lX = Draw.FillX
ELSE
cnt = 1
acc = ""
ENDIF
ELSE
IF Mid(sline, a, 1) <> "]" THEN
acc = acc & Mid(sLine, a, 1)
ELSE
IF Len(acc) > 1 THEN
IF Left(acc, 1) = "A" THEN
acc = "La" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "B" THEN
acc = "Si" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "C" THEN
acc = "Do" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "D" THEN
acc = "Re" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "E" THEN
acc = "Mi" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "F" THEN
acc = "Fa" & Right(acc, Len(acc) - 1)
ENDIF
IF Left(acc, 1) = "G" THEN
acc = "Sol" & Right(acc, Len(acc) - 1)
ENDIF
ELSE
IF Left(acc, 1) = "A" THEN
acc = "La"
ENDIF
IF Left(acc, 1) = "B" THEN
acc = "Si"
ENDIF
IF Left(acc, 1) = "C" THEN
acc = "Do"
ENDIF
IF Left(acc, 1) = "D" THEN
acc = "Re"
ENDIF
IF Left(acc, 1) = "E" THEN
acc = "Mi"
ENDIF
IF Left(acc, 1) = "F" THEN
acc = "Fa"
ENDIF
IF Left(acc, 1) = "G" THEN
acc = "Sol"
ENDIF
ENDIF
draw.Text(acc, lX - 15, lY)
ENDIF
acc = ""
cnt = 0
ENDIF
NEXT