Text Mittig auf ein bild zeichnen

[DeddyH]

Willst Du direkt auf das Image oder auf die enthaltene Bitmap zeichnen?

[seppi.tm]

auf das bitmap ^^ also nicht die datei sondern das was ich sehe wieso?

[DeddyH]

Delphi-Quellcode:

DrawText(image1.Picture.Bitmap.Canvas.Handle,Pchar(edit1.text),length(edit1.Text),r,DT_CENTER );

So besser?

[seppi.tm]

Genau das selbe problem und dabei auch:

Delphi-Quellcode:

TextOut(round( (image1.picture.Width/2)-(TextWidth(edit1.Text)/2) ),1,edit1.Text);

und string habe icha cuhs chon direkt eingetragen ist das selbe...

[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;

[seppi.tm]

jetzt zeichnet er nichts mehr

[seppi.tm]

so habe das problem gelößt mit der länge -1 klappt alles O.o...

[Hador]

Probiere es mal so:

Delphi-Quellcode:

var
  w: Integer;
begin
  {...}
  w := Canvas.TextWidth('Testtext');
  Canvas.TextOut((Width - w) div 2, 100 {Y-Coord}, 'Testtext');
  {...}
end;

Canvas.Textwidth gibt die die Textlänge in Pixel in Abhängigkeit von der verwendeten Schrift aus.

EDIT: Arr ... 2. Seite übersehen. Is aber dennoch einfacher die Lösung ^^