paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TImageListCache: don't scale image list

Browse Source 
git-svn-id: branches/HiDPIImageList@57162 -
This commit is contained in:
ondrej 2018-01-27 18:06:49 +00:00
parent b4b56d377d
commit 53ddab069c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/imagelistcache.pas
View File

@ -124,6 +124,7 @@ begin
begin begin
Width := AWidth; Width := AWidth;
Height := AHeight; Height := AHeight;
Scaled := False;
{$IFDEF VerboseImageListCache} {$IFDEF VerboseImageListCache}
debugln('Creating new imagelist in cache for Width=',Width,' Height=', Height, ' Count = ', FImages.Count); debugln('Creating new imagelist in cache for Width=',Width,' Height=', Height, ' Count = ', FImages.Count);
if (Width <> 16) and (Width <> 24) then if (Width <> 16) and (Width <> 24) then