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

lcl: simplify code

Browse Source 
git-svn-id: trunk@43068 -
This commit is contained in:
paul 2013-10-04 14:56:44 +00:00
parent 1b5a11694a
commit a6e05fc24b
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/graphics.pp
View File

@ -2205,22 +2205,6 @@ function CreateGraphicFromResourceName(Instance: THandle; const ResName: String)
var
ResHandle: TFPResourceHandle;
begin
// test Bitmap
ResHandle := FindResource(Instance, PChar(ResName), PChar(RT_BITMAP));
if ResHandle <> 0 then
begin
Result := TBitmap.Create;
Result.LoadFromResourceName(Instance, ResName);
Exit;
end;
// test PNG
ResHandle := FindResource(Instance, PChar(ResName), PChar(RT_RCDATA));
if ResHandle <> 0 then
begin
Result := TPortableNetworkGraphic.Create;
Result.LoadFromResourceName(Instance, ResName);
Exit;
end;
// test Icon
ResHandle := FindResource(Instance, PChar(ResName), PChar(RT_GROUP_ICON));
if ResHandle <> 0 then
@ -2237,7 +2221,7 @@ begin
TCursorImage(Result).LoadFromResourceHandle(Instance, ResHandle);
end
else
Result := nil;
Result := CreateBitmapFromResourceName(Instance, ResName)
end;
function CreateBitmapFromResourceName(Instance: THandle; const ResName: String): TCustomBitmap;