paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 04:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 mono image bit order fix

Browse Source 
git-svn-id: trunk@4850 -
This commit is contained in:
micha 2003-11-27 21:05:27 +00:00
parent 94fc75e267
commit d480830945
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/intfgraphics.pas
View File

@ -417,7 +417,11 @@ begin
1,2,4:
begin
OneByte:=P^;
{$ifdef WIN32}
Bits:=Word(cardinal(OneByte shr (Shift+7-Position.Bit)) and PrecMask);
{$else}
Bits:=Word(cardinal(OneByte shr (Shift+Position.Bit)) and PrecMask);
{$endif}
end;
8: begin
OneByte:=P^;
@ -464,7 +468,11 @@ begin
1,2,4:
begin
OneByte:=P^;
{$ifdef WIN32}
ShiftLeft:=Shift+7-Position.Bit;
{$else}
ShiftLeft:=Shift+Position.Bit;
{$endif}
PrecMask:=not (PrecMask shl ShiftLeft);
OneByte:=OneByte and PrecMask; // clear old
OneByte:=OneByte or (Bits shl ShiftLeft); // set new
@ -789,7 +797,6 @@ begin
Position:=FLineStarts[y];
BitOffset:=FDataDescription.BitsPerPixel*cardinal(x)+Position.Bit;
Position.Bit:=(BitOffset and 7);
//Position.Bit:=7 - (BitOffset and 7);
inc(Position.Byte,BitOffset shr 3);
end;
@ -803,7 +810,6 @@ begin
Position:=FMaskLineStarts[y];
BitOffset:=FDataDescription.AlphaBitsPerPixel*cardinal(x)+Position.Bit;
Position.Bit:=(BitOffset and 7);
//Position.Bit:=7 - (BitOffset and 7);
inc(Position.Byte,BitOffset shr 3);
end;