paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 21:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

packager: create component image with transparent bg in case of loading from FPC resources

Browse Source 
git-svn-id: trunk@30042 -
This commit is contained in:
paul 2011-03-28 00:46:14 +00:00
parent 0574b48563
commit 68fc57c89c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/packagedefs.pas
View File

@ -3707,7 +3707,8 @@ begin
if FindResource(HInstance, PChar(ResName), PChar(RT_BITMAP)) <> 0 then
begin
Result := TBitmap.Create;
Result.LoadFromResourceName(HInstance, ResName)
Result.LoadFromResourceName(HInstance, ResName);
Result.Transparent := True;
end;
if Result = nil then