Nachdem mein Bitmap-Resampler im englischen Forum per Diskussion einige Verbesserungen erfahren hat, hab ich ihn mal auf GITHub hochgeladen.
https://github.com/rmesch/Repository-R.Schaaf
2 kleine Demos sind enthalten, sowie eine Doc, die erklärt wie das Skalieren von Bitmaps mit Filtern (Box, Bilinear, Bicubic, Lanczos) funktioniert.
Besonderheiten:
- Enthält eine parallele Routine, die die Skalierungszeit auf meinem System auf ca. 1/5 reduziert. Damit sind Zoom-Pans in Echtzeit möglich.
- Jeder Filter hat einen Default-Radius, der den gängigen Werten entspricht (z.B. wie Graphics32), aber der Radius kann beliebig verändert werden.
- Das Rechteck für den Bereich, der skaliert werden soll, hat Float-Werte für bessere Zooms.
Funktioniert für pf32Bit-Bitmaps. Es gibt Optionen für die Behandlung des Alpha-channels (ignorieren, unabhängig, vor-multiplizieren). Andere Filter können sehr einfach hinzugefügt werden. Unterstützt derzeit Delphi 10.x und höher.
Renate