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

[gauggi]

Danke euch allen...


Ich hab nun bemerkt, dass es deshalb nicht klappt, weil das Bild im image angepasst wird (in diesem Fall verkleinert).

Gibt es irgendeine Möglichkeit, die eigentliche Bildgröße herauszufinden, und nicht die Größe der Image Komponente.

mfg Gauggi

[Mavarik]

Autosize := true;

[gauggi]

Zitat:

Zitat von Mavarik

Autosize := true;

Ich habe gemeint, die reale Größe, wenn das Bild so mit autosize false ist.

[Mavarik]

Delphi-Quellcode:

  img := TImage.Create;
  img.Autosize := true;
  img.picture.bitmap.loadfromfile('c:\Dudidu.bmp');
  x := img.Width;
  y := img.height;
  img.free;

Be Creative---

[gauggi]

Zitat:

Zitat von Mavarik

Delphi-Quellcode:

  img := TImage.Create;
  img.Autosize := true;
  img.picture.bitmap.loadfromfile('c:\Dudidu.bmp');
  x := img.Width;
  y := img.height;
  img.free;

Be Creative---

Gut danke.

[Muetze1]

Das ganze mit weniger Resourcenaufwand:

Delphi-Quellcode:

img := TImage.Create;
Try
  img.picture.bitmap.loadfromfile('c:\Dudidu.bmp');
  x := img.Picture.Width;
  y := img.Picture.height;
Finally
  img.free;
End;

Oder noch weniger Resourcen und Zeitaufwand:

Delphi-Quellcode:

bmp := TBitmap.Create;
Try
  bmp.loadfromfile('c:\Dudidu.bmp');
  x := bmp.Width;
  y := bmp.height;
Finally
  bmp.free;
End;