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