Changeset 283 for trunk/Start.pas

Timestamp:

Sep 30, 2020, 11:57:40 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Remember last selected game.

File:

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

trunk/Start.pas

@@ -143 +143 @@
     DefaultAI: string;
     MiniMap: TMiniMap;
+    LastGame: string;
     procedure DrawAction(y, IconIndex: integer; HeaderItem, TextItem: string);
     procedure InitPopup(PlayerIndex: Integer);
@@ -626 +627 @@
     if ValueExists('StartTab') then ShowTab := TStartTab(Reg.ReadInteger('StartTab'))
        else ShowTab := tbNew;
+    if ValueExists('LastGame') then LastGame := Reg.ReadString('LastGame')
+       else LastGame := '';
 
     if ValueExists('ScreenMode') then
@@ -667 +670 @@
     WriteInteger('MultiControl', MultiControl);
     WriteInteger('StartTab', Integer(ShowTab));
+    WriteString('LastGame', LastGame);
   finally
     Free;
@@ -1455 +1459 @@
     until FindNext(F) <> 0;
   FindClose(F);
-  ListIndex[tbNew] := FormerGames.Count - 1;
+  I := FormerGames.IndexOf(LastGame);
+  if I >= 0 then ListIndex[tbPrevious] := I
+    else ListIndex[tbPrevious] := FormerGames.Count - 1;
   TurnValid := False;
 end;
@@ -1617 +1623 @@
   if Tab <> tbNew then
     if List.Count > 0 then begin
-      if (ListIndex[Tab] < List.Count) and (ListIndex[Tab] >= 0) then
-        List.ItemIndex := ListIndex[Tab]
-        else List.ItemIndex := 0;
+      if (ListIndex[Tab] < List.Count) and (ListIndex[Tab] >= 0) then begin
+        List.ItemIndex := ListIndex[Tab];
+      end else List.ItemIndex := 0;
     end else List.ItemIndex := -1;
   case Tab of
@@ -1962 +1968 @@
   ShowTab := Tab;
   Background.Enabled := True;
+  LastGame := FormerGames[ListIndex[tbPrevious]];
 end;