Changeset 15 for trunk/UCore.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/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -57 +57 @@
     procedure AZoomOutExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { private declarations }
@@ -94 +95 @@
 end;
 
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  Project.Free;
+end;
+
 procedure TCore.Init;
 begin
   // Set default
+  Project.Bitmap.ColorFormat := ColorManager.Formats[0];
   Project.Bitmap.Size := Point(200, 100);
   if ColorManager.FormatCount > 0 then
@@ -114 +121 @@
     Project.Bitmap.BackgroundColor.FromTColor(clBlack);
     Project.Bitmap.DPI := FormNew.SpinEditDPI.Value;
-    AZoomAll.Execute;;
+    AZoomAll.Execute;
   end;
 end;