Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
685 Beiträge
 
Delphi 2009 Professional
 
#2

AW: Image Begrenzungsbereich

  Alt 6. Jan 2020, 21:30
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 Delphi-Referenz durchsuchenTImage.Canvas.Delphi-Referenz durchsuchenStretchDraw auf dem TImage. Bei der ersten Verwendung von TImage.Canvas wird automatisch Delphi-Referenz durchsuchenTImage.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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat