нужно попиксельно перенести из одного Timage в другой. делаю вот так:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var i,k:Integer;
begin
Image2.Picture.LoadFromFile('c:\wget\convert\38985\21553.png');
for i:=0 to 100 do
for k:=0 to 100 do
Image1.Canvas.Pixels[i,k]:=Image2.Canvas.Pixels[i,k];
end;
но выдает ошибку "can only modify an image if it contains a bitmap"
что делать?