Canvas.TextHeight, Canvas.TextWidth ist das was du suchst
Z.B
Delphi-Quellcode:
with Bild do
begin
Bild := TBitmap.create;
Canvas.Font := edt_text.Font;
Height := Canvas.TextHeight('Dein Text');
Width := Canvas.TextHeight('Dein Text');
transparentcolor := clWhite;
transparent := true;
canvas.TextOut(0,0,edt_text.Text);
end;
Gruß
Neutral General