Hi
As a result of a discussion in another thread I started to search for BGRA and thumnails. The discussion is here:
https://forum.lazarus.freepascal.org/index.php/topic,56896.msg422858.html#msg422858
And - as so often - I detected that there is a simple to use function :
function GetStreamThumbnail(AStream: TStream; AWidth,AHeight: integer; ABackColor: TBGRAPixel; ACheckers: boolean; ASuggestedExtensionUTF8: string = ''; ADest: TBGRABitmap= nil): TBGRABitmap; overload;
You can use this function for all important graphic file formats and it return a thumbnail BGRAbitmap. Smart and easy. And fast.
For the use I made a little demo name PhotoExplorer.
Project and screenshot in the attachment.
Winni