Discussion :

[Invité]

Bonjour,

J'ai une fenêtre (TForm) dans laquelle j'ai placé un TImage en fond (en mode bitmap [.bmp]).

Je voudrais écrire du texte sur ce TImage de façon dynamique et en conservant une transparence du texte écrit. Comme si je posais des TLabel avec la propriété "Transparent = true" sur cette image.

J'ai essayé ceci :

Code :

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

1
2
3
 
this->Img_fond->Canvas->TextFlags = 0; // peut contenir la propriété OPAQUE que je mets à zéro
this->Img_fond->Canvas->TextOutA(50, 50, strChaine_a_ecrire);

Et ça ne fonctionne pas, le fond de l'écriture est un rectangle opaque.


J'ai essayé aussi d'ajouter des TLabel de façon dynamique dans ma fenêtre comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TLabel * pLabel = NULL;
...
if (pLabel == NULL) {
  pLabel = new TLabel(this);
  pLabel->BringToFront();
  pLabel->Caption = strChaine_a_ecrire;
  pLabel->Left = 50;
  pLabel->Top = 50;
  pLabel->Transparent = true;
  pLabel->Refresh();
}

Et ça ne fonctionne pas non plus, je ne vois même pas mon TLabel...

Vous auriez une idée pour résoudre ce problème d'écriture transparente ?

[Neilos]

Pour la version avec le Label, peut être aussi définir la propriété Parent ?
Ou alors il existe mais se trouve derrière l'image et là je ne sais pas trop comment le faire passer devant.

Sinon pour écrire directement sur le canvas :

Code :

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

1
2
3
Img_fond->Canvas->Brush->Style = bsClear;
Img_fond->Canvas->Pen->Style = bsClear;
Img_fond->Canvas->TextOutA(50, 50, strChaine_a_ecrire);

Par contre je ne sais plus s'il faut le faire à chaque fois que ton image est dessinée (OnDraw), je pense que oui.

[Invité]

Oui, pour le TLabel, c'était indiqué dans la FAQ !!!

Le code suivant fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
 
if (pLabel == NULL) 
  pLabel = new TLabel(this);
  pLabel->Parent = this;  //   C'est indiqué dans la FAQ !!!
  pLabel->Caption = strChaine_a_ecrire;
  pLabel->Left = 100;
  pLabel->Top = 0;
  pLabel->Transparent = true;  
}

Je teste l'autre solution avec les couleurs et je reviens.

Merci !

[Invité]

Ouaiiiiis !!! Merci Neilos, ton code fonctionne parfaitement !!!

Ca faisait une heure que je cherchais !!!

Merci !

A+