Image so gross machen das ein String genau reinpasst.

[Sharky]

Hai,

ich möchte ein Image (TImage) erzeugen das genau die Breite eines Strings hat den ich darauf zeichnen möchte.

Auf meiner Form sind:

1 Button
1 Edit
1 Image

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);

var
 MyRect             : TRect;

begin
 Image1.Canvas.Font.Size := 10;
 MyRect.Left := 0;
 MyRect.Top := 0;
 MyRect.Right := Image1.Canvas.TextWidth(Edit1.Text) + 5;
 MyRect.Bottom := Image1.Canvas.TextHeight(Edit1.Text) + 2;
 Image1.BoundsRect := MyRect;
 Image1.Canvas.TextOut(0, 0, Edit1.Text);
 Label1.Caption := Format('Das Image ist %d Pixel breit', [Image1.width]);
end;

Aber die Breite des Images wird nicht angepasst

Hat jemand eine Idee?