paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

copy transparent property when assigning bitmaps (fixes glyph property editor transparent image)

Browse Source 
git-svn-id: trunk@7976 -
This commit is contained in:
micha 2005-10-21 17:38:01 +00:00
parent 0300aa4c2e
commit d9b8366b67
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/bitmap.inc
View File

@ -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);