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 }