Changeset 282 for trunk


Ignore:
Timestamp:
Sep 30, 2020, 11:38:14 AM (4 years ago)
Author:
chronos
Message:
  • Modified: Remember last selected tab in start form.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Start.pas

    r261 r282  
    545545  FormerGames := TStringList.Create;
    546546  UpdateFormerGames;
    547   ShowTab := tbNew; // always start with new book page
    548547  MapFileName := '';
    549548  Maps := TStringList.Create;
     
    625624    if ValueExists('AutoDiff') then AutoDiff := Reg.ReadInteger('AutoDiff')
    626625      else AutoDiff := 1;
     626    if ValueExists('StartTab') then ShowTab := TStartTab(Reg.ReadInteger('StartTab'))
     627       else ShowTab := tbNew;
    627628
    628629    if ValueExists('ScreenMode') then
     
    665666      else WriteInteger('ScreenMode', 0);
    666667    WriteInteger('MultiControl', MultiControl);
     668    WriteInteger('StartTab', Integer(ShowTab));
    667669  finally
    668670    Free;
     
    14541456  FindClose(F);
    14551457  ListIndex[tbNew] := FormerGames.Count - 1;
    1456   if (ShowTab = tbNew) and (FormerGames.Count > 0) then
    1457     ShowTab := tbPrevious;
    14581458  TurnValid := False;
    14591459end;
Note: See TracChangeset for help on using the changeset viewer.