change MR defaults to match Alex in Ontario for all contests (#167)

- change default values to match Alex's QTH in Ontario
- ARRL/RAC section default is GTA
- reduce initial CW speed down to 25 wpm
- disable all Band Condition checkboxes
- disable QSK checkbox

Ini.pas

@@ -138,26 +138,26 @@   TContestDefinition = record
   HamName: string = 'Alex';
   CWOPSNum: string = '1';
   ArrlClass: string = '3A';
-  ArrlSection: string = 'OR';
-  Wpm: integer = 30;
+  ArrlSection: string = 'GTA';
+  Wpm: integer = 25;
   MaxRxWpm: integer = 0;
   MinRxWpm: integer = 0;
   NRDigits: integer = 1;
   BandWidth: integer = 500;
   Pitch: integer = 600;
-  Qsk: boolean = true;
+  Qsk: boolean = false;
   Rit: integer = 0;
   BufSize: integer = DEFAULTBUFSIZE;
   WebServer: string = '';
   SubmitHiScoreURL: string= '';
   PostMethod: string = '';
   ShowCallsignInfo: integer= 1;
   Activity: integer = 2;
-  Qrn: boolean = true;
-  Qrm: boolean = true;
-  Qsb: boolean = true;
-  Flutter: boolean = true;
-  Lids: boolean = true;
+  Qrn: boolean = false;
+  Qrm: boolean = false;
+  Qsb: boolean = false;
+  Flutter: boolean = false;
+  Lids: boolean = false;
   NoActivityCnt: integer=0;
   NoStopActivity: integer=0;
   GetWpmUsesGaussian: boolean = false;
@@ -205,14 +205,14 @@ procedure FromIni;
       UserExchangeTbl[scWpx] := ReadString(SEC_STN, 'CqWpxExchange', '5NN #');
       UserExchangeTbl[scCwt] := ReadString(SEC_STN, 'CwtExchange',
         Format('%s 1234', [HamName]));
-      UserExchangeTbl[scFieldDay] := ReadString(SEC_STN, 'ArrlFdExchange', '3A OR');
-      UserExchangeTbl[scNaQp] := ReadString(SEC_STN, 'NAQPExchange', 'MIKE OR');
+      UserExchangeTbl[scFieldDay] := ReadString(SEC_STN, 'ArrlFdExchange', '3A GTA');
+      UserExchangeTbl[scNaQp] := ReadString(SEC_STN, 'NAQPExchange', 'ALEX ON');
       UserExchangeTbl[scHst] := ReadString(SEC_STN, 'HSTExchange', '5NN #');
-      UserExchangeTbl[scCQWW] := ReadString(SEC_STN, 'CQWWExchange', '5NN 3');
-      UserExchangeTbl[scArrlDx] := ReadString(SEC_STN, 'ArrlDxExchange', '5NN OR');
+      UserExchangeTbl[scCQWW] := ReadString(SEC_STN, 'CQWWExchange', '5NN 4');
+      UserExchangeTbl[scArrlDx] := ReadString(SEC_STN, 'ArrlDxExchange', '5NN ON');
 
       ArrlClass := ReadString(SEC_STN, 'ArrlClass', '3A');
-      ArrlSection := ReadString(SEC_STN, 'ArrlSection', 'OR');
+      ArrlSection := ReadString(SEC_STN, 'ArrlSection', 'ON');
 
       // load station settings...
       // Calls to SetMyCall, SetPitch, SetBw, etc., moved to MainForm.SetContest

Main.dfm

@@ -640,8 +640,6 @@ object MainForm: TMainForm
         Height = 17
         TabStop = False
         Caption = 'QSB'
-        Checked = True
-        State = cbChecked
         TabOrder = 0
         OnClick = CheckBoxClick
       end
@@ -652,8 +650,6 @@ object MainForm: TMainForm
         Height = 17
         TabStop = False
         Caption = 'QRM'
-        Checked = True
-        State = cbChecked
         TabOrder = 1
         OnClick = CheckBoxClick
       end
@@ -664,8 +660,6 @@ object MainForm: TMainForm
         Height = 17
         TabStop = False
         Caption = 'QRN'
-        Checked = True
-        State = cbChecked
         TabOrder = 2
         OnClick = CheckBoxClick
       end
@@ -676,20 +670,16 @@ object MainForm: TMainForm
         Height = 17
         TabStop = False
         Caption = 'Flutter'
-        Checked = True
-        State = cbChecked
         TabOrder = 3
         OnClick = CheckBoxClick
       end
       object CheckBox6: TCheckBox
         Left = 76
-        Top = 43
+        Top = 41
         Width = 45
         Height = 17
         TabStop = False
-        Caption = 'LID'#39's'
-        Checked = True
-        State = cbChecked
+        Caption = 'LIDs'
         TabOrder = 4
         OnClick = CheckBoxClick
       end
@@ -798,7 +788,7 @@ object MainForm: TMainForm
         MaxValue = 120
         MinValue = 10
         TabOrder = 2
-        Value = 30
+        Value = 25
         OnChange = SpinEdit1Change
       end
       object CheckBox1: TCheckBox
@@ -808,8 +798,6 @@ object MainForm: TMainForm
         Height = 17
         TabStop = False
         Caption = 'QSK'
-        Checked = True
-        State = cbChecked
         TabOrder = 1
         OnClick = CheckBox1Click
       end
@@ -958,7 +946,7 @@ object MainForm: TMainForm
         Height = 23
         CharCase = ecUpperCase
         TabOrder = 1
-        Text = '3A OR'
+        Text = '3A ON'
         OnExit = ExchangeEditExit
       end
     end