fix a memory corruption when using tabs and deselect the usage of a s…

…aved pointermap when generating a pointermap

Cheat Engine/MainUnit.pas

@@ -4276,9 +4276,9 @@ procedure TMainForm.miAddTabClick(Sender: TObject);
 begin
   if scantablist = nil then
   begin
-    setlength(c, panel5.ControlCount);
+    {setlength(c, panel5.ControlCount);
     for i := 0 to panel5.controlcount - 1 do
-      c[i] := panel5.Controls[i];
+      c[i] := panel5.Controls[i];  }
 
 
     foundlistheightdiff := btnMemoryView.top - (foundlist3.top + foundlist3.Height);
@@ -4292,7 +4292,7 @@ procedure TMainForm.miAddTabClick(Sender: TObject);
     scantablist.color := panel5.Color;
     scantablist.Height := 20;
 
-    scantablist.Anchors := scantablist.Anchors + [akRight];
+    scantablist.Anchors := [akTop, akLeft, akRight];
 
     i := scantablist.AddTab(rsScan + ' 1'); //original scan
 
@@ -4308,6 +4308,7 @@ procedure TMainForm.miAddTabClick(Sender: TObject);
     scantablist.OnTabChange := ScanTabListTabChange;
     scantablist.SelectedTab := i;
 
+
     tabcounter := 3;
 
 
@@ -4316,13 +4317,13 @@ procedure TMainForm.miAddTabClick(Sender: TObject);
     //make space for the tabs
     //luckely this routine is not called often
 
-    for i := 0 to length(c) - 1 do
+    for i := 0 to panel5.ControlCount - 1 do
     begin
-      if (c[i] <> panel7) and (c[i] <> LoadButton) and
-        (c[i] <> SaveButton) and (c[i] <> ProcessLabel) and
-        (c[i] <> Progressbar1) and (c[i] <> logopanel) and
-        (c[i] <> btnMemoryView) and (c[i] <> speedbutton2) and
-        (c[i] <> btnAddAddressManually) then
+      if ( panel5.Controls[i] <> panel7) and (panel5.Controls[i] <> LoadButton) and
+        (panel5.Controls[i] <> SaveButton) and (panel5.Controls[i] <> ProcessLabel) and
+        (panel5.Controls[i] <> Progressbar1) and (panel5.Controls[i] <> logopanel) and
+        (panel5.Controls[i] <> btnMemoryView) and (panel5.Controls[i] <> speedbutton2) and
+        (panel5.Controls[i] <> btnAddAddressManually) and (panel5.Controls[i] <> scantablist) then
       begin
         panel5.Controls[i].Top := panel5.Controls[i].Top + 20; //p.height;
         //c[i].Parent:=p;
@@ -5122,21 +5123,23 @@ procedure TMainForm.UpdateTimerTimer(Sender: TObject);
   if addresslist <> nil then
     addresslist.Refresh;
 
-  updatetimer.Enabled := False;
-
   Inc(reinterpretcheck);
   if reinterpretcheck mod 15 = 0 then
     reinterpretaddresses;
-
-  updatetimer.Enabled := True;
 end;
 
 procedure TMainForm.FreezeTimerTimer(Sender: TObject);
 begin
-  freezetimer.Enabled := False;
-  if addresslist <> nil then
-    addresslist.ApplyFreeze;
-  freezetimer.Enabled := True;
+  try
+    if addresslist <> nil then
+      addresslist.ApplyFreeze;
+  except
+    on e:exception do
+    begin
+      OutputDebugString('FreezeTimerTimer:'+e.Message);
+    end;
+
+  end;
 end;
 
 

Cheat Engine/PointerscannerSettingsFrm.pas

@@ -1344,8 +1344,11 @@ procedure TfrmPointerScannerSettings.rbFindValueClick(Sender: TObject);
     cbValueType.Visible:=true;
   end;
 
-  if not gpm then
-    cbAddress.SetFocus;
+  if gpm then
+    cbUseLoadedPointermap.checked:=false
+  else
+    cbAddress.SetFocus
+
 end;
 
 procedure TfrmPointerScannerSettings.edtAddressChange(Sender: TObject);