Discussion :

[Charly910]

Bonjour,

j'ai un TImage (Img1) qui contient un bitmap. il est en Autosize = True, Stretch = True et Align = AlClient.

Je souhaite récupérer la couleur du pixel sous le curseur, dans un Click souris.

Dans le MouseDown de Img1, je récupère X et Y position de la souris. Pour trouver la couleur en X,Y, je fais

Code :

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

1
2
  With F_Img.Img1.Picture.Bitmap.Canvas do
      CouleurPixel:=Pixels[X,Y];

mais je ne récupère pas la bonne couleur. Il y a un décalage des coordonnées.

Comment faire ?

A noter que si Autosize est à False, ça fonctionne bien

Merci

A+
Charly

[Paul TOTH]

tu espères quoi avec Autosize = True, Stretch = True et Align = AlClient ?

AutoSize force le Timage a avoir la taille en pixels de l'image
Strech c'est pour étirer l'image sur la surface du TImage
Align = alClient c'est pour que le TImage prenne la taille de son parent

c'est pas un peu contradictoire tout cela ?!

[SergioMaster]

Il est peut-être possible de trouver le facteur de taille ? Ainsi tu pourrais multiplier les X et Y
Cela écrit ce n'est qu'une piste que je ne vais pas poursuivre

[Charly910]

Ah oui, je me suis trompé, j'ai Stretch = False !

est ce qu'il ne faudrait pas que je copie le Bitmap sur un Bitmap en mémoire qui conserverait peut être les bonnes coordonnées ?

A+
Charly

[Jipété]

Salut,

dans mes ColorPickers, j'utilise

Code :

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

1
2
3
  DC := GetDC(HWND_DESKTOP);
  Couleur := GetPixel(DC, Mouse.CursorPos.x, Mouse.CursorPos.y);
  ReleaseDC(HWND_DESKTOP, DC);

avec

Code :

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

1
2
3
var
  DC: HDC;
  Couleur: TColor;

Enjoy,

[Charly910]

Bonjour,

Voici un code qui fonctionne en corrigeant les coordonnées selon l'idée de SergioMarter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
{ ======================================================================== }
procedure TF_Img.Img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  CouleurPixel : TColor ;
  X1,Y1 : Integer ;
  X2,Y2 : Integer ;
  Coef : Real ;
  Rapport1 , Rapport2 : Real ;
begin
  X1 := Img1.Width ;
  Y1 := Img1.Height ;
  If Y1 >0 Then Rapport1 := X1 / Y1 Else Rapport1 := 0 ;
  If Haut >0 Then Rapport2 := Larg / Haut Else Rapport2 := 0 ;
  // Calcul du coefficient de correction des coordonnées en fonction de la forme de l'image
  // originale par rapport à celle de l'image à l'écren
  If Rapport1 > Rapport2 Then Coef := Haut / Y1
                         Else Coef := Larg / X1 ;
  X2 := Round(X * Coef) ;            //  Coordonnées corrigées
  Y2 := Round(Y * Coef) ;
  // Récupération de la couleur sous la souris
  With F_Img.Img1.Canvas Do     
      CouleurPixel:=Pixels[X2,Y2];
  M1.Color := CouleurPixel ;
end;
{ ======================================================================== }

Je vais maintenant tester la solution de Jipété qui parait plus simple.

A+
Charly

[Charly910]

La solution de Jipété fonctionne admirablement Bien et est beaucoup plus simple.

Merci à tous et en particulier à Jipété !

A+
Charly