C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
我要做个程序将输入的字体生成图片（jpg）当时字体变大后就不是矢量的了，
还有如何控制字体间距啊，能否给出源代码？谢谢！我用的是Image1.Canvas对吗？
请高手赐教。
还有如何控制字体间距啊，能否给出源代码？谢谢！我用的是Image1.Canvas对吗？
请高手赐教。
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
1。将Image1的图像存为JPG格式
var
MyJpeg: TJpegImage;
begin
MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpeg object
MyJpeg.CompressionQuality:=StrToInt('75');
MyJpeg.Compress;
MyJpeg.SaveToFile('c:/windows/desktop/test.JPG'); // Save the JPEG to Disk
MyJpeg.Free;
end;
2。设置字符间距可用SetTextCharacterExtra函数，例如：
SetTextCharacterExtra(Image1.Canvas.Handle, 15);
Image1.Canvas.TextOut(0, 0, '每个字符间隔15象素');
var
MyJpeg: TJpegImage;
begin
MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpeg object
MyJpeg.CompressionQuality:=StrToInt('75');
MyJpeg.Compress;
MyJpeg.SaveToFile('c:/windows/desktop/test.JPG'); // Save the JPEG to Disk
MyJpeg.Free;
end;
2。设置字符间距可用SetTextCharacterExtra函数，例如：
SetTextCharacterExtra(Image1.Canvas.Handle, 15);
Image1.Canvas.TextOut(0, 0, '每个字符间隔15象素');
C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢shaofun！还有关于字体失真的问题如何解决？到时候一起给分
S
shaofun
Unregistered / Unconfirmed
GUEST, unregistred user!
生成图片后再放大的话当然要失真了，只有把字体放大后再写入图片才能确保不失真
C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
不对，就是不同宋体，选择初号、一号再显示就不对了
M
maming
Unregistered / Unconfirmed
GUEST, unregistred user!
我在这方面可以说是个空白，得教于两位了，
请问你用这种方法是做什么程序呢？是不是在做报表打印的时候用？
请问你用这种方法是做什么程序呢？是不是在做报表打印的时候用？
C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
不是，就是解决编辑发文字图片时，不要再用photoshop了
孔
孔枫
Unregistered / Unconfirmed
GUEST, unregistred user!
踢一下，继续讨论
C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
现在我遇到另外一个问题。如何将一张图片作为水印加到另一张图片上[
]
]
C
chy.com
Unregistered / Unconfirmed
GUEST, unregistred user!
aaa