Changeset 292 for trunk/Start.pas

Timestamp:

Mar 2, 2021, 10:45:43 PM (3 years ago)

Author:

chronos

Message:

• Modified: Store key bindings in registry.

File:

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

trunk/Start.pas

@@ -166 +166 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer,
-  UKeyBindings;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer;
 
 {$R *.lfm}
@@ -226 +225 @@
   PlayerAutoDiff: array [1 .. 5] of integer = (1, 1, 2, 2, 3);
   EnemyAutoDiff: array [1 .. 5] of integer = (4, 3, 2, 1, 1);
-  KeyBindingsFileName = 'KeyBindings.txt';
 
 { TMiniMap }
@@ -438 +436 @@
   PlayerSlot: TPlayerSlot;
   AIBrains: TBrains;
-  KeyBindingsAbsoluteFileName: string;
 begin
   PlayerSlots := TPlayerSlots.Create;
@@ -449 +446 @@
   LoadConfig;
   LoadAssets;
-  KeyBindingsAbsoluteFileName := DataDir + DirectorySeparator + KeyBindingsFileName;
-  if FileExists(KeyBindingsAbsoluteFileName) then KeyBindings.LoadFromFile(KeyBindingsAbsoluteFileName)
-    else begin
-      ForceDirectories(ExtractFileDir(KeyBindingsAbsoluteFileName));
-      KeyBindings.SaveToFile(KeyBindingsAbsoluteFileName);
-    end;
 
   ActionsOffered := [maConfig, maManual, maCredits, maWeb];
@@ -1979 +1970 @@
   Shift: TShiftState);
 begin
-  if KeyToShortCut(Key, Shift) = BHelp.ShortCut then
+  if KeyToShortCut(Key, Shift) = VK_F1 then
     DirectHelp(cStartHelp);
 end;