From b741366b15d74a8a83f322c862358f05a59cee33 Mon Sep 17 00:00:00 2001 From: Mike Brashler Date: Sat, 18 Mar 2023 21:53:33 -0700 Subject: [PATCH] 201 New installation will show first Contest in dropdown list --- Ini.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Ini.pas b/Ini.pas index b293b18..6498826 100644 --- 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];