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

lcl: image list: simplify scaling

Browse Source 
git-svn-id: trunk@57248 -
This commit is contained in:
ondrej 2018-02-04 01:23:48 +00:00
parent 9127e92d95
commit 614dc4a2a3
1 changed files with 6 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/imglist.inc
View File

@ -1084,23 +1084,10 @@ end;
function TCustomImageListResolutions.FindBestToCopyFrom(const ATargetWidth,
AIgnoreIndex: Integer): Integer;
var
SmallestToDownscale: Integer;
begin
SmallestToDownscale := -1;
for Result := 0 to Count-1 do // first try to find the smallest (but bigger) multiple
begin
if (Result<>AIgnoreIndex) then
begin
if (Items[Result].Width mod ATargetWidth = 0) then
Exit
else
if (SmallestToDownscale < 0) and (Items[Result].Width>ATargetWidth) then
SmallestToDownscale := Result;
end;
end;
if SmallestToDownscale>=0 then
Exit(SmallestToDownscale);
for Result := 0 to Count-1 do // find the smallest (but bigger) image
if (Result<>AIgnoreIndex) and (Items[Result].Width>=ATargetWidth) then
Exit;
Result := Count-1; // just pickup the biggest image to scale up
if Result=AIgnoreIndex then
@ -1264,20 +1251,12 @@ function TCustomImageList.AddMultipleResolutions(
Images: array of TCustomBitmap): Integer;
function FindImage(const ATargetWidth: Integer): TCustomBitmap;
var
SmallestToDownscale: TCustomBitmap;
begin
SmallestToDownscale := nil;
for Result in Images do // first try to find the smallest (but bigger) multiple
for Result in Images do // find the smallest (but bigger) image
begin
if (Result.Width mod ATargetWidth = 0) then
Exit
else
if (SmallestToDownscale = nil) and (Result.Width>ATargetWidth) then
SmallestToDownscale := Result;
if (Result.Width>=ATargetWidth) then
Exit;
end;
if SmallestToDownscale<>nil then
Exit(SmallestToDownscale);
Result := Images[High(Images)]; // just pickup the biggest image to scale up
end;