Discussion :

[Manusm]

Bonjour,

Je suis en train de développer un petit programme et j'ai un souci pour lire la couleur de pixel d'une image contenue dans un TImage...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Image1Click(Sender: TObject);
var point : TPoint;
     bmp : TBitmap;
 
begin
    GetCursorPos(point);
 
    bmp := TBitmap.Create;
    bmp.Assign(image1.Picture.Graphic);
 
    showmessage(IntToStr(bmp.Canvas.Colors[point.x,point.y].blue));
 
end;

Voilà, je voulais déjà voir si ce morceau de code changeait quelque chose lorsque je clique sur l'image mais ça me renvoie toujours la même valeur alors que ce n'est pas la même couleur... Je suis un peu perdu...

Si quelqu'un a déja fait quelque chose du genre je suis preneur.

Merci, bonne journée

[Ph. B.]

Bonjour,

Je suis en train de développer un petit programme et j'ai un soucis pour lire la couleur de pixel d'une image contenu dans un TImage...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Image1Click(Sender: TObject);
var point : TPoint;
     bmp : TBitmap;
 
begin
    GetCursorPos(point);
 
    bmp := TBitmap.Create;
    bmp.Assign(image1.Picture.Graphic);
 
    showmessage(IntToStr(bmp.Canvas.Colors[point.x,point.y].blue));
end;

voila, je voulais deja voir si ce morceau de code changeait quelque chose lorsque je clique sur l'image mais ça me renvoie toujours la même valeur alors que ce n'est pas la même couleur... Je suis un peu perdu...

Si quelqu'un a déja fait quelque chose du genre je suis preneur.

GetCursorPos renvoie les coordonnées de l'écran, pas celles de l'endroit du composant image qui a été cliqué.
Il faut les convertir : point := Image1.ScreenToClient(point);.

Ensuite j'écrirais plutôt (réflexe Delphi) : showmessage(IntToStr(bmp.Canvas.Pixels[point.x, point.y]));

[Manusm]

Alors là merci beaucoup... ça fonctionne parfaitement !