Преглед изворни кода

make sure export init to transparent black

Johann ELSASS пре 4 година
родитељ
комит
ef676de1b7
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      lazpaint/image/uimageaction.pas

+ 1 - 0
lazpaint/image/uimageaction.pas

@@ -426,6 +426,7 @@ begin
     end else
     end else
     begin
     begin
       layerCopy := TBGRABitmap.Create(Image.Width, Image.Height);
       layerCopy := TBGRABitmap.Create(Image.Width, Image.Height);
+      layerCopy.FillTransparent;
       writer := CreateBGRAImageWriter(imgFormat, true);
       writer := CreateBGRAImageWriter(imgFormat, true);
       try
       try
         layerCopy.PutImage(Image.LayerOffset[layerIdx].x, Image.LayerOffset[layerIdx].y,
         layerCopy.PutImage(Image.LayerOffset[layerIdx].x, Image.LayerOffset[layerIdx].y,