Рисую линии поверх картинки при перемещении картинки линии исчезают(

[sherlocked]

Подскажите пожалуйста как сделать так чтобы при перемещении картинки линии которые я нарисовал поверх неё закрепились на картинке..ну чтоб картинка вместе с нарисованными линиями перемещалась...
Есть ли вообще такая тема чтоб закрепить линии прямо на картинке или делать так чтоб при перемещении картинки надо отслеживать координаты и отрисовывать линии по ходу перемещения...
так я сделал перемещение картинки(x0 и y0 это координаты курсора во время MouseDown а r и t координаты левого верхнего угла картинки(изначально равны нулям после первого перемещения присваиваю r и t текущие координаты угла картинки, присваивание делаю в обработчике события MouseUp)

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if ssleft in shift then
begin
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Draw(r+(x-x0),t+(y-y0),bmp);
end;

[NetSpace]

тебе надо на картинку наложить компонент PaintBox, В этом компоненте рисовать свои линии. но сам компонент своими размерами должен быть как и картинка

PaintBox1.Width:=Image1.Width;
PaintBox1.Height:=Image1.Height;

и ещё он должен перемещаться вслед за картинкой.

PaintBox1.Top:=Image1.Top;
PaintBox1.Left:=Image1.Left;

причём тебе эту проверку надо сделать в обработчике, когда изменяется положение картинки Image1 на форме. то есть, даже если чуть сдвинул, хоть на пиксель, тут же сдвигать PaintBox и перерисовывать линии.

[sherlocked]

Я создал PaintBox сделал размеры как у Image(я присваиваю размеры в обработчике в которой я картинку загружаю) и этот компонент перемещается вслед за имэджем..только теперь линии вообще не рисуются и перемещение пропало....
вот какие изменения сделал:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if ssleft in shift then
begin
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Draw(r+(x-x0),t+(y-y0),bmp);
PaintBox1.Top:=Image1.Top;
PaintBox1.Left:=Image1.Left;
end;

Вот так я рисую(просто Image1 на PaintBox1 поменял и всё))

PaintBox1.Canvas.Pen.Width:=3;
        PaintBox1.Canvas.Pen.Color:=clred;
        PaintBox1.Canvas.MoveTo(NKX,NKY);
        PaintBox1.Canvas.LineTo(x,y);

может надо как то совместить имэдж с пэинтбоксом или я не знаю как(

[NetSpace]

вот, для примера накидал тебе проект. в Image загружаешь рисунок 123. и компилируешь - на рисунке он тебе отрисует линию чёрную. по нажатию кнопки рисунок переместиться и линия тоже. добавил процедуру перерисовки procedure TForm1.PaintBox1Paint(Sender: TObject);
разберёшься - там не более 30 строк кода

[kropotkina-alice]

Так устроит? Без дополнительных компонентов типа PaintBox и всяких прочих...

var
  Form1: TForm1;
  x0,y0: integer;
  move: boolean;

implementation

{$R *.dfm}

...
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button<>mbLeft then   
move:=False else   
begin   
move:=True;
x0:=x;
y0:=y;
end;
end;

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

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then
Image1.SetBounds(Image1.Left+x-x0, Image1.Top+y-y0, Image1.width, Image1.height);
end;

//Тут в качестве примера просто рисуем линию на Image1
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Pen.Width:=3;
Image1.Canvas.Pen.Color:=clred;
Image1.Canvas.MoveTo(20,20);
Image1.Canvas.LineTo(120,120);
end;