Assistance with Pen Position on Bitmap Canvas

[LEICJDN1]

Hi,

Am attempting to log a file of coordinates with each mouse click. Have bitmap loaded as Image1. OnMouseMove works fine and displays constant coordinates as mouse moves over image.
However, cannot seem to get OnMouseClick event to work correctly. Need it do log the X and Y at the position of the click into two variables which will be save and also displayed on the screen.

Any help appreciated.

Thanks

 

[Stretchwickster]

Use the OnMouseDown event of the TImage, becuase it supplies you with the x and y coordinates relative to the top-left of the image

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Showmessage('X: ' + inttostr(X) + ' Y: ' + inttostr(Y));
end; Clive [infinity]

 

[Stretchwickster]

Forgot to offer some file writing code!

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  CursorPositionFile: TextFile;
begin
  Showmessage('X: ' + inttostr(X) + ' Y: ' + inttostr(Y));
  Assign(CursorPositionFile, C:\temp\CursorPos.txt)
  Rewrite(CursorPositionFile);
  Writeln(CursorPositionFile, 'X=' + IntToStr(X) + ' Y=' + IntToStr(Y));
  CloseFile(CursorPositionFile);
end;

Clive

 

[LEICJDN1]

Thank you,

worked a treat!