.TextOut文字保存为图片

最新推荐文章于 2016-08-10 15:59:09 发布

转载最新推荐文章于 2016-08-10 15:59:09 发布 · 108 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3875827.html

本文介绍了一种使用Delphi的Canvas.TextOut方法将文本绘制到画布，并将其保存为图片的方法。通过创建一个图像对象，设置其宽度和高度与Memo控件相同，然后遍历Memo中的每一行文本，调用TextOut方法绘制到图像上，最后将图像保存为文件。

//Canvas.TextOut文字保存为图片 
//Delphi开发案例精选，使用TextOut在画布上画图

procedure TForm1.Button1Click(Sender: TObject);
var
  My_Image:Timage;
  i:integer;
begin
  try
    My_Image:=Timage.Create(nil);
    My_Image.Width:=memo1.Width;
    My_Image.Height:=memo1.Height;
    for i:=0 to memo1.Lines.Count-1 do
    begin
      My_Image.Canvas.TextOut(0,I*12,memo1.Lines.Strings[i]);
    end;
    My_Image.Picture.SaveToFile(Extractfilepath(Application.ExeName)+'01.bmp');
  finally
    My_Image.Free;
  end;

end;