From d430697f03d54659764f89c48f26896557d97f97 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sun, 14 Oct 2007 00:22:38 +0000
Subject: [PATCH] * Fixed alpha generation from mask on bigendian for imagelist

git-svn-id: trunk@12451 -
---
 lcl/interfaces/gtk/gtkobject.inc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 064c304ffe..fb3ab62c75 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -2209,8 +2209,10 @@ var
     DstLinePtr := ARawImage.Data;
     DstBytesPerLine := ARawImage.Description.BytesPerLine;
 
-    DstMask := not (((1 shl ADesc.AlphaPrec) - 1) shl ADesc.AlphaShift);
-    DstSet  := not DstMask;
+    if ADesc.ByteOrder = DefaultByteOrder
+    then DstSet := (not ($FFFFFFFF shl ADesc.AlphaPrec)) shl ADesc.AlphaShift
+    else DstSet := (not ($FFFFFFFF shr ADesc.AlphaPrec)) shr ADesc.AlphaShift;
+    DstMask  := not DstSet;
 
     for Y := 0 to AHeight - 1 do
     begin