2つのbitmapを左右結合して保存したい

解決

cocomo 2010-12-08 01:00:39 No: 39672 IP: 192.*.*.*

a.bmpとb.bmpの画像を左右にくっつけてc.bmpを作成するのは可能でしょうか？
a.bmpとb.bmpの間に空白の空いたc.bmpでも構いません。
過去ログを見てましたが見つからず。
参考なURLだけでも結構です。お願いします。

通りすがり 2010-12-08 01:45:57 No: 39673 IP: 192.*.*.*

表示なのか保存なのか謎ですが
一般的には以下のようになるかと思います
var
a: TBitmap;
b: TBitmap;
c: TBitmap;
x,y: integer;
begin
try
    a:= TBitmap.Create;
    b:= TBitmap.Create;
    c:= TBitmap.Create;

    a.LoadFromFile('a.bmp');
    b.LoadFromFile('b.bmp');
    c.Width := a.Width  + b.Width;
    c.Height:= a.Height + b.Height;

    x:=0;
    y:=0;
    c.Canvas.Draw(x,y,a);
    inc(x, a.Width);
    c.Canvas.Draw(x,y,b);

    c.SaveToFile('c.bmp');

finally
    c.Free;
    b.Free;
    a.Free;
end;

編集削除

cocomo 2010-12-08 10:49:28 No: 39674 IP: 192.*.*.*

ばっちりな、ソースありがとう御座います。

ちなみにbitmap は白黒、減色、サイズを小さくしたかったので
c.Monochrome :=True;
を入れてOKでした。
ありがとうございます。

編集削除