сохранить в BMP из Image

[Toxa]

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

[SteelRat]

Как накладывая? Если непосредственно, то сохраняй сразу второй файл. =)

[Toxa]

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

Как накладывая? Если непосредственно, то сохраняй сразу второй файл. =)

у меня на форме 2 имеджа, на одном фон(карта города), а на втором я рисую(закрашиваю районы) в итоге получаются закрашенные в разные цвета районы и мне результат(карту с раскрашенными районами) надо сохранить в файл BMP

[rpy3uH]

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

for i:=0 to ....по x
 for j:=0 to  ....по y
   image3.canvas.pixels[i,j]:=image1.canvas.pixels[i,j] or image2.canvas.pixels[i,j];

поэкспериментруй с XOR или AND

[Voland]

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

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

for i:=0 to ....по x
 for j:=0 to  ....по y
   image3.canvas.pixels[i,j]:=image1.canvas.pixels[i,j] or image2.canvas.pixels[i,j];

поэкспериментруй с XOR или AND

Здорово придумал, да. Знаешь как медленно это будет? Есть стандартные методы наложения. Canvas.CopyMode Вот примерный код:

procedure CombineImages;
begin
  with TBitmap.Create do begin
    Width:=Image1.Width;
    Height:=Image1.Height;
    Canvas.Draw(0, 0, Image1.Picture.Bitmap);
    Canvas.CopyMode:=cmSrcAnd; // <-- с этим поэкспериментируй
    Canvas.Draw(0, 0, Image2.Picture.Bitmap);
    SaveToFile('result.bmp');
    Free;
  end;
end;