Discussion :

[Aloneghost]

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 :

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

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;

[Fabrice ROUXEL 1]

Bonjour

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

Code :

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

NomImage := TImage.Create(self);

puis l'appel :

Code :

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

 DessinRectangeCouleur(NomImage, etc...

cela doit compiler et fonctionner correctement.

[sjrd]

Code :

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

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 !

[Aloneghost]

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 :

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

1
2
 
NomImage:TImage

dans ce cas puis je utiliser

Code :

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

1
2
 
Form1.FindComponent(NomGenereDynamquement)

avec

Code :

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

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

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








Form1.FindComponent

[sjrd]

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 :

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

TImage(Form1.FindComponent('NomDynamique'))

[Aloneghost]

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

Code :

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

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 :

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

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 :

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

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