Changeset 709 for trunk/LocalPlayer/Draft.pas

Timestamp:

Aug 21, 2025, 11:37:30 PM (5 hours ago)

Author:

chronos

Message:

• Added: Enter key confirms battle dialog window.
• Fixed: Potential battle dialog drawing issue.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Draft.pas (modified) (5 diffs)

trunk/LocalPlayer/Draft.pas

@@ -415 +415 @@
 procedure TDraftDlg.SetDomain(D: Integer);
 
-  function Prio(fix: Integer): Integer;
+  function Prio(Fix: Integer): Integer;
   var
     FeaturePreq: Integer;
   begin
-    FeaturePreq := Feature[fix].Preq;
+    FeaturePreq := Feature[Fix].Preq;
     Assert(FeaturePreq <> preNA);
-    if fix < mcFirstNonCap then
-      Result := 10000 + fix
+    if Fix < mcFirstNonCap then
+      Result := 10000 + Fix
     else if FeaturePreq = preNone then
       Result := 20000
@@ -429 +429 @@
     else
       Result := 30000 + AdvValue[FeaturePreq];
-    if not (fix in AutoFeature) then
+    if not (Fix in AutoFeature) then
       Inc(Result, 90000);
   end;
@@ -471 +471 @@
 begin
   Domain := dGround;
-  while (Domain < dAir) and (upgrade[Domain, 0].Preq <> preNone) and
-    (MyRO.Tech[upgrade[Domain, 0].Preq] < tsApplicable) do
+  while (Domain < dAir) and (Upgrade[Domain, 0].Preq <> preNone) and
+    (MyRO.Tech[Upgrade[Domain, 0].Preq] < tsApplicable) do
     Inc(Domain);
 
@@ -478 +478 @@
   MaxLines := 0;
   for D := 0 to nDomains - 1 do
-    if (upgrade[D, 0].Preq = preNone) or
-      (MyRO.Tech[upgrade[D, 0].Preq] >= tsApplicable) then
+    if (Upgrade[D, 0].Preq = preNone) or
+      (MyRO.Tech[Upgrade[D, 0].Preq] >= tsApplicable) then
     begin
       Count := 0;
@@ -519 +519 @@
   begin
     for D := 0 to nDomains - 1 do
-      if (D <> Domain) and ((upgrade[D, 0].Preq = preNone) or
-        (MyRO.Tech[upgrade[D, 0].Preq] >= tsApplicable)) and
+      if (D <> Domain) and ((Upgrade[D, 0].Preq = preNone) or
+        (MyRO.Tech[Upgrade[D, 0].Preq] >= tsApplicable)) and
         (X >= xDomain + D * DomainPitch) and
         (X < xDomain + D * DomainPitch + 36) and (Y >= yDomain) and