From 02ef1071029eafdeebfdfcdb61e83c7e868d2d9c Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 1 Oct 2008 10:40:38 +0000
Subject: [PATCH] LCL: fixed CreateCompatibleBitmaps without mask

git-svn-id: trunk@16826 -
---
 lcl/graphics.pp | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 45191e6d24..9f611719e0 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -1915,7 +1915,6 @@ function CreateCompatibleBitmaps(const ARawImage: TRawImage; out ABitmap, AMask:
 var
   Desc: TRawImageDescription absolute ARawimage.Description;
 
-  ImgHandle, ImgMaskHandle: HBitmap;
   ImagePtr: PRawImage;
   DevImage: TRawImage;
   DevDesc: TRawImageDescription;
@@ -1923,8 +1922,6 @@ var
   QueryFlags: TRawImageQueryFlags;
   W, H: Integer;
 begin
-  ImgMaskHandle := 0;
-
   W := Desc.Width;
   if W < 1 then W := 1;
   H := Desc.Height;
@@ -1968,12 +1965,7 @@ begin
   end;
 
   try
-    Result := RawImage_CreateBitmaps(ImagePtr^, ImgHandle, ImgMaskHandle, ASkipMask);
-    if not Result then Exit;
-
-    ABitmap := ImgHandle;
-    if not ASkipMask
-    then AMask := ImgMaskHandle;
+    Result := RawImage_CreateBitmaps(ImagePtr^, ABitmap, AMask, ASkipMask);
   finally
     DstImage.Free;
   end;