Effacer le résultat d'un textout ?

Version imprimable

13/05/2009, 12h50
ducelier

Effacer le résultat d'un textout ?

Bonjour à tous,

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

Code:

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:oops:

Bonjour,

tu dois pouvoir faire ceci:

Code:

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

Vie,
Citation:
Envoyé par parhelie
Bonjour,

tu dois pouvoir faire ceci:
Code:

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 :)).

14/05/2009, 20h06
ducelier

Effacer le résultat de TextOut

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 ? :oops: 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:

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

il s'affiche bien:

Citation:

Voici un rectangle et une ellipse

Si je fais un second :

Code:

TextOut(x,y,'Effacement')

il s' affiche :

Citation:

Effacementtangle et une ellipse

Encore merci,
Cordialement,
Philippe
14/05/2009, 23h48
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.
15/05/2009, 12h23
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:

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.
15/05/2009, 17h16
ChPr

Une méthode bourrin, mais efficace consiste à écrire une chaine composée de caractères "espace" avant de réécrire autre chose.

Le nombre de caractères "espace" correspondant à la largeur max que tu as affecté à ton "textout.

Cordialement.

Pierre
15/05/2009, 18h21
droggo

Foa,

Citation:

Envoyé par ChPr

Une méthode bourrin, mais efficace consiste à écrire une chaine composée de caractères "espace" avant de réécrire autre chose.

Le nombre de caractères "espace" correspondant à la largeur max que tu as affecté à ton "textout.

Cordialement.

Pierre

Pas si on a écrit sur une image. :)

Citation:

Envoyé par droggo

Vie,
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 :)).

Désolé, je pensais à autre chose.

La bonne solution est :

1) On veut écrire sur un fond uni :

- On écrit,

- Et pour effacer, on trace un rectangle rempli de la couleur du fond, rectangle dont la taille correspond à la zone occupée par le texte.

2) On veut écrire sur une image :

- On sauve le rectangle de l'image où le texte va s'écrire.

- On écrit.

- Et pour effacer, on recopie la zone d'image sauvegardée.

Et ATTENTION : ne pas oublier de libérer la mémoire occupée pour la sauvegarde de la zone de l'image une fois qu'on n'en a plus besoin. :)

(Avec variante : pour effacer, on peut recharger carrément toute l'image, ce qui dispense de la sauvegarde de la zone concernée, mais peut s'avérer lourd en temps d'exécution).

Bonjour,

Citation:

Envoyé par 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.

J'ai bien fait :
Code:

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

15/05/2009, 20h17
parhelie

Citation:

Ca n'efface rien du tout.

En effet, je suis désolé et je n'avais pas vérifié! Pen n'a aucun effet sur TextOut!

Citation:

Où trouver de la doc sur le fonctionnement de Textout ?

J'ai bien compris la question mais à part mon vieux guide du developpeur Delphi, qui n'a pas la réponse à ton problème, je n'en sais rien.
Il te reste à mon avis à suivre Droggo et son CopyRect, ou utiliser un label si tu es un peu paresseux et pas trop exigeant pour l'image de fond.
Bon courage.
15/05/2009, 20h46
ChPr

droggo a raison, ma méthode n'est valable que si l'on écrit sur un espace réservé à l'écriture. Elle n'est pas valable sur une image.

Si l'on ne veut pas avoir de problème, d'une manière générale, la méthode qu'il propose est la bonne.

Ou alors, passer par les objets, mais là, c'est beaucoup plus lourd.

Cordialement.

Pierre

Bonjour,

Citation:

Envoyé par droggo

Foa,

Pas si on a écrit sur une image. :)

Désolé, je pensais à autre chose.

La bonne solution est :

1) On veut écrire sur un fond uni :

- On écrit,

- Et pour effacer, on trace un rectangle rempli de la couleur du fond, rectangle dont la taille correspond à la zone occupée par le texte.

2) On veut écrire sur une image :

- On sauve le rectangle de l'image où le texte va s'écrire.

- On écrit.

- Et pour effacer, on recopie la zone d'image sauvegardée.

Et ATTENTION : ne pas oublier de libérer la mémoire occupée pour la sauvegarde de la zone de l'image une fois qu'on n'en a plus besoin. :)

(Avec variante : pour effacer, on peut recharger carrément toute l'image, ce qui dispense de la sauvegarde de la zone concernée, mais peut s'avérer lourd en temps d'exécution).

Finalement j'ai écrit celà :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 MyRect := Rect(10,10,100,100); PaintBox2.Canvas.Font.Color := clGreen; PaintBox2.Canvas.TextRect(MyRect,10,10,'Bonjour Tous!'); Sleep(2000); { PaintBox2.Canvas.Font.Color := clNone; } { PaintBox2.Canvas.TextRect(MyRect,10,10,'Bonjour Tous!'); } PaintBox2.Canvas.Brush.Color := PaintBox2.Color ; PaintBox2.Canvas.Fillrect( MyRect); Sleep(2000); PaintBox2.Canvas.Font.Color := clRed; PaintBox2.Canvas.TextRect(MyRect,10,10,'Salut !');
Les deux solutions fonctionnent.
Est-ce que ça correspond à la solution 1/ de Droggo ?
Les autres conseils m' ont appris des choses.
Textout n' a pas l' air très pratique.
Merci à tous,
Cordialement,
Philippe