文本转换成位图
来源:互联网 发布:bim软件revit 编辑:程序博客网 时间:2024/04/23 21:47
{$R *.dfm}
procedure txttojpeg(txt, filename: string; brush_color: tcolor; font: tfont;
font_color: tcolor; width, height: integer);
var
temp: tbitmap;
jpeg: tjpegimage;
i, j: integer;
begin
temp := tbitmap.create;
try
temp.height := height;
temp.width := width;
temp.transparent := true;
temp.canvas.brush.color := brush_color;
temp.canvas.font := font;
temp.canvas.font.color := font_color;
j := 0;
for i := 0 to form1.memo1.lines.count - 1 do
begin
j := j + 15;
temp.canvas.textout(10, j, form1.memo1.lines.strings[i]); //表示距离,top,left.
end;
temp.SaveToFile('c:/1.bmp');
finally
temp.destroy;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
txttojpeg(memo1.lines.text, savedialog1.filename + '.jpg', clwhite, Memo1.Font, clblack, memo1.width, memo1.height);
end;
end.
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3291877
procedure txttojpeg(txt, filename: string; brush_color: tcolor; font: tfont;
font_color: tcolor; width, height: integer);
var
temp: tbitmap;
jpeg: tjpegimage;
i, j: integer;
begin
temp := tbitmap.create;
try
temp.height := height;
temp.width := width;
temp.transparent := true;
temp.canvas.brush.color := brush_color;
temp.canvas.font := font;
temp.canvas.font.color := font_color;
j := 0;
for i := 0 to form1.memo1.lines.count - 1 do
begin
j := j + 15;
temp.canvas.textout(10, j, form1.memo1.lines.strings[i]); //表示距离,top,left.
end;
temp.SaveToFile('c:/1.bmp');
finally
temp.destroy;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
txttojpeg(memo1.lines.text, savedialog1.filename + '.jpg', clwhite, Memo1.Font, clblack, memo1.width, memo1.height);
end;
end.
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3291877
- 文本转换成位图
- 8位位图转换成24位位图
- 8位位图转换成24位位图
- 24位RGB位图转换成1位位图
- 根据文本生成位图
- 文本转换成图片
- 将Bitmmap转换成圆形位图
- 用位图显示文本HelloWorldBitmap
- c#位图转换图标
- 将文本转换成IDirect3DTexture9
- 将文本转换成IDirect3DTexture9
- html转换成纯文本
- 在线文本转换成声音
- 将文本转换成IDirect3DTexture9
- 将文本转换成图片
- 把文本转换成声音
- 用CxImage将BMP位图转换成JPEG格式
- 24位BMP位图转换成ASCII码字符图
- 使用 IPsec 与组策略隔离服务器和域-第 4 章:设计和规划隔离组
- 如何保护地球不挨撞?
- 使用 IPsec 与组策略隔离服务器和域-第3 章:确定 IT 基础结构的当前状态
- 感动中国,洪战辉!
- abstract factory
- 文本转换成位图
- About secondhand laptops
- 写给天堂的铁雁
- 2006世界杯抽签结果
- Thinking in Java习题心得
- 猫吃老鼠问题的单链表解法.
- 征询系统多语种的切换方案
- 使用 IPsec 与组策略隔离服务器和域-第 2 章:了解服务器和域隔离
- Thinking in Java学习笔记