Image Begrenzungsbereich
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 |
AW: Image Begrenzungsbereich
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz