Discussion :

[Franck26]

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

Code :

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

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.

[Djob]

Code :

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

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 :

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

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 :

Code :

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

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 :

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

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

[Franck26]

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+.