Text genau in der mitte vom Bild ausgeben.

[Jackie1983]

Servus,

habe ein Bild. Möchte genau in der mitte des Bildes den Text "Test" ausgeben.
Wie kann ich die genau länge berechnen, so das es auf dem Canvas auch past.

Delphi-Quellcode:

      Canvas.TextOut(X + ((W div 2) - (length('Test'))),
                     Y + ((H div 2) - (FontH)),
                     'Test');

das haut ja nicht hin, brauche ja die Pixel.
Da gibt es doch bestimmt ne funktion für, oder?

gruß

[DeddyH]

Ist das einzeiliger Text? Dann ginge das mit DrawText.

[alleinherrscher]

versuch es mal anstelle von length('Test') mit canvas.Textwidth('Test') und denk dran, dass du die Textbreite ebenfalls noch durch 2 teilen musst.

[turboPASCAL]

Delphi-Quellcode:

procedure DrawCenterText(anyCanvas: TCanvas; sText: string);
var
  r: TRect;
  tx, ty: Integer;
begin
  r := anyCanvas.ClipRect;
  tx := ((r.Right - r.Left) div 2) - (anyCanvas.TextWidth(sText) div 2);
  ty := ((r.Bottom - r.Top) div 2) - (anyCanvas.TextHeight(sText) div 2);
  anyCanvas.TextOut(tx, ty, sText);
end;

// Beispielaufruf:
procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawCenterText(Canvas, 'Hello from www.delphipraxis.net');
end;

// oder:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DrwaCenterText(PaintBox1.Canvas, 'Hello from www.delphipraxis.net');
end;

[Jackie1983]

super thx.

[himitsu]

Und um das Ganze nochmals in Worten auszudrücken ... vielleicht holft es bei der nächsten Problemfindung.

Du wills etwas zentriert haben

also mußt du die Mittelpunkt der beiden "Objekte" übereinanderlegen

- Mittelpunkt des Bildes berechnen (Breite/Länge durch 2)
- Mittelpunkt des Textes berechnen (ebenfals Breite/Länge durch 2)

- Length(Text) gibt die Anzahl der Zeichen und nicht dreren Breite zurück
Lösung: himitsu = vorletzter Artikel (tut mir Leid, aber ich konnte grad nicht wiedersethen :oops: )
Du brauchst ur Berechnung aber die selbe Einheit, wie im Bild, also in diesem Fall Pixel

- und nun nur noch alles zusammenfügen

XPosition = (BildLänge / 2) - (TextBreite / 2)
YPosition = (BildHöhe / 2) - (TextHöhe / 2)

[DeddyH]

Oder auch:
XPosition = (BildLänge - TextBreite) / 2
YPosition = (BildHöhe - TextHöhe) / 2

[Jackie1983]

Zitat:

Zitat von himitsu

also mußt die die Mittelpunkt der beiden "Objekte" übereinanderlegen

- Mittelpunkt des Bildes berechnen (Breite/Länge durch 2)
- Mittelpunkt des Textes berechnen (ebenfals Breite/Länge durch 2)

Das ist mir auch klar wie man den Mittelpunkt berechnet, steht ja oben auch.

Zitat:

Zitat von himitsu

Du brauchst ur Berechnung aber die selbe Einheit, wie im Bild, also in diesem Fall Pixel

Zitat:

Zitat von Jackie1983

das haut ja nicht hin, brauche ja die Pixel.

Habe ja nur die Funktion gesucht um die Textlänge zubestimmen, mehr nicht.

[himitsu]

Zitat:

Zitat von Jackie1983

Code:

      Canvas.TextOut(X + ((W div 2) - [color=#ff0000](length('Test'))[/color]),
                     Y + ((H div 2) - [color=#ff0000](FontH)[/color]),
                     'Test');

Zitat:

Zitat von Jackie1983

Das ist mir auch klar wie man den Mittelpunkt berechnet, steht ja oben auch.

ganz sicher? (mir fehlt etwas, selbst wenn ich das mit der "falschen" Länge ignoriere)

Zitat:

Zitat von Jackie1983

Habe ja nur die Funktion gesucht um die Textlänge zubestimmen, mehr nicht.

ja und das hatte ich netter weiße auch mit verlinkt :roll:
Obwohl turboPASCAL es ja quasi schon bei sich verbaut hatte.

[Jackie1983]

Zitat:

Zitat von himitsu

ganz sicher? (mir fehlt etwas, selbst wenn ich das mit der "falschen" Länge ignoriere)

Jup ganz sicher, nur noch das div fehlt, aber es war ja nur so runter geschrieben und die "falsche" länge war es ja auch, wie oben ebenfalls steht, das war dafür das man besser versteht was ich meine...

ist ja auch egal, TextWidth und TextHeight habe ich gesucht und hier gefunden.