paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:39:30 +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; ResHandle: TLResource;
ResName: String; ResName: String;
begin begin
Result := nil;
ResName := ComponentClass.ClassName; ResName := ComponentClass.ClassName;
// prevent raising exception and speedup a bit search/load // prevent raising exception and speedup a bit search/load
ResHandle := LazarusResources.Find(ResName); ResHandle := LazarusResources.Find(ResName);
if ResHandle <> nil then if ResHandle <> nil then
Result := CreateBitmapFromLazarusResource(ResHandle) Result := CreateBitmapFromLazarusResource(ResHandle)
else 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); Result := CreateBitmapFromResourceName(HInstance, ResName);
if Result = nil then if Result = nil then
Result := CreateBitmapFromResourceName(HInstance, 'default'); Result := CreateBitmapFromResourceName(HInstance, 'default')
else
if Result is TBitmap then
Result.Transparent := True;
end; end;
function TPkgComponent.HasIcon: boolean; function TPkgComponent.HasIcon: boolean;