如何文本转换成位图? ( 积分: 100 )

我想把文本文件转换成位图，如何转？转的时候如何控制位图的大小？请大家帮我！谢谢！

我想把文本文件转换成位图，如何转？转的时候如何控制位图的大小？请大家帮我！谢谢！

{$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); //表示距离,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.

谢谢！

接受答案了.