[sinigami]

Добрый день

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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.

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