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:

1. Enthält eine parallele Routine, die die Skalierungszeit auf meinem System auf ca. 1/5 reduziert. Damit sind Zoom-Pans in Echtzeit möglich.
2. Jeder Filter hat einen Default-Radius, der den gängigen Werten entspricht (z.B. wie Graphics32), aber der Radius kann beliebig verändert werden.
3. 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

Super!
Falls du denkst, das wäre auch sinnvoll per GetIt "auslieferbar" (dann bekommt es noch mehr
Aufmerksammkeit), kann ich dir gerne zeigen wie das geht.

Hi Turbomagic,

Danke!

Zitat:

Falls du denkst, das wäre auch sinnvoll per GetIt "auslieferbar"

Ich denke schon, wenn ich gefunden habe, wie man die globalen Variablen für die Threads loswird, ohne dass die Performance in den Keller geht.
Im Moment warte ich darauf, von irgendwem dafür ausgeschimpft zu werden.

..jetzt ist mir doch grad ne Idee dazu gekommen.

Renate

Der parallele Resampler kann jetzt in mehreren gleichzeitig laufenden Threads benutzt werden. Man kann nun mehr als einen thread-pool erstellen und der parallelen Routine sagen, welchen sie benutzen soll.
Ich hab eine Demo "ThreadsInThreads" hinzugefügt, mit der man das austesten kann. Ist ein einfacher Thumbnail-Explorer. Gestern hing dieser sich noch machmal auf, wenn man das Verzeichnis zu schnell gewechselt hat, aber ich hoffe, dass das jetzt behoben ist.
Wäre sehr dankbar für eine Rückmeldung, wenn es immer noch passiert.

https://github.com/rmesch/Repository-R.Schaaf

Cheers,

Renate

Hab inzwischen einige Verbesserungen in https://github.com/rmesch/Repository-R.Schaaf eingebaut:

• Threads werden nicht mehr automatisch in Initialization erzeugt. Man kann InitDefaultResamplingThreads aufrufen, um sie zu initialisieren, bevor man sie benutzt, oder sie werden initialisiert beim ersten Aufruf einer parallelen Routine, was dann eine Verzögerung erzeugt. FinalizeDefaultResamplingThreads gibt sie frei. Wenn man das vergisst, werden sie in Finalization freigegeben.
• Übergebene Bitmaps mit Alphaformat=afDefined werden jetzt korrekt skaliert, und das Ergebnis hat das gleiche Alphaformat. Der Resampler funktioniert aber am besten mit Alphaformat=afIgnored. Man sollte Alphaformat nur setzen, bevor man eine Bitmap anzeigt, um Ungenauigkeiten zu vermeiden.
• Die Unit uTools enthält Routinen zum Umwandeln von TPngImage oder TWICImage auf TBitmap, ohne dass Alphaformat=afDefined gesetzt wird, was TBitmap.Assign in VCL.Graphics immer tut (, und was Zeitverschwendung für .jpg ist). Ein TWICImage dekodiert .jpg, .png oder .tif sehr schnell. Leider ist TWICImage.Create nicht threadsafe, also muss man es im Haupt-Thread erzeugen.
• Es gibt einen neuen TAlphaCombineMode amTransparentColor, welcher die transparente Farbe und die transparenten Regionen beim Skalieren erhält.
• Die Demo ThreadsInThreads macht jetzt Vorschaubilder in 2 gleichzeitigen Threads, das sollte ein guter Crashtest dafür sein, ob's denn auch threadsafe ist.
• Code in uScale.pas wurde etwas aufgeräumt, Interface enthält jetzt nur noch das, was Benutzer wissen müssen, und mehr Kommentare wurden hinzugefügt. Außerdem habe ich 4 fast identische Routinen in eine überführt. Das kostet ein bisschen Performance, aber ich war es einfach leid.

Kritik usw. erwünscht!

Renate

Kritik ?
Ich wüsste nicht warum

Vielen Dank dafür.