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

fix one range check error, formatting

Browse Source 
git-svn-id: trunk@14251 -
This commit is contained in:
paul 2008-02-26 04:04:06 +00:00
parent 85e93e8f14
commit 7b7eafc985
2 changed files with 7 additions and 7 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
P^ := (P^ and $FE) or ((not AData^.Alpha) shr 7);
if x and $7 = 0
then Inc(p)
else P^ := P^ shl 1;
else P^ := Byte(P^ shl 1);
Inc(AData);
end;
// finish mask shifting