Changeset 693

Timestamp:

Aug 4, 2025, 4:05:48 PM (8 hours ago)

Author:

chronos

Message:

• Fixed: Select dialog switching with left and right keys.

File:

• trunk/LocalPlayer/Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Select.pas

@@ -1933 +1933 @@
     if MultiPage and (Layer.Index <= High(TLayerIndex)) then begin
       LastSelectionIndex := GetSelectionIndex;
-      if Layer = Layers[laImprovements] then Layer := Layers[laClasses]
-      else if Layer = Layers[laClasses] then Layer := Layers[laWonders];
-      if Layer.Lines.Count = 0 then Layer := Layers[laWonders];
+
+      if (Layer = Layers[laImprovements]) and (Layers[laClasses].Lines.Count > 0) then
+        Layer := Layers[laClasses]
+      else if (Layer = Layers[laClasses]) and (Layers[laWonders].Lines.Count > 0) then
+        Layer := Layers[laWonders];
+
       LayerImprovementsButton.Down := Layer = Layers[laImprovements];
       LayerWondersButton.Down := Layer = Layers[laWonders];
@@ -1948 +1951 @@
     if MultiPage and (Layer.Index > laImprovements) then begin
       LastSelectionIndex := GetSelectionIndex;
-      if Layer = Layers[laWonders] then Layer := Layers[laClasses]
-      else if Layer = Layers[laClasses] then Layer := Layers[laImprovements];
-      if Layer.Lines.Count = 0 then Layer := Layers[laImprovements];
+
+      if (Layer = Layers[laWonders]) and (Layers[laClasses].Lines.Count > 0) then
+        Layer := Layers[laClasses]
+      else if (Layer = Layers[laClasses]) and (Layers[laImprovements].Lines.Count > 0) then
+        Layer := Layers[laImprovements];
+
       LayerImprovementsButton.Down := Layer = Layers[laImprovements];
       LayerWondersButton.Down := Layer = Layers[laWonders];