Discussion :

[Invité]

Bonjour,

J'ai un controle TMemo qui contient du texte en police Comic.
Le texte du TMemo contient des caractères tabulation.

Je voudrais imprimer ce TMemo...

J'utilise la méthode : pPrntr->Canvas->TextOut(...

A l'impression, les tabulations s'affichent comme des carrés !!!

J'ai remplacé les tabulations par des espaces avant d'imprimer, c'est mieux, mais je perd tous les alignements et ce n'est pas joli...

Vous auriez une solution pour imprimer mon texte proprement avec ses tabulations ?

[Freeze]

il faut que tu utilises des polices proportionnelles...comme courier new ... par exemple

[Invité]

J'ai trouvé une solution !

Je me suis rendu compte que les personnes qui utilisent Delphi semblent disposer de la méthode "TabbedTextOut" dans l'objet Canvas...
J'ai vu aussi que c'était une API Windows...

Comme je ne l'ai pas trouvée sur Builder, je l'ai recréée.

J'ai écrit une fonction qui "éclate" une chaine contenant des tabulations ("\t") dans un TStringList.

J'utilise ensuite la propriété Canvas->TextWidth(strTexte) pour savoir où je suis sur la page.
J'imprime tous les TStringList->String[nI] par un TextOut en recalant la position sur une tabulation...

Et le tour est joué...

Le résultat est quand même plus joli qu'avec une police non proportionnelle style "Courrier New"