VPF::Как "склеить" два Bitmap'a? - Форум программистов

Bodya

Дата 13.7.2004, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

Репутация: нет
Всего: нет

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

<Spawn>

Дата 13.7.2004, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Bodya

Дата 14.7.2004, 06:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

Репутация: нет
Всего: нет

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

geckelberryfinn

Дата 14.7.2004, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 3.12.2003

Репутация: нет
Всего: нет

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

<Spawn>

Дата 14.7.2004, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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;

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »