Größe eines Bildes auf TImage

[Willie1]

Hallo Leute,
ich habe gelernt, eine neue Frage in einem neuen Thread zu stellen.
Nachdem die Ursache des Fehlers mit der Skalierung geklärt ist, stellt sich mir eine andere Frage.
Wie kann ich die Flächengröße des Bildes auf dem TImage ermitteln. Width und Height liefern ja nur die Fläche von TImage. Center = true, streched = false und proportonal = true.

Kann ich das abrufen oder muss ich das selbst berechnen?

Gruß Willie.

[Uwe Raabe]

Versuch mal

Delphi-Quellcode:

Image1.Picturs.Width/Height

[Benmik]

Ja ja, die Picturs und die Imadges... :thumb:

[himitsu]

aber eigentlich Image1.Pictures.Graphic.Width/Height :stupid:

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1507181)

aber eigentlich Image1.Pictures.Graphic.Width/Height :stupid:

Kracht halt nur, wenn Graphic = nil ist, was Picture.Width/Height eben abfängt.

[Willie1]

Ja, das klappt mit Image.Picture.Width/Height.
Mein Programm kan mit bmp, jpg, png, gif, tif und emf umgehen. Ich habe es mit allen außer emf ausprobiert, es klappt.? Danke Freunde.

Trotzdem habe ich noch eine Frage zur Geometrie, die nicht mit programmieren zu tun hat: Eine Seite von Image entspricht Image.Width oder Height. Die andere Seite ergebt sich aus dem Verhältnis von Breite zu Höhe. Wie kann ich ermitteln, ob der Rand rechts oder links oder oben und unten ist? Die Bildfläche soll mittig und so groß, wie möglich sein. Das leistet ja Image.center.

Gruß Willie.

[KodeZwerg]

Zitat:

Zitat von Willie1 (Beitrag 1507277)

Wie kann ich ermitteln, ob der Rand rechts oder links oder oben und unten ist?

Was meinst Du mit "Rand"? Ein nicht-transparentes Bild hat immer 4 "Ränder"

[Uwe Raabe]

Delphi-Quellcode:

if Image.Picture.Width < Image.Width then
  { Rand ist links und rechts }
else if Image.Picture.Height < Image.Height then
  { Rand is oben und unten }
else
  { Kein Rand }

[Willie1]

Zitat:

Zitat von KodeZwerg (Beitrag 1507278)

Was meinst Du mit "Rand"? Ein nicht-transparentes Bild hat immer 4 "Ränder"

Ich meine den Rand, der entsteht, wenn die Ratio des Bildes nicht der Ratio von Image entspricht.

Hallo Uwe, ich verstehe deinen Source. Ich meinte nur, wie kann ich das Bild platzieren, wenn mir Picture.Height/Width nicht zur Verfügung nicht zur Verfügung stehen würden. Dann ist es doch Geometrie: Kongruenz.
Willie.

[KodeZwerg]

Zitat:

Zitat von Willie1 (Beitrag 1507391)

wenn mir Picture.Height/Width nicht zur Verfügung nicht zur Verfügung stehen würden

Dann stell es doch kurz zur Verfügung?

Delphi-Quellcode:

var
  pict: TPicture;
  w, h: Integer;
begin
  pict := TPicture.Create;          
  try
    pict.Assign(DasImage);
    w := pict.Width;
    h := pict.Height;
  finally
    pict.Free;
  end;
  // mach was mit w und h
end;

[Blup]

Wenn die Grafik skalliert dargestellt wird ohne das Seitenverhältnis zu verändern, musst du das Seitenverhältnis der Grafik mit dem Seitenverhältnis des Image vergleichen.

Delphi-Quellcode:

d1 := Image.Picture.Width/Image.Picture.Height;
d2 := Image.Width/Image.Heigh;

if d1 < d2 then
   { Rand ist links und rechts }
else if d1 > d2 then
  { Rand is oben und unten }
else
  { Kein Rand }

[himitsu]

Ja, wenn man nur wissen will wo ein Rand ist, dann besser mit den Seitenverhältnisen und nicht den Seitenlängen rechnen/vergleichen.

Wenn das Bild auch noch gestrecht wird, dann kannst du sowieso nur mit den Radio / dem Seitenverhältnis rechnen, da die Längen ja im Verhältnis stehen, aber nicht direkt vergleichbar sind, wenn das Picture vergrößert/verkleinert dargestellt wird.

Zitat:

Zitat von KodeZwerg (Beitrag 1507394)

Zitat:

Zitat von Willie1 (Beitrag 1507391)

wenn mir Picture.Height/Width nicht zur Verfügung nicht zur Verfügung stehen würden

Dann stell es doch kurz zur Verfügung?

Delphi-Quellcode:

var
  pict: TPicture;
  w, h: Integer;
begin
  pict := TPicture.Create;          
  try
    pict.Assign(DasImage);
    w := pict.Width;
    h := pict.Height;
  finally
    pict.Free;
  end;
  // mach was mit w und h
end;

Nein, dann nimmt man direkt DasImage.Width und DasImage.Height :zwinker:

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1507433)

Nein, dann nimmt man direkt DasImage.Width und DasImage.Height :zwinker:

:thumb:

Zitat:

Zitat von himitsu (Beitrag 1507433)

Wenn das Bild auch noch gestrecht wird

Ich frag mich eh was bei Willie passiert wenn ein Bild die Dimension seines TImage sprengt.
Für Preview anzeigen nutz ich generell stretch, auch wenn es das Bild verzerrt.

[Willie1]

Hallo, der Hintergrund meiner Frage war, dass ich GDI+ benutze und da gibt es kein Center und Streched. Ich weiß jetzt, wie es geht. Man muss die Ratio des Originalbildes berechnen und berücksichtigen, falls das Bild im Hochformat ist. Zur Vorschau, benutze ich die eingebetteten Thumnails, falls vorhanden. Das geht sehr schnell.
Gruß Willie.