Edit保存成图片,该怎么解决

Edit保存成图片
有谁能把edit连同里面的内容保存成bmp图像吗？有时edit很小，字符却很长，需要按照字符的长短保存，要求图像完整，谁做过类似的东西，帮帮忙吧

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button20Click(Sender: TObject);var  b1: TBitmap;begin  b1:= TBitmap.Create;  b1.Canvas.Font.Assign(edit1.Font);           // <-- 要放在Set Rect 之前  b1.Width:= b1.Canvas.TextWidth(edit1.Text);  b1.Height:= b1.Canvas.TextHeight(edit1.Text);  b1.Canvas.TextOut(0,0,edit1.Text);  b1.SaveToFile('d:\edit.bmp');  b1.Free;end;