Changeset 15 for trunk/UGraphic.pas

Timestamp:

Sep 22, 2014, 11:06:27 PM (10 years ago)

Author:

chronos

Message:

• Added: Memory leaks reporting in debug mode.
• Fixed: Various memory leaks in bitmap, color and colorformat classes.

File:

• trunk/UGraphic.pas (modified) (7 diffs)

trunk/UGraphic.pas

@@ -51 +51 @@
     procedure Assign(Source: TGColor); virtual;
     constructor Create;
+    destructor Destroy; override;
     property Channels[Channel: TGColorChannel]: TGColor read GetChannel;
     property Data: TBitMemory read FData;
@@ -339 +340 @@
   if FColorFormat = AValue then Exit;
   FColorFormat := AValue;
-  FData.Size := FColorFormat.BitDepth;
+  if Assigned(FColorFormat) then
+    FData.Size := FColorFormat.BitDepth
+    else FData.Size := 0;
 end;
 
@@ -406 +409 @@
 begin
   FData := TBitMemory.Create;
-  Format := TGColorFormat.Create;
+  Format := nil;
+end;
+
+destructor TGColor.Destroy;
+begin
+  FData.Free;
+  inherited Destroy;
 end;
 
@@ -566 +575 @@
   X, Y: Integer;
   Color: TGColor;
+  Color2: TGColor;
 begin
   for Y := 0 to Size.Y div 2 - 1 do
     for X := 0 to Size.X - 1 do begin
       Color := Pixels[X, Y];
-      Pixels[X, Y] := Pixels[X, Size.Y - 1 - Y];
+      Color2 := Pixels[X, Size.Y - 1 - Y];
+      Pixels[X, Y] := Color2;
+      Color2.Free;
       Pixels[X, Size.Y - 1 - Y] := Color;
       Color.Free;
@@ -580 +592 @@
   X, Y: Integer;
   Color: TGColor;
+  Color2: TGColor;
 begin
   for Y := 0 to Size.Y - 1 do
     for X := 0 to Size.X div 2 - 1 do begin
       Color := Pixels[X, Y];
-      Pixels[X, Y] := Pixels[Size.X - 1 - X, Y];
+      Color2 := Pixels[Size.X - 1 - X, Y];
+      Pixels[X, Y] := Color2;
+      Color2.Free;
       Pixels[Size.X - 1 - X, Y] := Color;
       Color.Free;
@@ -608 +623 @@
   FData := TBitMemory.Create;
   FBackgroundColor := TGColor.Create;
-  ColorFormat := TGColorFormat.Create;
-  FBackgroundColor.Format := ColorFormat;
-  FBackgroundColor.FromTColor(clBlack);
+  ColorFormat := nil;
   Canvas := TGCanvas.Create;
   Canvas.Bitmap := Self;
@@ -617 +630 @@
 destructor TGBitmap.Destroy;
 begin
+  FBackgroundColor.Free;
+  Canvas.Free;
   Size := Point(0, 0);
   FData.Free;