From 0dc2093687b7b9a9dea6eb63b90ab1cfbc520e77 Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Mon, 24 Sep 2007 07:13:19 +0000
Subject: [PATCH] Carbon intf: fix monochromatic bitmaps

git-svn-id: trunk@12155 -
---
 lcl/interfaces/carbon/carbonwinapi.inc | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index 232fbbaf7b..dbee71e5a4 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -197,11 +197,16 @@ begin
     DebugLn('TCarbonWidgetSet.CreateBitmap');
   {$ENDIF}
   
-  // force 32-bit depth
-  if (BitmapBits = nil) and (BitCount = 24) then BitCount := 32;
+  // WORKAROUND: force context supported depths
+  if BitmapBits = nil then
+  begin
+    if BitCount = 24 then BitCount := 32;
+    if BitCount = 1 then BitCount := 8;
+  end;
   
   case BitCount of
-    1: bmpType := cbtMono;
+    1:  bmpType := cbtMono;
+    8:  bmpType := cbtGray;
     32: bmpType := cbtARGB;
   else
     bmpType := cbtRGB;