Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как "склеить" два Bitmap'a?

Автор: Bodya 13.7.2004, 13:30

Подскажите плиз, как "склеить" два Bitmap'a.

Автор: <Spawn> 13.7.2004, 13:47

Что значит склеить? Разместить два изображения рядом? Попиксельно наложить друг на друга, вычисляя средний цвет? Еще чего нибудь?

Автор: Bodya 14.7.2004, 06:51

Есть например две картинки (на самом деле их намного больше). Нужно сделать из них третию картинку в которой рядом с первой картинкой будет расположена вторая.

Автор: geckelberryfinn 14.7.2004, 08:43

Создай новую картинку с измерениями, равными сумме измерений склеиваемых картинок (например, Новая_высота:=Высота1+Высота2). Скопирую первую картинку в самое начало новой картинкы, т.е. в верхний левы угол (0,0). Это можно сделать разными способами (BitBlt, Render, etc). А вторую анлогочиным образом, только со смещением.

Автор: <Spawn> 14.7.2004, 12:31

uses ..., Math.

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp1, Bmp2, BmpResult: TBitMap;
begin
  try
    Bmp1 := TBitMap.Create;
    Bmp2 := TBitMap.Create;
    BmpResult := TBitMap.Create;
    Bmp1.LoadFromFile('Logo.bmp');
    Bmp2.LoadFromFile('Bitmap1.bmp');
    BmpResult.Width := Bmp1.Width + Bmp2.Width;
    BmpResult.Height := IfThen(Bmp1.Height > Bmp2.Height, Bmp1.Height, Bmp2.Height);
    BitBlt(BmpResult.Canvas.Handle, 0, 0, Bmp1.Width, Bmp1.Height,
           Bmp1.Canvas.Handle, 0, 0, SRCCOPY);
    BitBlt(BmpResult.Canvas.Handle, Bmp1.Width, 0, Bmp2.Width, Bmp2.Height,
           Bmp2.Canvas.Handle, 0, 0, SRCCOPY);
    BmpResult.SaveToFile('1.bmp');
  finally
    FreeAndNil(BmpResult);
    FreeAndNil(Bmp2);
    FreeAndNil(Bmp1);
  end;
end;