Centrage d'un texte sur une feuille

Bonjour à Tous

Je souhaiterais savoir si quelqu'un a une astuce pour centrer un String$, venant de la lecture d'un fichier texte, dans une feuille. Ce String$ peut contenir un nombre variable de caractères avec une police donnée.

Y-a-t-il une possibilité de centrer un texte dans un alpha ?

Merci

Pour centrer une phrase dans un memo, c'est assez folklo, car cela dépend beaucoup de la police employée, à la rigueur, on peut employer une police dont la taille des lettres est constante. De toute façon, le truc c'est de placer des espaces devant à raison de la moitié de ce qui reste d'espaces vides après la phrase.
Pour un string dans un alpha, on peut faire pareil, mais il y a une méthode plus simple, il suffit alors de déplacer le left de l'alpha, comme par exemple :

Code:

dim a$ : a$="Abracadabra et abracadabri"
full_space 0
alpha 1
left 1,int((screen_x-len(a$)*6)/2)
caption 1,a$

ou bien :

Code:

dim a$ : a$="Abracadabra et abracadabri"
alpha 1
left 1,int((width(0)-len(a$)*6)/2)
caption 1,a$

PS: le *6, c'est dû à ce que le screen ou width mesure des pixels alors que le len mesure des tailles de lettres.

Merci jjn4,

J'avais déjà essayé cette méthode, mais avec certaines tailles et polices de caractère, le résultat n'est plus correct

C'est vrai que ça dépend dans tous les cas de la taille des lettres.
Il faudrait pouvoir calculer la taille des string en pixels.
Mais là, je ne connais pas de formule.

L'idéal serait de demander à Jack de créer une propriété Alignement pour l'objet Alpha qui prendrait les valeurs Aligné à droite, Aligné à gauche et Centré.

Peut-être que c'est déjà dans ces cartons ?

Il faudrait une fonction qui renvoie la longueur d'un string en pixels, mais ça dépend de la police et de la taille des caractères actuels.
Et ça ne me paraît pas évident du tout avec des polices proportionnelles.

J'ai mis cela dans mes priorités, qui devrait répondre à ta demande:

TEXT_HEIGHT(N,A$) : retourne la hauteur en pixels qu'aurait A$ s'il était imprimé sur l'objet de numéro N, compte tenu de la police du style et de la taille, utilisée pour N
TEXT_WIDTH(N,A$) : retourne la largeur en pixels qu'aurait A$ s'il était imprimé sur l'objet de numéro N, compte tenu de la police du style et de la taille, utilisée pour N

Ca résoudra effectivement le problème du centrage horizontal ou vertical d'un texte dans un objet.

Merci à toi, Jack, pour ces 2 nouvelles commandes