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

little speedup for previous commit from giantm

Browse Source 
git-svn-id: trunk@12560 -
This commit is contained in:
paul 2007-10-23 08:10:49 +00:00
parent b9e61a07f7
commit 7d152dfb5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsimglist.pp
View File

@ -194,7 +194,7 @@ class procedure TWin32WSCustomImageList.AddData(AListHandle: TLCLIntfHandle; ACo
end;
// finish mask shifting
if (AWidth and $7) <> 0 then
P^ := P^ shl (7 - (AWidth mod 8));
P^ := P^ shl (7 - (AWidth and 7));
Inc(LinePtr, MaskStride);
end;