Coordenadas en una Timage

[erichfrom]

Hola a todos.

Soy un recien iniciado en Delphi, por favor no me hablen con mucho tecnisismo.

Mi problema es el siguiente:

Necesito saber las coordenadas de todas las partes posible de una imagen metida desde Timage (tal vez al poner el cursor encima) y que esta puesta en un FORM, para poner sobre ellas figuras.

Ejemplo: tengo una imagen y sobre ella justo enmedio quiero poner un cuadrado, justo en la esquina inferior derecha quiero poner un circulo, (que apareceran al dar clic en un boton).

[ecfisa]

Hola erichfrom.

Soy un recien iniciado en Delphi, por favor no me hablen con mucho tecnisismo

Entonces mejor te pongo un ejemplo y lo revisas con tranquilidad.

Necesito saber las coordenadas de todas las partes posible de una imagen metida desde Timage

El ejemplo es muy simple, te va mostrando en la propiedad Caption del form las coordenadas X e Y del TImagen al pasar el mouse sobre él.

Un saludo

[erichfrom]

Hola Ecfisa, muchas gracias por tu ayuda.

Descargue el ZIP y tiene solo un archivo sin terminación y cuando lo abro me muestra numero binarios.

Me parece que hubo un problema al comprimir o guardar, podrías revisar por favor.

Gracias.

[ecfisa]

Hola erichfrom.

Me parece que hubo un problema al comprimir o guardar, podrías revisar por favor

Seguramente.

Rehice el ejemplo y te agrego el comprimido de nuevo. (no lo borro hasta que me confirmes que podés descomprimirlo bién)


Un saludo.

[erichfrom]

Que raro, solo hay un archivo sin extención.

[ecfisa]

Hola.

A mi me lo descomprime perfectamente... pero no te preocupes es poco código, aquí lo pongo.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg;

type
  TImage = class(ExtCtrls.TImage);
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Caption:= Format('X:%3d Y:%3d',[X,Y]);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\UNA_IMAGEN.jpg');
  Image1.OnMouseMove:= ImageMouseMove;
  Image1.Stretch:= True;
end;

end.

Para probarlo colocá una imágen en la misma carpeta donde resida el ejemplo o cambiá donde dice 'ExtractFilePath...' por ruta+nombre de imágen.

Un saludo.