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

LCL: LCLGlyphs: add IgnoreMissingResources

Browse Source 
git-svn-id: trunk@57849 -
This commit is contained in:
ondrej 2018-05-08 20:50:40 +00:00
parent a6549c23c1
commit 970e191a45
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/imglist.pp
View File

@ -433,6 +433,7 @@ type
ImageIndex: Integer; // the image index in TLCLGlyphs
end;
private
FIgnoreMissingResources: Boolean;
FImageIndexes: TAvgLvlTree;
FLoadResolutions: array of Integer;
public
@ -441,6 +442,8 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property IgnoreMissingResources: Boolean read FIgnoreMissingResources write FIgnoreMissingResources;
end;
function LCLGlyphs: TLCLGlyphs;

5
lcl/include/imglist.inc
View File

@ -2713,6 +2713,7 @@ begin
FImageIndexes := TAvgLvlTree.Create(@TLCLGlyphs_TEntry_Compare);
Scaled := True;
FIgnoreMissingResources := True;
end;
destructor TLCLGlyphs.Destroy;
@ -2729,6 +2730,10 @@ function TLCLGlyphs.GetImageIndex(const AResourceName: string): Integer;
var
G: TCustomBitmap;
begin
if FIgnoreMissingResources and (ResolutionWidth<>Width)
and (FindResource(HInstance, PChar(AResourceName), RT_RCDATA)=0) then
Exit;
G := GetDefaultGlyph(AResourceName, MulDiv(ResolutionWidth, 100, 16));
try
if ResolutionWidth=Width then