diff --git a/Ini.pas b/Ini.pas index be2c045..1f498ed 100644 --- a/Ini.pas +++ b/Ini.pas @@ -138,14 +138,14 @@ 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 = ''; @@ -153,11 +153,11 @@ TContestDefinition = record 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 diff --git a/Main.dfm b/Main.dfm index f4d69b4..ade538f 100644 --- a/Main.dfm +++ b/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