Quellcode durchsuchen

memory leak fix on delete layer

Johann vor 6 Jahren
Ursprung
Commit
1927c9e527
1 geänderte Dateien mit 7 neuen und 0 gelöschten Zeilen
  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;