Delphi. Image и пиксели никак не хотят работать правильно (
На форме есть 2 объекта - Image1 и Image2, в первый предварительно загружена картинка.
Мне нужно, чтобы в Image2 появилась хотя бы часть картинки Image1, причём переносить надо по пикселям.
Если пойму, как это делать - смогу решать более сложные задачи, стоящие передо мной.
Код при создании формы:
image2.Canvas.Create;
Основной код:
var i,k:word;
c:tcolor;
begin
for i:=1 to 60 do
for k:=1 to 60 do
begin
c:=form1.Image1.Picture.Bitmap.Canvas.Pixels[i,k];
form1.image2.Picture.Bitmap.Canvas.Pixels[i,k]:=c;
end;
Но на второй картинке появляется только чёрный квадрат.
Где я ошибаюсь? Уже пробовал это задачу примерно пятью способами, на форумах лазил, со ScanLine возился.. .
Желательно конечно было бы через ScanLine сделать, но сначала хотя бы через Pixels...