paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 04:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Virtualtreview: Fix loading resources from DLL (https://forum.lazarus.freepascal.org/index.php?topic=67250.msg517169)

Browse Source 
(cherry picked from commit 03c96ee8aa)
This commit is contained in:
wp_xyz 2024-05-12 19:06:57 +02:00 committed by Maxim Ganetsky
parent 71d1f54590
commit 68d01bced8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -5304,7 +5304,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);
@ -5329,7 +5329,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);
@ -25366,7 +25366,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;