[Glob]

нужно попиксельно перенести из одного 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"
что делать?

[NumLock]

так ведь в файле справки написано:

property Canvas: TCanvas;
Provides a drawing surface for embellishing bitmap images.

решение:
нужно картинку перегнать в bitmap.

[Glob]

справку я читал, но не знаю как перегнать в bitmap

[NumLock]

вариантов много. один из них создать TBitmap и на его Canvas отрисовать этот Image:

Код:

  Bitmap: TBitmap;

  Bitmap.Canvas.Draw(0, 0, Image1.Picture.Graphic);

[YVitaliy]

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

вариантов много. один из них создать TBitmap и на его Canvas отрисовать этот Image:

Код:

  Bitmap: TBitmap;

  Bitmap.Canvas.Draw(0, 0, Image1.Picture.Graphic);

Можно же сразу:

Код:

Image1.Canvas.Draw(0,0,Image2.Picture.Graphic);

Автоматически все создастся.