From 4466415dbd0701b33b5bca5ed87ca1836663fcb5 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 27 Sep 2012 13:47:47 +0000
Subject: [PATCH] cocoa: fix RGB description

git-svn-id: trunk@38858 -
---
 lcl/interfaces/cocoa/cocoaobject.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoaobject.inc b/lcl/interfaces/cocoa/cocoaobject.inc
index d2c15c09ac..5eb8d98a89 100644
--- a/lcl/interfaces/cocoa/cocoaobject.inc
+++ b/lcl/interfaces/cocoa/cocoaobject.inc
@@ -481,6 +481,7 @@ function TCocoaWidgetSet.RawImage_DescriptionFromCocoaBitmap(out ADesc: TRawImag
 var
   Prec, Shift: Byte;
   BPR: Integer;
+  HasAlpha: Boolean;
 begin
   ADesc.Init;
 
@@ -530,9 +531,11 @@ begin
   if ABitmap.BitmapType in [cbtARGB, cbtRGBA] then
     ADesc.AlphaPrec := Prec;
 
+  HasAlpha := ABitmap.ImageRep.hasAlpha;
+
   case ABitmap.BitmapType of
     cbtRGB: begin
-      Shift := 32 - Prec;
+      Shift := 24 - Prec;
       ADesc.RedShift := Shift;
       Dec(Shift, Prec);
       ADesc.GreenShift := Shift;