Coordenadas en una Timage

[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.