.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;

来自为知笔记(Wiz)