Image Begrenzungsbereich

[juelin]

Hi zusammen,
ich habe Delphi 10.3.3 und Windows10.
In ein Image (Entwurfsgröße Height=280 Width=280) lade ich ein Bitmap
mit Image1.Picture.LoadFromFile.
Image1.Stretch ist True.
Nach dem Start des Programms hat das Image Height=350 und Width=350.
Wenn ich nun mit Image1.Canvas.Pixels[X,Y] auf die einzelnen Pixel
zugreife bekomme ich ab X=121 und Y=121 nur den Wert -1.
Das Original Bitmap hat Height=120 und Width=120.
Wie kann ich das Problem lösen?
Danke und Gruß (gutes neues Jahr)
Jürgen

[Redeemer]

Das mit den 280 zu 350 ist Bildschirmskalierung.

Zurück zum eigentlichen Problem: Erstell dir eine lokale TBitmap-Variable, lade dein Bild dort hinein und zeichne die mit TImage.Canvas.StretchDraw auf dem TImage. Bei der ersten Verwendung von TImage.Canvas wird automatisch TImage.Picture.Bitmap mit der aktuellen Größe erstellt (passt sich nicht automatisch an). Du kannst entweder auf dessen Pixels-Eigenschaft oder die von TImage.Canvas zugreifen. Langsam ist beides. Schneller ist TPngImage, aber das wäre noch eine Ecke komplizierter.