make sure export init to transparent black

bgrabitmap · Dec 2, 2020 · ef676de · ef676de
1 parent 4fafbbf
commit ef676de
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lazpaint/image/uimageaction.pas b/lazpaint/image/uimageaction.pas
@@ -426,6 +426,7 @@ function TImageActions.ScriptLayerSaveAs(AVars: TVariableSet): TScriptResult;
     end else
     begin
       layerCopy := TBGRABitmap.Create(Image.Width, Image.Height);
+      layerCopy.FillTransparent;
       writer := CreateBGRAImageWriter(imgFormat, true);
       try
         layerCopy.PutImage(Image.LayerOffset[layerIdx].x, Image.LayerOffset[layerIdx].y,