[sinigami]

Добрый день

такая вот проблема, сжимается изображение при перемещении по image, изображение хранится в bitmap'e, картинку перемещаю через copyrect, в чем косяк?

Код:

bm:tbitmap;
 
function hkoef:real;
var
k:real;
begin
k:=form1.imgImage.Width/bm.Width;
hkoef:=round(k*100)/100;
end;
 
procedure TForm1.sbHorScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
var
k:real;
pos:integer;
Rect,rect1:Trect;
begin
if hkoef<1 then
   begin
    k:=form1.sbHor.Position/form1.sbHor.Max;
    k:=round(k*100)/100;
    pos:=round(bm.Width*k);
    if (pos+form1.imgImage.Width)<=bm.Width then
      begin
        Rect:=Bounds(0,0,form1.imgImage.Width,form1.imgImage.Height);
        rect1:=Bounds(pos,0,form1.imgImage.Width+pos,form1.imgImage.Height);
        form1.imgImage.Canvas.CopyRect(rect,bm.Canvas,rect1);
      end;
   end;
end;

Пример:
http://hostingkartinok.com/show-imag...3b321cb6d4be24