仿玉石浮雕效果
var
bmp, bmp1: TGpBitmap;
g: TGpGraphics;
begin
bmp := TGpBitmap.Create(' \56-1.jpg');
bmp1 := TGpBitmap.Create('56-1.jpg');
g := TGpGraphics.Create(Handle, False);
// 画原图
g.DrawImage(bmp, 0, 0, bmp.Width, bmp.Height);
// 分别以5和10的浮雕深度处理同一张图片
GdipSolidSculpture(bmp, 45, 5, $AEC0C8);
g.TranslateTransform(bmp.Width + 1, 0);
g.DrawImage(bmp, 0, 0, bmp.Width, bmp.Height);
GdipSolidSculpture(bmp1, 45, 10, $AEC0C8);
g.TranslateTransform(bmp.Width + 1, 0);
g.DrawImage(bmp1, 0, 0, bmp.Width, bmp.Height);
bmp1.Free;
g.Free;
bmp.Free;
end;
图案填充浮雕效果测试：
var
bmp, FillBmp: TGpBitmap;
g: TGpGraphics;
begin
// 装入原始图片
bmp := TGpBitmap.Create(56-3.jpg');
// 装入填充图片
FillBmp := TGpBitmap.Create('back-5.jpg');
g := TGpGraphics.Create(Handle, False);
g.DrawImage(bmp, 0, 0, bmp.Width, bmp.Height);
GdipTextureSculpture(Bmp, 50, 7, Fillbmp);
g.TranslateTransform(bmp.Width + 1, 0);
// 画图案填充浮雕效果图
g.DrawImage(bmp, 0, 0, bmp.Width, bmp.Height);
Fillbmp.Free;
g.Free;
bmp.Free;
end;
迅雷专用高速下载
