Größe eines Bildes auf TImage

[himitsu]

aber eigentlich Image1.Pictures.Graphic.Width/Height

[Uwe Raabe]

Zitat von himitsu:

aber eigentlich Image1.Pictures.Graphic.Width/Height

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 von Willie1:

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 von KodeZwerg:

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 von Willie1:

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 von KodeZwerg:

Zitat von Willie1:

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

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