Передвижения Image мышкой

[Alexandr17]

Нужно передвигать Image мышкой в событии

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

Но нужно 1
Чтобы имадж передвигался только на 32 пикселя и был всегда по середине мышки дабы событие работало или другое событие но должно происходить в пределах
ScrollBox2

[XE5]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (abs(Image1.Left - (X - Image1.Width div 2)) > 32)
  or
    (abs(Image1.Top - (Y - Image1.Height div 2)) > 32) then
      begin
        Image1.Left := X - Image1.Width div 2;
        Image1.Top := Y - Image1.Height div 2;
      end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form1.MouseMove(Shift, Mouse.CursorPos.X - Left - 9, Mouse.CursorPos.Y - Top - 30);
end;

[Alexandr17]

Нужно все это делать не в пределах формы а в пределах ScrolBox2

[Alexandr17]

не то совсем не то нужно чтобы было семнтрично как обычно в играх

[XE5]

Сообщение от Alexandr17

Нужно все это делать не в пределах формы а в пределах ScrolBox2

А такие условия обычно подкрепляют файлами проекта. ГДЕ?

Сообщение от Alexandr17

семнтрично как обычно в играх

О какой симметрии речь? Если о центре Image, то симметрия центра абсолютно соблюдена. Огромнейшая просьба, не изъясняться загадками, и разжёвывать невнятные объяснения. Будете лениться, буду и я лениться.

[Alexandr17]

пример редактора
https://disk.yandex.ru/public/?hash=...HEzeqa9rQk4%3D
Также как сдесь только в пределах ScrolBox'а

[Аватар]

Поиграйся. Со своими 32 пикселя и по центру сам разбирайся

var tX,tY: Integer;
    tMoved: Boolean;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  tMoved:=True; tX:=X; tY:=Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var xPoint: TPoint;
begin
  if tMoved then begin
    xPoint:=ScrollBox1.ScreenToClient(Image1.ClientToScreen(Point(0,0)));
    xPoint.X:=xPoint.X+X-tX;
    if xPoint.X<0 then xPoint.X:=0
    else if xPoint.X+Image1.Width>ScrollBox1.ClientWidth then xPoint.X:=ScrollBox1.ClientWidth-Image1.Width;
    xPoint.Y:=xPoint.Y+Y-tY;
    if xPoint.Y<0 then xPoint.Y:=0
    else if xPoint.Y+Image1.Height>ScrollBox1.ClientHeight then xPoint.Y:=ScrollBox1.ClientHeight-Image1.Height;
    Image1.Left:=xPoint.X;
    Image1.Top:=xPoint.Y;
  end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  tMoved:=False;
end;

[phomm]

Тут есть вложение, в котором я реализовывал аналогичную идею, но с шейпами, по идее имейджи тоже должны работать. Могу куда-то ещё залить, если на кибере нет реги.

[Alexandr17]

Яндекс диск или Google диск или в скайп Andreylog1004

[Alexandr17]

Мне нужно также как в этом редакторе ну почти. Просто тут используется тайлы картинки а мне надо с Image именно https://disk.yandex.ru/public/?hash=...HEzeqa9rQk4%3D