paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 07:29:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed a copy paste error of r31019 #a4437fdf73 (noticed by David Jenkins, issue #0021736)

Browse Source 
git-svn-id: trunk@36810 -
This commit is contained in:
paul 2012-04-16 06:24:48 +00:00
parent 4f73e905fc
commit 2273a3b919
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphtype.pp
View File

@ -1519,8 +1519,8 @@ procedure TRawImage.ExtractRect(const ARect: TRect; out ADst: TRawImage);
// dst[byte|bit]: 12 11 10 07 06 05 04 03 :
for x := 0 to ByteCount - 1 do
begin
DstW1 := SrcPos[0] shl Shift0;
DstPos^ := Byte(DstW1 or (SrcPos[1] shr Shift1));
DstW1 := SrcPos[0] shr Shift0;
DstPos^ := Byte(DstW1 or (SrcPos[1] shl Shift1));
inc(SrcPos);
inc(DstPos);
end;