Text Mittig auf ein bild zeichnen

[seppi.tm]

Keine blanks

hier der anufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var r:trect;
begin
image1.Picture:=image2.Picture;
r:=Rect(0,0,image1.Picture.Width,image1.Picture.Height);
 with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlack;
    Brush.Style := bsclear;
    Font.Size   := 10;
    Font.Name   := JvFontComboBox1.FontName;
    Font.Style  := [fsBold];
    DrawText(image1.Canvas.Handle,Pchar(edit1.text),length(edit1.Text),r,DT_CENTER );
  end;
  image1.Refresh;
end;