Changeset 261 for trunk/Start.pas

Timestamp:

Jun 11, 2020, 12:40:26 AM (4 years ago)

Author:

chronos

Message:

• Added: Partial support for key bindings configuration.

File:

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

trunk/Start.pas

@@ -165 +165 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer,
+  UKeyBindings;
 
 {$R *.lfm}
@@ -224 +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 }
@@ -435 +437 @@
   PlayerSlot: TPlayerSlot;
   AIBrains: TBrains;
+  KeyBindingsAbsoluteFileName: string;
 begin
   PlayerSlots := TPlayerSlots.Create;
@@ -445 +448 @@
   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];
@@ -1963 +1972 @@
   Shift: TShiftState);
 begin
-  if (Shift = []) and (Key = VK_F1) then
+  if KeyToShortCut(Key, Shift) = BHelp.ShortCut then
     DirectHelp(cStartHelp);
 end;