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

* correctly calculate UnusedBitsAtEnd if there are no unused bits

Browse Source 
to prevent overflow

git-svn-id: trunk@6713 -
This commit is contained in:
peter 2005-01-28 20:33:59 +00:00
parent 605475e8c4
commit 43b319a22c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphtype.pp
View File

@ -267,7 +267,7 @@ begin
if (BitsPerLine and 7)=0 then begin
// byte boundary
UsedBytesPerLine:=UsedBitsPerLine shr 3;
UnusedBitsAtEnd:=8-(UsedBitsPerLine and 7);
UnusedBitsAtEnd:=(8-(UsedBitsPerLine and 7)) and 7;
UnusedByteMask:=($ff00 shr UnusedBitsAtEnd) and $ff;
p:=RawImage^.Mask;
for y:=0 to Height-1 do begin
@ -775,6 +775,10 @@ end.
{ =============================================================================
$Log$
Revision 1.36 2005/01/28 20:33:59 peter
* correctly calculate UnusedBitsAtEnd if there are no unused bits
to prevent overflow
Revision 1.35 2005/01/17 11:53:39 mattias
added showing all four sides to AnchorEditor