[Resolvido]-Pegar coordenadas de um pixel numa imagem

[neodarkman]

Quando carrego uma imagem num Timage e pego as coordenadas pelo clic do mouse, o sistema me retorna as coordenadas do ponteiro do mouse, mas eu queria pegar as coordenadas reais daquele ponto em particular da imagem original ONDE se encontra o mouse. Como faço isso?

[typo]

Code: [Select]

procedure TForm1.Image1MouseDown(Sender :TObject; Button :TMouseButton;
  Shift :TShiftState; X, Y :Integer);
begin
  Image1.Picture.Bitmap.Canvas.Pixels[x,y] := clRed;
end; 


[neodarkman]

Code: [Select]

procedure TForm1.Image1MouseDown(Sender :TObject; Button :TMouseButton;
  Shift :TShiftState; X, Y :Integer);
begin
  Image1.Picture.Bitmap.Canvas.Pixels[x,y] := clRed;
end; 


Obrigado pela ajuda, mas eu quero é pegar as coordenadas (x,y) reais de um pixel da imagem, não apenas do mouse....

Minha imagem teste tem: 1024x718 (alturaxlargura) mas quando clico nas extremidades dela obtenho 417x291!!!!
Logo ela foi reduzida para caber no Timage... daí  o canvas.pixels parece não retornar as coordenadas reais dos pixels da imagem...

[typo]

Code: [Select]

ShowMessage(FloatToStr(Image1.Width / Image1.Picture.Bitmap.Width));

Se você está usando AutoSize, a imagem está aparecendo em tamnho real e o resultado dessa mensagem será 1. Se Stretch, o resultado será diferente de 1.

Do lado esquerdo você tem a largura do componente, do direito, a da imagem.

[typo]

Code: [Select]

ShowMessage('O valor de X é ' + IntToStr(X) + '. A coordenada X mais próxima da imagem é:' + IntToStr(Round(
                           (Image1.Picture.Bitmap.Width / Image1.Width) * X)));


[neodarkman]

Code: [Select]

ShowMessage('O valor de X é ' + IntToStr(X) + '. A coordenada X mais próxima da imagem é:' + IntToStr(Round(
                           (Image1.Picture.Bitmap.Width / Image1.Width) * X)));


Olá...
Esse código resolveu para mim. Muito obrigado.