Couleur TImage

salut,
Je cherche à avoir un TImage dont la couleur est Noir.
J'ai donc écris le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Image1 = new TImage(NULL); Image1->Left = 0; Image1->Top = 0; Image1->AutoSize = false; Image1->Transparent = false; Image1->Width = 100; Image1->Height = 100; Image1->Canvas->Brush->Color = clBlack; Image1->Visible = true;

---

Le résultat est un TImage qui apparait Blanc.
Il doit y avoir quelque chose qui m'échappe...
Quelqu'un à t'il une idée ?

Merci.

Citation:

---

Envoyé par Frank26

Code:

---

Image1 = new TImage(NULL);

---

---

cette ligne est étrange ( l'image n'a pas de propriétaire (Owner) )
pour créer un Timage en dynamique , il faut écrire :

Code:

---

1 2 3

TImage * Image1 = new TImage(this); Image1->Parent=this;

---

sinon si ton TImage est déjà sur ta fiche tu n'as pas besoin de l'initialiser , et surtout pas à NULL (car sinon elle ne sera pas détruite automatiquement à la fermeture)

Pour le problème de l'image en blanc :

Citation:

---

Envoyé par Frank26

Code:

---

Image1->Canvas->Brush->Color = clBlack;

---

---

cela definit juste la couleur du pinceau ,
il faut remplir ensuite la zone dessiner par exemple un rectangle plein :

Code:

---

1 2	Image1->Canvas->FillRect(Image1->Canvas->ClipRect);

---

Oui, je ne t'ai pas donné les détailles, l'image est créée dans une class qui ce charge de sa destruction, donc il te manqué des morceau pour le owner et la déclaration de l'image.

Sinon, merci pour la couleur, ça explique pas mal d'autre problémes...

A+.