Discussion :

[ducelier]

Bonjour à tous,

J' affiche une chaîne de caractères sur une TpaintBox d'une Tform par l' instruction suivante :

Code :

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

PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');

Comment effacer le résultat de cette instruction ?
Par exemple pour écrire un texte plus court ?
Mrci d' avance,
Cordialement,
Philippe

[parhelie]

Bonjour,

tu dois pouvoir faire ceci:

Code :

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

1
2
3
4
5
6
 
PaintBox2.Canvas.pen.mode := PmXOR;
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
sleep(100);
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
PaintBox2.Canvas.pen.mode := PmCopy

[droggo]

Vie,

Bonjour,

tu dois pouvoir faire ceci:

Code :

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

1
2
3
4
5
6
 
PaintBox2.Canvas.pen.mode := PmXOR;
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
sleep(100);
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
PaintBox2.Canvas.pen.mode := PmCopy

C'est une solution un peu trop primaire, car le texte ainsi écrit sera multicolore selon l'image de fond.

Pour que ce soit propre, il faut gérer ça avec un masque. Je te laisse chercher un peu (c'est ce qu'on fait par exemple pour afficher le curseur de la souris ).

[ducelier]

Bonjour à tous,
Merci à Parhelie et Droggo.
Je suis confus : je n'ai expérimenté que la solution de Pharhelie. Ca ne change rien du tout.
Si j' ai compris quelque chose, le principe était de réécrire la même chaîne dans la couleur de fond ? En fait ça n'a aucun effet.
Où peut-on trouver de la doc sur Textout ?
J'ai trouvé des exemples sous Google, douteux.

Je reformule ma question :
Comment supprimer le résultat d' un Textout. Là le problème est:
Si je fais un premier :

Code :

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

TextOut(x,y,'Voici un rectangle et une ellipse')

il s'affiche bien:

Voici un rectangle et une ellipse

Si je fais un second :

Code :

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

TextOut(x,y,'Effacement')

il s' affiche :

Effacementtangle et une ellipse

Encore merci,
Cordialement,
Philippe

[droggo]

Cao,

C'est normal, tu ne fais pas ce que parhelie t'a dit de faire.

Il faut effacer le 1er texte avant de mettre le nouveau.

[parhelie]

Salut,
Tu es sûr que tu ne peux pas utiliser un composant TLabel? Tu n'aurais alors plus rien à gérer, juste à renseigner son "caption". (pour faire plus simple)

Code :

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

1
2
3
4
5
6
 
TonLabel.caption := 'Voici un rectangle et une ellipse';
sleep(100);
TonLabel.caption := '';
sleep(100);
TonLabel.caption := 'hop!';

La bonne solution est celle de droggo. si d'ailleurs il voulait nous en dire un peu plus... je suis preneur.

[ducelier]

Bonjour,

Cao,
C'est normal, tu ne fais pas ce que parhelie t'a dit de faire.
Il faut effacer le 1er texte avant de mettre le nouveau.

J'ai bien fait :

Code :

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

1
2
3
4
5
PaintBox2.Canvas.pen.mode := PmXOR;
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
sleep(100);
PaintBox2.Canvas.TextOut(xcenter-80,ycenter+50,'Voici un rectangle et une ellipse');
PaintBox2.Canvas.pen.mode := PmCopy

Ca n'efface rien du tout.
Où trouver de la doc sur le fonctionnement de Textout ?

Pour ChPr :

Je n' affecte aucune largeur max à Textout.
Et pour cause : je ne sais pas comment faire.

Encore merci,
Cordialement,
Philippe