Discussion :

[raoulmania]

Lusa !

Je souhaite pouvoir modifier le texte afficher sur un bouton. En effet j'ai créé une bannière de bouton qui s'adapte à la taille de la fiche. Ainsi quand j'aggrandi ou réduit cette fiche les bouton s'adapte à elle. Or l'écriture présent dans la propriété caption n'est pas tout le temps visible entièrement. Je voulais donc pouvoir mettre le texte sur 2 lignes si le boutons était trop réduit pour pouvoir afficher tout le texte, ou redimensionner l'écriture. Mais je préferrerai la première solution.

Savez vous si cela est possible et comment faire dans ce cas.

Merci

Anthony

[Manopower]

Bonjour afin de mettre un caption de bouton sur plusieurs lignes il suffit de changer cette propriété lors de l'exécution en précisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Button1.caption:='Ce texte de'+chr(10)+chr(13)+'bouton est''+chr(10)+chr(13)+'très long';

et pour une écriture plus lisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Button1.caption:='Ce texte de'+chr(10)+chr(13)+
                            'bouton est'+chr(10)+chr(13)+
                            'très long';

Pour aller plus loin, je te conseille le composant gratuit THtmlButton
qui permet d'écrire le caption en Html et donc de choisir la couleur, la police, la taille, mettre sur plusieurs lignes et ceci en conception, sans coder.

[Bestiol]

Tu peux mettre tes caption sur plusieurs lignes en y insérant un #13 à l'endroit où tu veux passer à la ligne.

Ca ne marche pas avec les TButton, mais avec les TBitBtn par exemple.

[raoulmania]

Avant de passer le texte sur 2 lignes, il faudrait que je sache s'il ne peut rentrer sur une seule sinon c pas la peine. Je veux que quand il y a possibilité de mettre sur une ligne ce soit le cas sinon le texte doit s'adapter à la taille du bouton.

Croyez vous qu'avec la propriété length je pourrait me dépatouiller à le faire pour connaitre la taille du texte.

Aussi comment saurais je où placer le #13 car cela dépend du texte.

Ah oui je voudrai que ce soit applicable à plusieurs boutons.

Pour tout comprendre, je charge ces boutons à partir d'un fichier ini, qui contient le texte des boutons. Donc je ne connas pas la longueur initiale du texte, c'est aléatoire selon les modif des utilisateurs.

[raoulmania]

Au fait j'utilise des TButton alors je mettrai les chr(13) plutôt que #13

[Manopower]

Je pense que tu peux te débrouiller avec un length en prenant en compte environ 10 pixels de largeur de bouton pour 1 caractère

ensuite tu tronques soit brutalement ou alors tu stock dans ton fichier ini une version du libellé sur 2 lignes pour faire propre et mois complexe.

la solution du length est cependant limitée par la taille de la police Windows. Si l'utilisateur change ça, ton application peut devenir toute vilaine

Au fait j'utilise des TButton alors je mettrai les chr(13) plutôt que #13

Hélas (pour toi) Chr(13) est identique à #13 ça ne fonctionne donc pas mieux avec un TButton

Il te reste la solution de remplacer tous tes TButton par des TBitBtn

Dans le .pas :
=> Rechercher remplacer TButton par TBitBtn
Dans le .dfm (clic droit sur ta fiche, voir comme texte)
=> Rechercher remplacer TButton par TBitBtn
Reclique droit sur ce texte, voir comme fiche et hop magie, tous tes boutons sont des TBitBtn

[raoulmania]

donc c'est pas possible de mettre l'affichage sur 2 lignes avec un TButton

[Bestiol]

Eh non, pas avec un TButton...

Mais au fond est-ce si gênant de les remplacer par des TBitBtn ?

Après quoi tu pourras assigner un canvas à un bouton et utiliser la méthode TextWidth pour connaitre la taille en pixels de ton Caption.
Si elle est supérieure à la largeur de ton bouton, alors tu passes sur deux lignes !

[raoulmania]

j'ai remplacé tous les tbutton par des tbitbtn.
Au fait comment peut on faire avec ces bouttons pour éviter de voir des pointillé quand on clique sur eux car avec les tbutton il n'y en avait pas et c'était bien plus joli.

Enfin bon c moins important que l'autre aspect

[Pedro]

Met TabStop à false... Mais c'est bizarre que les TButton ne l'aient pas aussi chez toi ce FocusRect... Si c'est bien de ça que tu parles