[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

[YVitaliy]

Процедура выглядит так: CopyRect(const Dest: TRect; Canvas: TCanvas;
const Source: TRect), тоесть Dest - область назначения, а Source - область источника.

Значит, нужно переставить области местами, ведь

imgImage.Width+pos

, - область будет находится за пределами картинки.
Это во-первых.

Во-вторых,

imgImage.Width+pos

- лишнее, ведь ты используешь функцию Bounds, там нужно передать ширину области, а ты к ширине додаешь еще и pos.


PS. Я бы советовал использовать в данном случае (когда не нужно масштабирования) процедуру Canvas.Draw(X,Y:integer; Graphic:TGraphic)

[sinigami]

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

Процедура выглядит так: CopyRect(const Dest: TRect; Canvas: TCanvas;
const Source: TRect), тоесть Dest - область назначения, а Source - область источника.

Значит, нужно переставить области местами, ведь , - область будет находится за пределами картинки.
Это во-первых.

вот тут все правильно, копирую из битмапа, вставляю в имейдж

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

Во-вторых, - лишнее, ведь ты используешь функцию Bounds, там нужно передать ширину области, а ты к ширине додаешь еще и pos.

вот тут ошибка была, спасибо большое!
я думал что нужно начальные и конечные коры передавать)))