delphi - 在Delphi中裁剪并对齐插入的BMP

我想裁剪并对齐剪贴板中插入的BMP。
我正在尝试2天，但仍无济于事...

procedure TForm1.act1Execute(Sender: TObject);
var
BMP : TBitmap;
begin
BMP := TBitmap.Create;
BMP.Assign(Clipboard);
BMP.SetSize(400,200);
Img1.picture.Graphic := BMP;
BMP.Free;
end;

procedure TForm1.act1Update(Sender: TObject);
begin
(Sender as TAction).Enabled := Clipboard.HasFormat(CF_BITMAP);
end;

end.

最佳答案

如果我理解正确，您是否需要将位图放在Image控件的中央？

很简单-设置Img1.Center := True

要裁剪位图，您需要这样的代码：

    procedure CropBitmap(Bmp: TBitmap; const CropRect: TRect);
    var
      CropBmp: TBitmap;
    begin
      CropBmp := TBitmap.Create;
      try
        CropBmp.Width := CropRect.Right - CropRect.Left;
        CropBmp.Height := CropRect.Bottom - CropRect.Top;
        CropBmp.Canvas.CopyRect(
          Rect(0, 0, CropBmp.Width, CropBmp.Height),
          Bmp.Canvas,
          CropRect
        );
        Bmp.Assign(CropBmp);
      finally
        CropBmp.Free;
      end;
    end;