Changeset 105 for trunk/Start.pas

Timestamp:

Jan 25, 2018, 11:33:52 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Various memory leaks.

File:

• trunk/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -265 +265 @@
     r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
     CombineRgn(r0, r0, r1, RGN_DIFF);
-    // DeleteObject(r1);
+    DeleteObject(r1);
     r1 := CreateRectRgn(QuitBtn.left, QuitBtn.top, QuitBtn.left + QuitBtn.width,
       QuitBtn.top + QuitBtn.height);
     CombineRgn(r0, r0, r1, RGN_OR);
-    // DeleteObject(r1);
+    DeleteObject(r1);
     SetWindowRgn(Handle, r0, false);
-    // DeleteObject(r0); // causes crash with Windows 95
+    DeleteObject(r0); // causes crash with Windows 95
   end
   else
@@ -1343 +1343 @@
         TObject(f.Time));
     until FindNext(f) <> 0;
+  FindClose(f);
   ListIndex[2] := FormerGames.Count - 1;
   if (ShowTab = 2) and (FormerGames.Count > 0) then
@@ -1358 +1359 @@
       Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9));
     until FindNext(f) <> 0;
+  FindClose(F);
   Maps.Sort;
   Maps.Insert(0, Phrases.Lookup('RANMAP'));