Discussion :

[Hepil]

Bonjour

je travaille sous Delphi 2005
je désire écrire un texte dans un Caption d'un Boutton da façon à ce qu'il soir lu verticalement, comme
C
E
C
I

Qui saurait me dire comment faire ?

[lapec_and_cie]

Salut Hepil,

Je ne vois pas comment tu pourrais faire ça avec le composant classique TButton. Une solution à ton problème serait de travail à partir d'un bouton sous forme d'image au format gif par exemple... Ou alors de créer un autre composant...

Bonne prog,

Chris

[lapec_and_cie]

Salut c'est encore moi,

Essaie peut-être ceci :

Code :

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

Button.caption := 'C' #13#10 'E' #13#10 'C' #13#10 'I';

Je ne sais pas si ceci pourra répondre complètement à tes attentes, mais c'est beaucoup moins fastidieux, alors essaye...

A plus,

Chris

[lapec_and_cie]

C'est encore moi,

Mieux vaut le mettre directement dans le fichier .dfm de ta fiche et là tu tu changes la propriété caption comme ci-dessus :

Code :

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

caption = 'C' #13#10 'E' #13#10 'C' #13#10 'I'

Pour accéder à ton .dfm tu cliques droit sur ta fiche et tu cliques sur la commande voir comme texte...

Et là celà doit fonctionner...

A plus...

[lapec_and_cie]

Juste un dernier complément à mes messages précédents, pour que ceci fonction il faut que tu remplace ton composant TButton par un composant TBitBtn ( dans l'onglet Supplément) sinon celà ne fonctionnera pas...

Allez cette fois c'est la bonne, j'ai fait le test...

A plus,

Chris

[Hepil]

ouhaaaaaaa top cool
je te remercie de tout cela
je teste et reviens ...

[Hepil]

je ne peux pas compiler donc tester ma DLL de suite
Mais, en plaçant le texte 'C' #13#10 'E' #13#10 'C' #13#10 'I' dans la propriété caption du tbitBtn, puis en sauvegardant le dfm, puis en ouvrant le pas relatif au dfm, j'ai un message d'erreur et je perds ensuite tout le design
le message : "Error Creating Form : identifier expectedon line 1421"
c'est la ligne du Caption !

dommage

[sylk974]

en remplacant

caption = 'C' #13#10 'E' #13#10 'C' #13#10 'I'

par

caption := 'C' #13#10 'E' #13#10 'C' #13#10 'I';

c'est pas mieux ?

[sjrd]

Ce qu'il faut surtout c'est supprimer les espaces entre :

Code :

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

Caption = 'C'#13#10'E'#13#10'C'#13#10'I'

[Hepil]

apparemment cette partie du code n'utilise pas les même règles de syntaxe
pas de := mais des =
et pas de ; en fin de ligne

Mais si cela a fonctionné chez lapec_and_cie, alors la vérité doit être ailleur

[lapec_and_cie]

Bonsoir,

Il est vrai qu'il faut enlever les espaces!!!

Je suis désolé mais je ne l'ai pas mentionné dans mon message...

Moi ça marche nickel sur Delphi 2005...

Bonne soirée et bonne prog,

Chris

[Hepil]

bonjour à tous
ça marche enfin avec vos dernières informations
BRAVO et merci à vous

Remarque complémentaire : ce code source dfm parait vraiment être géré par un autre "moteur", quant à la syntaxe et à la manière dont il réagit avec les autres fichier pas. Comment cela fonctionne t-il ?

[lapec_and_cie]

Salut Hepil,

Pour répondreà ta dernière question, je te propose ce petit cours :

http://fbeaulieu.developpez.com/guid....html#tdm2-4-1

Allez,

A plus

Chris

[Hepil]

ok merci je le lirai dans l'avion ...


@ bientôt