Bild erzeugen mit String und Grafik

[_frank_]

fix getippt und nicht getested

Delphi-Quellcode:

var bmp:TBitmap;
begin
  bmp:=TBitmap.create;
  bmp.LoadFromFile('C:\test.bmp');
  bmp.canvas.Font.Color:=clRed;
  bmp.canvas.Font.Size:=20;
  bmp.canvas.TextOut(10,10,'Test');
  bmp.SaveToFile('C:\Test2.bmp');
  bmp.free;
end;

HTH Frank