Größe eines Bildes auf TImage

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