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

LCL: TLCLGlyphs: use gmrIgnoreAll as default MissingResources

Browse Source 
git-svn-id: trunk@58130 -
This commit is contained in:
ondrej 2018-06-05 07:10:54 +00:00
parent 3d621d07cc
commit c560db1304
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -422,7 +422,7 @@ type
TLCLGlyphsMissingResources = (
gmrAllMustExist, // Show exception if any image/resolution is not found
gmrOneMustExist, // Show exception if no resolution is found. Missing resolutions will be auto-generated from the biggest one.
gmrIgnoreAll); // Ignore all missing resources. No image will be added if no resolution is found.
gmrIgnoreAll); // Ignore all missing resources. No image will be added and TLCLGlyphs.GetImageIndex Result is -1 if no resolution is found.
TLCLGlyphs = class(TCustomImageList)
private type

2
lcl/include/imglist.inc
View File

@ -2708,7 +2708,7 @@ begin
FImageIndexes := TAvgLvlTree.Create(@TLCLGlyphs_TEntry_Compare);
Scaled := True;
FMissingResources := gmrOneMustExist;
FMissingResources := gmrIgnoreAll;
end;
destructor TLCLGlyphs.Destroy;