Slightly improve memrec changecolor procedure

Useful for color adjustments e.g. from lime rgb(0, 255, 0) to dark green rgb(0, 80, 0)
juguhan · Feb 10, 2019 · 4a0498d · 4a0498d
1 parent 04b3b77
commit 4a0498d
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/Cheat Engine/MainUnit.pas b/Cheat Engine/MainUnit.pas
@@ -3783,11 +3783,13 @@ procedure TMainForm.miChangeColorClick(Sender: TObject);
 var
   i: integer;
 begin
-  if (addresslist.SelCount > 0) and (colordialog1.Execute) then
+  if (addresslist.SelCount > 0) then
   begin
-    for i := 0 to addresslist.Count - 1 do
-      if addresslist[i].isSelected then
-        addresslist[i].color := colordialog1.Color;
+    colordialog1.Color:=addresslist.selectedRecord.Color;
+    if (colordialog1.Execute) then
+      for i := 0 to addresslist.Count - 1 do
+        if addresslist[i].isSelected then
+          addresslist[i].color := colordialog1.Color;
   end;
 end;