Changeset 386 for trunk/LocalPlayer/UKeyBindings.pas

Timestamp:

Apr 27, 2021, 6:48:47 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Remove new key binding from other actions. So one shortcut can control one action.

File:

• trunk/LocalPlayer/UKeyBindings.pas (modified) (2 diffs)

trunk/LocalPlayer/UKeyBindings.pas

@@ -37 +37 @@
     procedure Assign(Source: TKeyBindings);
     procedure ResetToDefault;
+    procedure RemoveShortCut(ShortCut: TShortCut);
   end;
 
@@ -271 +272 @@
   for I := 0 to Count - 1 do
     Items[I].SetDefault;
+end;
+
+procedure TKeyBindings.RemoveShortCut(ShortCut: TShortCut);
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do begin
+    if Items[I].ShortCut = ShortCut then Items[I].ShortCut := 0;
+    if Items[I].ShortCut2 = ShortCut then Items[I].ShortCut2 := 0;
+  end;
 end;