Changeset 340 for trunk/LocalPlayer

Timestamp:

Apr 2, 2021, 9:09:49 PM (4 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.

Location:

trunk/LocalPlayer

Files:

• Diagram.pas (modified) (2 diffs)
• Enhance.pas (modified) (6 diffs)
• Nego.pas (modified) (2 diffs)
• Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Diagram.pas

@@ -355 +355 @@
       end;
     Popup.Popup(Left + ToggleBtn.Left, Top + ToggleBtn.Top + ToggleBtn.Height);
-  end
+  end;
 end;
 
@@ -370 +370 @@
   else if (Key = VK_F8) and (Kind = dkShip) then // my other key
   else
-    inherited
+    inherited;
 end;
 

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'))

trunk/LocalPlayer/Nego.pas

@@ -681 +681 @@
 procedure TNegoDlg.CloseBtnClick(Sender: TObject);
 begin
-  Close
+  Close;
 end;
 
@@ -690 +690 @@
   begin
     if OkBtn.Visible then
-      OkBtnClick(nil)
+      OkBtnClick(nil);
   end
   else
-    inherited
+    inherited;
 end;
 

trunk/LocalPlayer/Select.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, Term, ScreenTools, IsoEngine, PVSB, BaseWin,
-
   LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   ExtCtrls, ButtonB, ButtonBase, Menus, Types;
@@ -85 +84 @@
   ListDlg: TListDlg;
   ModalSelectDlg: TModalSelectDlg;
+
 
 implementation