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

Packager: Set Transparent property for all TBitmap Component icons. Issue #28478, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49689 -
This commit is contained in:
juha 2015-08-19 11:52:42 +00:00
parent 090fa94d89
commit 5d3813ec5f
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packager/packagedefs.pas
View File

@ -3981,25 +3981,19 @@ var
ResHandle: TLResource;
ResName: String;
begin
Result := nil;
ResName := ComponentClass.ClassName;
// prevent raising exception and speedup a bit search/load
ResHandle := LazarusResources.Find(ResName);
if ResHandle <> nil then
Result := CreateBitmapFromLazarusResource(ResHandle)
else
if FindResource(HInstance, PChar(ResName), PChar(RT_BITMAP)) <> 0 then
begin
Result := TBitmap.Create;
Result.LoadFromResourceName(HInstance, ResName);
Result.Transparent := True;
end
else
if FindResource(HInstance, PChar(ResName), PChar(RT_RCDATA)) <> 0 then
Result := CreateBitmapFromResourceName(HInstance, ResName);
if Result = nil then
Result := CreateBitmapFromResourceName(HInstance, 'default');
Result := CreateBitmapFromResourceName(HInstance, 'default')
else
if Result is TBitmap then
Result.Transparent := True;
end;
function TPkgComponent.HasIcon: boolean;