Procedure de colorisation

bonsoir à tous, mon programme colore souvent des zones bien particulieres selon des rexctangles, voila donc pourquoi j'ai créé une procédure, que j'ai directement calqué de l'aide Delphi. mais cette derniere ne veux pas marcher, et je ne comprend pas vraiment pourquoi... donc je vous la présente, je suis certain que ce n'est pas grand chose...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Procedure DessinRectangeCouleur(NomImage:String;x1,x2,y1,y2:integer;Color:TColor); var MyRgn: HRGN ; begin MyRgn := CreateRectRgn(x1,x2,y1,y2); SelectClipRgn(TImage(NomImage).Canvas.Handle,MyRgn); TImage(NomImage).Canvas.Brush.Color := Color; TImage(NomImage).Canvas.FillRect(TImage(NomImage).Canvas.ClipRect); TImage(NomImage).Invalidate; SelectClipRgn(TImage(NomImage).Canvas.Handle,nil); DeleteObject(MyRgn); end;

---

Bonjour

Si ailleurs dans le code tu a bien un truc du genre:

Code:

---

NomImage := TImage.Create(self);

---

puis l'appel :

Code:

---

DessinRectangeCouleur(NomImage, etc...

---

cela doit compiler et fonctionner correctement.

Code:

---

NomImage:String

---

Tu dois déclarer ce paramètre comme étant un TImage, et non une string ;)
Le transtypage que tu fais plus loin est totalement abhérent ! Tu essaies de transformer une chaîne de caractère en objet !

Je m'explique, mon application genere dynamiquement des TImages, je dois donc dessiner des rectangles de couleurs sur ces dernieres, mais je dois faire ceci en fonction de leur nom qui est créé dynamiquement.
Si j'utilise

Code:

---

1 2	NomImage:TImage

---

dans ce cas puis je utiliser

Code:

---

1 2	Form1.FindComponent(NomGenereDynamquement)

---

avec

Code:

---

1 2	DessinRectangeCouleur(Form1.FindComponent('NomDynamique'),x,x2,y1,y2;Color);

---

comme valeur dans l'appel de ma procédure?








Form1.FindComponent

Oui, à la nuance près qu'il te faut transtyper le résultat renvoyé par FindComponent en TImage, puisque cette méthode renvoie un TComponent. Tu as donc :

Code:

---

TImage(Form1.FindComponent('NomDynamique'))

---

Voila j'ai modifié ma procédure de cette maniere

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Procedure TForm1.DessinRectangeCouleur(Image:TImage;x1,x2,y1,y2:integer;Color:TColor); var MyRgn: HRGN ; begin MyRgn := CreateRectRgn(x1,x2,y1,y2); SelectClipRgn(TImage(Image).Canvas.Handle,MyRgn); TImage(Image).Canvas.Brush.Color := Color; TImage(Image).Canvas.FillRect(TImage(Image).Canvas.ClipRect); TImage(Image).Invalidate; SelectClipRgn(TImage(Image).Canvas.Handle,nil); DeleteObject(MyRgn); end;

---

et le compilateur refuse la compilation sur cette ligne

Code:

---

1 2	SelectClipRgn(TImage(Image).Canvas.Handle,nil);

---

en me disant "Types incompatible 'HRGN' et 'pointer'" alors qu'il ne me signale aucune erreur pour cette ligne...

Code:

---

1 2	SelectClipRgn(TImage(Image).Canvas.Handle,MyRgn);

---

Bon je suis désolé, je suis absolument certain que c'est une erreur bete, mais je programme en amateur assez ponctuellement par plaisir donc...

merci :)

Salut

Essaies comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.DessinRectangeCouleur(Image: TImage; x1,x2,y1,y2: integer; Color: TColor); var MyRgn: HRGN ; begin MyRgn := CreateRectRgn(x1, x2, y1, y2); if SelectClipRgn(Image.Canvas.Handle, MyRgn) <> ERROR then begin Image.Canvas.Brush.Color := Color; Image.Canvas.FillRect(Image.Canvas.ClipRect); Image.Invalidate; SelectClipRgn(Image.Canvas.Handle, NULLREGION); end; DeleteObject(MyRgn); end;

---

@+ Claudius

Cl@udius mon Héro!
Deuxième topic sur lequel tes lumières viennent éclairer ma triste vie de piètre programmeur amateur :p

Remilles mercis!