瀏覽代碼

memory leak fix on delete layer

Johann 6 年之前
父節點
當前提交
1927c9e527
共有 1 個文件被更改,包括 7 次插入0 次删除
  1. 7 0
      lazpaint/image/ustatetype.pas

+ 7 - 0
lazpaint/image/ustatetype.pas

@@ -208,6 +208,7 @@ type
     constructor Create(ALayeredImage: TBGRALayeredBitmap; AIndex: integer);
     constructor Create(ALayeredImage: TBGRALayeredBitmap; AIndex: integer;
                        AAlwaysStoreBitmap: boolean);
+    destructor Destroy; override;
     procedure Restore(ALayeredImage: TBGRALayeredBitmap);
     procedure Replace(ALayeredImage: TBGRALayeredBitmap);
     property LayerIndex: integer read FIndex;
@@ -1070,6 +1071,12 @@ begin
   end;
 end;
 
+destructor TStoredLayer.Destroy;
+begin
+  FOriginalData.Free;
+  inherited Destroy;
+end;
+
 procedure TStoredLayer.Restore(ALayeredImage: TBGRALayeredBitmap);
 var
   tempIdx, idxOrig: Integer;