delphi 在指定图片上绘制透明文字


本文整理自网络,侵删。

 function TForm1.DrawPicToStrSave(strFarImg1, strFont1,
strSavePath: string): TBitMap;
var
jp1, jp: TJPEGImage;
bmp_t: TBitmap;
begin
try
jp1 := TJPEGImage.Create;
jp := TJPEGImage.Create;
bmp_t := TBitmap.Create;
try
jp1.LoadFromFile(strFarImg1);
try
if (jp1.Width > 0) or (jp1.Height >0) then begin
bmp_t.Assign(jp1);
bmp_t.Transparent := True;
bmp_t.Canvas.Font.Color :=clRed; // 新建个水印字体颜色
bmp_t.Canvas.Pen.Style:=psClear;
bmp_t.Canvas.Brush.Style := bsClear;
bmp_t.Canvas.Font.Size := 18;
bmp_t.Canvas.Font.Name := 'System';
bmp_t.Canvas.TextOut(0,5,strFont1); // 加入文字
jp.Assign(bmp_t);
jp.SaveToFile(strSavePath);
Result := bmp_t;
end;
bmp_t.Assign(jp);
Image1.Picture.Bitmap.Assign(bmp_t);
finally
if assigned(bmp_t) then
bmp_t.Free;
end;
finally
jp1.Free;
jp.Free;
end;

except
Result := nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DrawPicToStrSave('D:\aa.jpg','delphi网','D:\a1.jpg');
end;

相关阅读 >>

Delphi 中 tjpegimage 中的一处问题修复

Delphi tdictionary 简单用法

Delphi case of

Delphi 获取本地网络连接

Delphi中获取memo鼠标所在位置的行和列

Delphi xe 制作的萤光时钟,可改作屏保

Delphi datasnap http用法注意事项

如何在Delphi中获取字符串字节数?

Delphi int64 与 currency

Delphi 使用windows api(wincrypt)计算文件md5哈希,支持大文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...