De string a bmp

Quisiera saber como puedo guardar en bmp, jpeg, o tiff, un string que tengo en
Un memo.
Estoy utilizando delphi.

1 respuesta

Respuesta
1
Este es un ejemplo usando un procedimiento buttonclick
Inicia Delphi, agrega un botón a tu formulario, doble click en el botón para hacer un event handler.. y reemplaza el código con esto.
Va a salvar el texto que esta en la edit box a un fichero llamado TxtBmp.bmp ... Lo podes adaptar a tus necesidades.
procedure TForm1.Button1Click(Sender: TObject);
var MyBmp: tbitmap;
begin
MyBmp := TBitmap.Create;
Try
With MyBmp Do
Begin
Canvas.Font.Assign(Edit1.Font);
Width := Canvas.TextWidth(Edit1.Text);
Height := Canvas.TextHeight(Edit1.Text);
Canvas.TextOut(0, 0, Edit1.Text);
SaveToFile('C:\TxtBmp.bmp');
End;
MyBmp.Free;
end;
end;

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas