以前老师的代码，如何改成左右拼接，谢谢

[xld2001]

p1 = NewObject('gpBitmap', Home(1)+'ffc\_gdiplus')
p1.CreateFromFile(GetPict('', '底图图片(&N):'))
p2 = NewObject('gpBitmap', Home(1)+'ffc\_gdiplus')
p2.CreateFromFile(GetPict('', '叠加图片(&N):'))
og = NewObject('gpGraphics', Home(1)+'ffc\_gdiplus')
og.CreateFromImage(p1)
og.DrawImageAt(p2, Max(0,p1.imagewidth-p2.imagewidth)/2, Max(0,p1.imageheight-p2.imageheight)/2)
p1.SaveToFile(Putfile('保存为(&N):','合成的图片','bmp'),"image/bmp")