"Capitalise first letter in QTH field" option added

src/CHANGELOG

@@ -11,6 +11,7 @@ Legend:
   + CQ and ITU zones are taken from previous QSO if exists
   + added new band map filter 
   + CALLSIGN, BAND, MODE, FREQ macros to dxcluster allert command added
+  + "Capitalise first letter in QTH field" option added  
   - after change of callsign, report, date or time, the QSO was still marked as uploaded to LotW/eQSL - fixed
   - LoTW upload - when Export all QSO was selected, only 500 QSO were exported - fixed
   - buttons caption in CW type window didn't use values from settings

src/fNewQSO.pas

@@ -2569,7 +2569,7 @@ procedure TfrmNewQSO.edtQTHExit(Sender: TObject);
 var
   tmp : String;
 begin
-  if edtQTH.Text <> '' then
+  if (edtQTH.Text <> '') and cqrini.ReadBool('NewQSO','CapFirstQTHLetter',True) then
   begin
     tmp := edtQTH.Text;
     tmp[1] := UpCase(tmp[1]);

src/fPreferences.lfm

@@ -20,10 +20,10 @@ object frmPreferences: TfrmPreferences
     Height = 649
     Top = 0
     Width = 752
-    ActivePage = tabDXCluster
+    ActivePage = tabNewQSO
     Align = alClient
     Anchors = [akLeft, akRight, akBottom]
-    TabIndex = 10
+    TabIndex = 2
     TabOrder = 0
     OnChange = pgPreferencesChange
     object tabProgram: TTabSheet
@@ -580,27 +580,27 @@ object frmPreferences: TfrmPreferences
         TabOrder = 14
       end
       object chkClearNewQSOFreq: TCheckBox
-        Left = 22
+        Left = 16
         Height = 24
-        Top = 484
+        Top = 562
         Width = 399
         Caption = 'Clear New QSO window after freq is changed more then '
         TabOrder = 15
         Visible = False
       end
       object edtFreqChange: TEdit
-        Left = 422
+        Left = 416
         Height = 27
-        Top = 482
+        Top = 560
         Width = 64
         TabOrder = 16
         Text = 'edtFreqChange'
         Visible = False
       end
       object Label26: TLabel
-        Left = 494
+        Left = 488
         Height = 17
-        Top = 488
+        Top = 566
         Width = 25
         Caption = 'kHz'
         ParentColor = False
@@ -609,11 +609,19 @@ object frmPreferences: TfrmPreferences
       object chkUseCallBookData: TCheckBox
         Left = 22
         Height = 24
-        Top = 509
+        Top = 484
         Width = 429
         Caption = 'Always overwrite info from previous QSO with callbook data'
         TabOrder = 17
       end
+      object chkCapFirstQTHLetter: TCheckBox
+        Left = 22
+        Height = 24
+        Top = 508
+        Width = 245
+        Caption = 'Capitalise first letter in QTH field'
+        TabOrder = 18
+      end
     end
     object tabVisibleColumns: TTabSheet
       Caption = 'Visible columns'

src/fPreferences.pas

@@ -115,6 +115,7 @@ type
     cb125m: TCheckBox;
     cb60m: TCheckBox;
     cb30cm: TCheckBox;
+    chkCapFirstQTHLetter: TCheckBox;
     chkIgnoreLoTW: TCheckBox;
     chkExpCommet: TCheckBox;
     chkPlusToBandMap: TCheckBox;
@@ -1125,6 +1126,7 @@ begin
     cqrini.WriteFloat('NewQSO','FreqChange',0.010);
   cqrini.WriteBool('NewQSO','ClearAfterFreqChange',chkClearNewQSOFreq.Checked);
   cqrini.WriteBool('NewQSO','UseCallBookData',chkUseCallBookData.Checked);
+  cqrini.WriteBool('NewQSO','CapFirstQTHLetter',chkCapFirstQTHLetter.Checked);
 
   cqrini.WriteString('Program', 'Proxy', edtProxy.Text);
   cqrini.WriteString('Program', 'Port', edtPort.Text);
@@ -2490,6 +2492,7 @@ begin
   edtFreqChange.Text := FloatToStr(cqrini.ReadFloat('NewQSO','FreqChange',0.010)*1000);
   chkClearNewQSOFreq.Checked := cqrini.ReadBool('NewQSO','ClearAfterFreqChange',False);
   chkUseCallBookData.Checked := cqrini.ReadBool('NewQSO','UseCallBookData',False);
+  chkCapFirstQTHLetter.Checked := cqrini.ReadBool('NewQSO','CapFirstQTHLetter',True);
 
   edtProxy.Text := cqrini.ReadString('Program', 'Proxy', '');
   edtPort.Text := cqrini.ReadString('Program', 'Port', '');
@@ -2971,7 +2974,7 @@ begin
 
   chkSysUTCClick(nil);
   TRXChanged      := False;
-  WinKeyerChanged := False;
+  WinKeyerChanged := False
 end;
 
 procedure TfrmPreferences.edtPoll2Exit(Sender: TObject);