No soy ningun experto pero proba con esto
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
PaintBox1: TPaintBox;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
PaintBox1.Canvas.Font.Style := [fsBold];
PaintBox1.Canvas.Font.Name := 'Calibri';
PaintBox1.Canvas.Font.Size := 190;
PaintBox1.Color := clWhite;
PaintBox1.Canvas.Rectangle(0, 0, PaintBox1.Width, PaintBox1.Height);
PaintBox1.Canvas.TextOut(PaintBox1.Width div 4, 1, Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
FImage: TBitmap;
FDest, FSource: TRect;
begin
FImage := TBitmap.Create;
try
FImage.Height := PaintBox1.Height;
FImage.Width := PaintBox1.Width;
FDest := Rect(0, 0, FImage.Width, FImage.Height);
FSource := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
FImage.Canvas.CopyRect(FDest, PaintBox1.Canvas, FSource);
FImage.SaveToFile('test.bmp');
finally
FImage.Free;
end;
end;
end.