bmp.loadfromfile 载入一BMP后使用 bmp.width=bmp.width*3增加了宽度，如何使其中原有图像位于中间呢？

Question

用这种办法增加宽度后会在原始图像右边增加空白区域，如果不加任何设置，原始图像会位于（0，0）处，所有增加的宽度全加到了右边，我现在想在改变了这个BMP的宽度后，使其中原来的图像位于中间，如何做到呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp, tmp: TBitmap;
begin
  tmp := TBitmap.Create;
  tmp.LoadFromFile('D:\del_gdiplus\Demos\Media\Mask1.bmp');
  bmp := TBitmap.Create;
  bmp.Width := tmp.Width * 3;
  bmp.Height := tmp.Height;
  bmp.Canvas.Draw(tmp.Width, 0, tmp);
  tmp.Free;
  Canvas.Draw(0, 0, bmp);
  bmp.Free;
end;