Delphi图像处理 －－ 表面模糊

var
  bmp: TGpBitmap;
  g: TGpGraphics;
  data: TImageData;
begin
  bmp := TGpBitmap.Create('..\media\source1.jpg');
  g := TGpGraphics.Create(Canvas.Handle);
  g.DrawImage(bmp, 0, 0);
  data := LockGpBitmap(bmp);
  SurfaceBlur(data, 3, 10);
  UnlockGpBitmap(bmp, data);
  g.DrawImage(bmp, data.Width + 8, 0);
  g.Free;
  bmp.Free;
end;