Größe eines Bildes auf TImage

[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

[KodeZwerg]

Zitat von himitsu:

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

Zitat von himitsu:

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.