Changeset 340 for trunk/LocalPlayer/Enhance.pas

Timestamp:

Apr 2, 2021, 9:09:49 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for F11 full screen switch key in Start dialog.
• Fixed: Allow F1 and F11 key in Start dialog even if listbox is focused.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Enhance.pas (modified) (6 diffs)

trunk/LocalPlayer/Enhance.pas

@@ -48 +48 @@
   EnhanceDlg: TEnhanceDlg;
 
+
 implementation
 
 uses
-  Help;
+  Help, UKeyBindings;
 
 {$R *.lfm}
@@ -231 +232 @@
         Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
           1 + 2 * (xxt * 2 + 1), 1 + yyt + 12 * (yyt * 3 + 1));
-      inc(x, xxt * 2 + 6)
+      inc(x, xxt * 2 + 6);
     end;
   end;
@@ -302 +303 @@
 procedure TEnhanceDlg.CloseBtnClick(Sender: TObject);
 begin
-  Close
+  Close;
 end;
 
@@ -317 +318 @@
 begin
   Page := TComponent(Sender).Tag;
-  SmartUpdateContent
+  SmartUpdateContent;
 end;
 
@@ -337 +338 @@
           move(MyData.EnhancementJobs[Page, stage + 1],
             MyData.EnhancementJobs[Page, stage], 4 - stage);
-        MyData.EnhancementJobs[Page, 4] := jNone
+        MyData.EnhancementJobs[Page, 4] := jNone;
       end
       else
@@ -364 +365 @@
     begin
       MyData.EnhancementJobs[Page, stage] := jRoad;
-      inc(stage)
+      inc(stage);
     end;
     if (NewJob = jFarm) and not(jIrr in Done) then
     begin
       MyData.EnhancementJobs[Page, stage] := jIrr;
-      inc(stage)
-    end;
-    MyData.EnhancementJobs[Page, stage] := NewJob
-  end;
-  SmartUpdateContent
+      inc(stage);
+    end;
+    MyData.EnhancementJobs[Page, stage] := NewJob;
+  end;
+  SmartUpdateContent;
 end;
 
 procedure TEnhanceDlg.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
-begin
-  if Key = VK_F1 then
+var
+  ShortCut: TShortCut;
+begin
+  ShortCut := KeyToShortCut(Key, Shift);
+  if BHelp.Test(ShortCut) then
     HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkText,
       HelpDlg.TextIndex('MACRO'))