delphi 给f的png添加水印日期

{
关键字= 给f的png添加水印日期
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 21:58:43
数字签名=C144E2992784F2B20D50DE8FD6575B05
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, jpeg, Menus;

uses
pngimage, Contnrs, strUtils, ShellAPI, FileCtrl;

function makeprint(f, f2: string; waterp: string; cd: tcolor): boolean;
var
png: TPngObject;
bmp: TBitmap;
jpg: TJpegImage;
d: string;
begin
{
给f的png添加水印日期
}
//给f的png添加水印日期
png := TPngObject.Create;
jpg := TJpegImage.Create;
bmp := TBitmap.Create;
png.LoadFromFile(f);
Bmp.Assign(png);

Bmp.Canvas.Brush.Style := bsClear;

Bmp.Canvas.Font.Style := [fsBold];
Bmp.Canvas.Font.Size := 14; //这里设置字体属性；
Bmp.Canvas.Font.Color := clwhite; //这里设置字体属性；
Bmp.Canvas.TextOut(20, bmp.Height - 30, waterp); //X, Y是文字输出的坐标信息；

Bmp.Canvas.Font.Size := 14; //这里设置字体属性；
Bmp.Canvas.Font.Color := cd; //这里设置字体属性；
Bmp.Canvas.TextOut(20 + 1, bmp.Height - 30 - 1, waterp); //X, Y是文字输出的坐标信息；

jpg.Assign(bmp);
jpg.CompressionQuality := 100;

jpg.SaveToFile(f2);
FreeAndNil(png);
FreeAndNil(bmp);
FreeAndNil(jpg);
end;