paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 14:10:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed channel position calcualtions in chooseRGB functions

Browse Source 
git-svn-id: trunk@15519 -
This commit is contained in:
marc 2008-06-22 22:50:01 +00:00
parent 3e452353c0
commit 29ceac9d9b
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/intfgraphics.pas
View File

@ -1411,7 +1411,7 @@ var
or ((Desc.BlueShift shr 3) and 3);
if Desc.ByteOrder = riboMSBFirst
then Positions := not Positions and $00FFFFFF; // reverse positions
then Positions := not Positions and %00111111; // reverse positions
// the locations of R,G,B are now coded in 2 bits each: xxRRBBGG
// the 2-bit value (0..3) represents the location of the channel,
@ -1498,12 +1498,16 @@ var
if Desc.GreenShift and 7 <> 0 then Exit;
if Desc.BlueShift and 7 <> 0 then Exit;
Positions := ((Desc.RedShift shr 3) and 3) shl 4
or ((Desc.GreenShift shr 3) and 3) shl 2
or ((Desc.BlueShift shr 3) and 3);
if Desc.ByteOrder = riboMSBFirst
then Positions := not Positions and $00FFFFFF; // reverse positions
then
Positions := (2-((Desc.RedShift shr 3) and 3)) shl 4
or (2-((Desc.GreenShift shr 3) and 3)) shl 2
or (2-((Desc.BlueShift shr 3) and 3))
else
Positions := ((Desc.RedShift shr 3) and 3) shl 4
or ((Desc.GreenShift shr 3) and 3) shl 2
or ((Desc.BlueShift shr 3) and 3);
// the locations of R,G,B are now coded in 2 bits each: xxRRBBGG
// the 2-bit value (0..3) represents the location of the channel,