Ecrire verticalement en mode graphique

[AdR76790]

Bonjour tout le monde.

La question est dans le titre, je n'arrive pas à écrire verticalement en mode graphique.

J'ai cherché dans mes cours et sur ce site la réponse à cette question, pourtant toute bête, sans succès

Quelqu'un aurait une idée ?

Merci d'avance

Cordialement

AdR

[darrylsite]

http://www.freepascal.org/docs-html/...textstyle.html

http://www.cybwarrior.com/2002/03/tu...h-et-le-texte/

[titeeee]

essai de découper ta chaîne en lettre (char) et comme tu les écrit une par une avec la fonction OutTextXXy

ça devrait donner

Code :

1
2
3
4
5
 
for i := 1 to length(mot)
begin
  outtextxy(mot[i], X, i +tailleLettre)
end;

x ne change pas

esperant t'avoir aidé

[titeeee]

Ma méoire revient !
Il y a 2 constantes :
- HorizDir
-VertiDir

Pour les directions. Après il faut que tu modifie les paramètre du texte : SetTextStyle il me semble