Text Mittig auf ein bild zeichnen

[DeddyH]

Dann noch anders:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var r:trect;
begin
image1.Picture:=image2.Picture;
r:=Rect(0,0,image1.Width,image1.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(trim(edit1.text)),
             -1,
             r,
             DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  end;
  image1.Refresh;
end;