Posted - Sep 26 2024 : 10:20:40 This Filter hides all images with a size lesser than 256 x 256 pixel:
procedure TForm1.ImageEnMView1Filter(Sender: TObject; Index: Integer; const Filename: string; var ShowFrame: Boolean);
begin
if (ImageEnMView1.ImageWidth[Index] < 256) or (ImageEnMView1.ImageHeight[Index] < 256) then
ShowFrame := False;
end;
PeterPanino
Posted - Sep 26 2024 : 09:17:43
// Load all "Icon" type resources from "explorer.exe"
ImageEnMView1.Clear();
// resource types: ietrIcon, ietrBitmap, ietrGroupIcon, ietrAniIcon, ...
ImageEnMView1.IEMBitmap.LoadFromResource( 'explorer.exe', [ ietrIcon ] );
ImageEnMView1.Update();
The images are all shown with the same thumbnail sizes:
Isn't it possible to show them with their RELATIVE size?
Thank you for this function, which simplifies loading resources and everything.
xequte
Posted - Sep 22 2024 : 21:44:19 Hi Peter
You can email me for the latest beta, which has TIEMultiBitmapHelper.LoadFromResource().