From d9b8366b673346c97af81bf04e744ea5c3891454 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Fri, 21 Oct 2005 17:38:01 +0000
Subject: [PATCH] copy transparent property when assigning bitmaps (fixes glyph
 property editor transparent image)

git-svn-id: trunk@7976 -
---
 lcl/include/bitmap.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/bitmap.inc b/lcl/include/bitmap.inc
index b1253991c1..12f3f95d85 100644
--- a/lcl/include/bitmap.inc
+++ b/lcl/include/bitmap.inc
@@ -57,6 +57,7 @@ begin
     // TBitmap can share image data
     // -> check if already shared
     SrcBitmap:=TBitmap(Source);
+    FTransparent := SrcBitmap.Transparent;
     if SrcBitmap.FImage=FImage then exit;
 
     //DebugLn('TBitMap.Assign A  RefCount=',FImage.RefCount);