201 New installation will show first Contest in dropdown list (#202)

w7sst · Mar 19, 2023 · fb7bc25 · fb7bc25
2 parents 0f5b28f + b741366
commit fb7bc25
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Ini.pas b/Ini.pas
@@ -235,8 +235,10 @@ procedure FromIni;
 begin
   with TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')) do
     try
+      // initial Contest pick will be first item in the Contest Dropdown.
+      V:= Ord(FindContestByName(MainForm.SimContestCombo.Items[0]));
       // Load SimContest, but do not call SetContest() until UI is initialized.
-      V:= ReadInteger(SEC_TST, 'SimContest', Ord(scWpx));
+      V:= ReadInteger(SEC_TST, 'SimContest', V);
       if V > Length(ContestDefinitions) then V := 0;
       SimContest := TSimContest(V);
       ActiveContest := @ContestDefinitions[SimContest];