From 03c96ee8aaaab75ba55b8c8392e2039801fdb7ea Mon Sep 17 00:00:00 2001 From: wp_xyz Date: Sun, 12 May 2024 19:06:57 +0200 Subject: [PATCH] Virtualtreview: Fix loading resources from DLL (https://forum.lazarus.freepascal.org/index.php?topic=67250.msg517169) --- components/virtualtreeview/laz.virtualtrees.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/virtualtreeview/laz.virtualtrees.pas b/components/virtualtreeview/laz.virtualtrees.pas index f5c177b325..cee8a4f8a5 100644 --- a/components/virtualtreeview/laz.virtualtrees.pas +++ b/components/virtualtreeview/laz.virtualtrees.pas @@ -5306,7 +5306,7 @@ procedure LoadBitmapFromResource(ABitmap: TBitmap; AResName: String); var bm: TCustomBitmap; begin - bm := CreateBitmapFromResourceName(0, BuildResourceName(AResName)); + bm := CreateBitmapFromResourceName(HINSTANCE, BuildResourceName(AResName)); try bm.Transparent := true; ABitmap.Assign(bm); @@ -5331,7 +5331,7 @@ begin Result.RegisterResolutions([16, 24, 32]); Result.Scaled := true; resname := BuildResourceName(CheckImagesStrings[CheckKind]); - bm := CreateBitmapFromResourceName(0, resname); + bm := CreateBitmapFromResourceName(HINSTANCE, resname); try bm.Transparent := true; Result.AddSliced(bm, 25, 1); @@ -25363,7 +25363,7 @@ begin else ImageName := 'LAZ_VT_MOVENS_BMP'; - bm := CreateBitmapFromResourceName(0, BuildResourceName(ImageName)); // is png! + bm := CreateBitmapFromResourceName(HINSTANCE, BuildResourceName(ImageName)); // is png! try FPanningWindow.Image.SetSize(bm.Width, bm.Height); FPanningWindow.Image.Canvas.Brush.Color := TRANSPARENT_COLOR;