Проблема с определением координат

[Roman00710]

Ребята всем привет, проблема встала боком не могу догадаться что делать у я сделал карту на компоненте scrollbox наложен компонент image сделал не профиксенный зум с помощью стрелок вверх и вниз (увеличить уменьшить), и при уменьшении image координаты сбиваются, подскажите как решить эту программу на скринах думаю видно более подробно так же вкладываю код программы, чуть не забыл при уменьшении на один клик координата по X смещается на 6, а по координате Y на 3 примерно. КАК СДЕЛАТЬ ЧТОБЫ ПРИ УМЕНЬШЕНИИ КАРТИНКИ КООРДИНАТЫ НЕ СБИВАЛИСЬ? там в программе я еще строю красный прямоугольник по координатам он строиться все хорошо при любом масштабе а тут капец не понимаю ....

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
Image1: TImage;
TrackBar1: TTrackBar;
Button1: TButton;
Label1: TLabel;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TrackBar1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
oldpos,karpos:Tpoint;
capture:Boolean;
key:char;


implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
capture:=true;
oldpos.x:=x;
oldpos.Y:=y;
end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if capture then
with(sender as Timage) do
begin
left:=left+x-oldpos.X;
top:=top+y-oldpos.Y;
end;
Label1.Caption:='X='+inttostr(x)+'Y ='+inttostr(y);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
capture:=false;
if (x>700)and(x<1200)and(y>990)and(y<1 860)then ShowMessage('Попал!');
end;

procedure TForm1.TrackBar1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
keypreview:=true;
if key=40 then begin

form1.Image1.Width:=form1.Image1.Wi dth-100;
form1.Image1.Height:=form1.Image1.H eight-100;

end;
if key=38 then begin
form1.Image1.Width:=form1.Image1.Wi dth+100;
form1.Image1.Height:=form1.Image1.H eight+100;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('1.bmp' );
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
image1.Canvas.Pen.Color:=clred;
image1.Canvas.Brush.Style:=bsclear;
image1.Canvas.Rectangle(700,990,120 0,1860);
end;

end.

[min@y™]

Это как надо ненавидеть людей, чтобы показывать им такое?

[evg_m]

различать
1. координаты карты(географические)
2. координаты текущей точки ИЗОБРАЖЕНИЯ карты/
3. координаты текущей точки экрана дисплея
и делать преобразования(пересчет).
и сказать наконец какие из перечисленных выше координат сбиваются и когда (при каких действиях).

form1.Image1.Width:=form1.Image1.Wi dth+100;
form1.Image1.Height:=form1.Image1.H eight+100;

Ваша карта(изображение) изначально квадратное?
Нет.
Значит будет(и есть) НЕПРОПОРЦИОНАЛЬНОЕ изменение масштаба (растяжение/ сжатие изображения по горизонтали/вертикали).