Mitte suchen (Image)

[gauggi]

Guten Abend!

Wie kann ich die Mitte eines Bildes (Image) ermitteln (horizontal + vertikal).

Ich hab es schon so versucht, aber es klappt nicht:

Delphi-Quellcode:

form1.Image1.Width div 2, form1.Image1.Height div 2

mfg Gauggi

[mkinzler]

Was klappt nicht?

[gauggi]

Zitat:

Zitat von mkinzler

Was klappt nicht?

der Text, den ich mit canvas nun in die mitte schreiben möchte, erscheint weiter rechts oben...

[TonyR]

Entweder ich bin nahezu blind oder...
DAS MUSS KLAPPEN ... du bekommst mit dem geschriebenen Funktionen genau den Mittel-Punkt!
vielleicht liegt es irgendwie an der Schrift-o. -größe oder ähnliches!

[mkinzler]

Wie gibst du den Text aus?(.TextOut) Hast du die Ausmaße des Text berücksichtigt (.TextExtent)

[gauggi]

Zitat:

Zitat von mkinzler

Wie gibst du den Text aus?(.TextOut) Hast du die Ausmaße des Text berücksichtigt (.TextExtent)

mit Textout

[monta]

Sollte TextOut nicht automatisch zentrieren :?:
siehe http://www.tutorial-project.de/suma/...-tutorial.html beim Beispiel für das erste Programm stet auch, es sei zentriert.

[St.Pauli]

Eventuell ist das dein Problem: Du errechnest dir den Punkt, der in der Mitte deines Images liegt. Diesen Punkt übergibst du an TextOut und lässt dort den Test ausgeben. Der Punkt dient hierbei als links oberer Rand des Textes. Also ist er nicht ganz zentriert.

[Flare]

Zitat:

Zitat von gauggi

Zitat:

Zitat von mkinzler

Was klappt nicht?

der Text, den ich mit canvas nun in die mitte schreiben möchte, erscheint weiter rechts oben...

Wenn er weiter rechts-oben erscheint, dann musst du eigentlich die X und Y-Achse verstauscht haben...
denn sonst wäre er weiter rechts-unten.


Flare

[k-weddige]

TextOut benutzt, wie St.Pauli richtig bemerkt hat, die übergebenen Koordinaten als obere, linke Ecke.
Die Befehle sollten dir da weiterhelfen:

Delphi-Quellcode:

form1.Image1.Height div 2 - Canvas.TextHeight('Text') div 2;
form1.Image1.Width div 2 - canvas.TextWidth('Text') div 2;

Konstantin