paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 21:19:35 +01: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 : // dst[byte|bit]: 12 11 10 07 06 05 04 03 :
for x := 0 to ByteCount - 1 do for x := 0 to ByteCount - 1 do
begin begin
DstW1 := SrcPos[0] shl Shift0; DstW1 := SrcPos[0] shr Shift0;
DstPos^ := Byte(DstW1 or (SrcPos[1] shr Shift1)); DstPos^ := Byte(DstW1 or (SrcPos[1] shl Shift1));
inc(SrcPos); inc(SrcPos);
inc(DstPos); inc(DstPos);
end; end;