Как еще можно увеличивать часть изображения

[Vova777]

Как увеличивать часть изображения водя по нему мышью? Увеличенное изображение нужно наблюдать в другом TImage (Image2). Метод CopyRect плохо работает когда подъезжаешь мышью к краю изображения №1. Увеличивать нужно только то, что лежит в Image1.

[ZuBy]

ну сделай обработку, не выезжай за пределы Image1
обычными if then

[fate]

посмотри так тебе нужно, если да выложу код.
трекбаром увеличиваешь-уменьшаешь изображение, как в экранной лупе.
сделано с использованием CopyRect

[Vova777]

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

посмотри так тебе нужно, если да выложу код.
трекбаром увеличиваешь-уменьшаешь изображение, как в экранной лупе.
сделано с использованием CopyRect

да именно так!

[Vova777]

давай код как обещал

[fate]

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var rec:trect;
begin
rec.Left:=x-TrackBar1.Position;
rec.top:=y-TrackBar1.Position;
rec.Right:=x+TrackBar1.Position;
rec.Bottom:=y+TrackBar1.Position;

Image2.Canvas.CopyRect(Image2.ClientRect,Image1.Canvas,rec);
end;