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

LCL: imglist: improve GetDefaultGlyph - support various image formats

Browse Source 
git-svn-id: trunk@57861 -
This commit is contained in:
ondrej 2018-05-09 00:41:51 +00:00
parent 59e52062f8
commit b62e11282f
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -53,7 +53,7 @@ uses
// LCL
LCLStrConsts, LCLIntf, LResources, LCLType, LCLProc, Graphics, GraphType,
LCLClasses, IntfGraphics,
WSReferences;
WSReferences, RtlConsts;
type
TImageIndex = type integer;

12
lcl/include/imglist.inc
View File

@ -47,14 +47,10 @@ function GetDefaultGlyph(ResourceName: string; ScalePercent: Integer;
begin
if ScalePercent<>100 then
ResourceName := ResourceName+'_'+IntToStr(ScalePercent);
Result := TPortableNetworkGraphic.Create;
if IgnoreMissingResource
and (FindResource(HInstance, PChar(ResourceName), Result.GetResourceType)=0) then
begin
FreeAndNil(Result);
Exit;
end else
Result.LoadFromResourceName(hInstance, ResourceName);
Result := CreateBitmapFromResourceName(HINSTANCE, ResourceName);
if (Result=nil) and not IgnoreMissingResource then
raise EResNotFound.CreateFmt(SResNotFound,[ResourceName]);
end;
{------------------------------------------------------------------------------