paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-08 16:25:56 +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 var
bm: TCustomBitmap; bm: TCustomBitmap;
begin begin
bm := CreateBitmapFromResourceName(0, BuildResourceName(AResName)); bm := CreateBitmapFromResourceName(HINSTANCE, BuildResourceName(AResName));
try try
bm.Transparent := true; bm.Transparent := true;
ABitmap.Assign(bm); ABitmap.Assign(bm);
@ -5329,7 +5329,7 @@ begin
Result.RegisterResolutions([16, 24, 32]); Result.RegisterResolutions([16, 24, 32]);
Result.Scaled := true; Result.Scaled := true;
resname := BuildResourceName(CheckImagesStrings[CheckKind]); resname := BuildResourceName(CheckImagesStrings[CheckKind]);
bm := CreateBitmapFromResourceName(0, resname); bm := CreateBitmapFromResourceName(HINSTANCE, resname);
try try
bm.Transparent := true; bm.Transparent := true;
Result.AddSliced(bm, 25, 1); Result.AddSliced(bm, 25, 1);
@ -25366,7 +25366,7 @@ begin
else else
ImageName := 'LAZ_VT_MOVENS_BMP'; ImageName := 'LAZ_VT_MOVENS_BMP';
bm := CreateBitmapFromResourceName(0, BuildResourceName(ImageName)); // is png! bm := CreateBitmapFromResourceName(HINSTANCE, BuildResourceName(ImageName)); // is png!
try try
FPanningWindow.Image.SetSize(bm.Width, bm.Height); FPanningWindow.Image.SetSize(bm.Width, bm.Height);
FPanningWindow.Image.Canvas.Brush.Color := TRANSPARENT_COLOR; FPanningWindow.Image.Canvas.Brush.Color := TRANSPARENT_COLOR;