Changeset 282 for trunk/Start.pas

Timestamp:

Sep 30, 2020, 11:38:14 AM (4 years ago)

Author:

chronos

Message:

• Modified: Remember last selected tab in start form.

File:

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

trunk/Start.pas

@@ -545 +545 @@
   FormerGames := TStringList.Create;
   UpdateFormerGames;
-  ShowTab := tbNew; // always start with new book page
   MapFileName := '';
   Maps := TStringList.Create;
@@ -625 +624 @@
     if ValueExists('AutoDiff') then AutoDiff := Reg.ReadInteger('AutoDiff')
       else AutoDiff := 1;
+    if ValueExists('StartTab') then ShowTab := TStartTab(Reg.ReadInteger('StartTab'))
+       else ShowTab := tbNew;
 
     if ValueExists('ScreenMode') then
@@ -665 +666 @@
       else WriteInteger('ScreenMode', 0);
     WriteInteger('MultiControl', MultiControl);
+    WriteInteger('StartTab', Integer(ShowTab));
   finally
     Free;
@@ -1454 +1456 @@
   FindClose(F);
   ListIndex[tbNew] := FormerGames.Count - 1;
-  if (ShowTab = tbNew) and (FormerGames.Count > 0) then
-    ShowTab := tbPrevious;
   TurnValid := False;
 end;