Changeset 10 for trunk/Back.pas

Timestamp:

Jan 7, 2017, 2:33:20 PM (7 years ago)

Author:

chronos

Message:

• Modified: Created CevoComponents ackage for installable custom components.
• Fixed: Compile time range check error.
• Added: Heaptrace check and fixed some memory leaks.
• Fixed: MaskD function.

File:

• trunk/Back.pas (modified) (2 diffs)

trunk/Back.pas

@@ -8 +8 @@
 
 type
+
+  { TBackground }
+
   TBackground = class(TForm)
+    procedure FormDestroy(Sender: TObject);
     procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -54 +58 @@
 end;
 
+procedure TBackground.FormDestroy(Sender: TObject);
+begin
+  // TODO Why FormClose is not executed?
+  if img <> nil then
+    FreeAndNil(img);
+end;
+
 procedure TBackground.FormPaint(Sender: TObject);
 begin