additional options for gridlist design in Preferences/Fonts/Grid Settings

additional option to split RST (TX and RX) in three fields for QSL label printing

src/CHANGELOG

@@ -5,19 +5,20 @@ Legend:
 --------------------
 
 1.8.0
-  + Design of gridlists can be changed in Preferences/Fonts/Gridlist settings (Tom, DL7BJ) 
   + after click to "Upload all" qso to online logs, info about disabled services is not shown  
   + added new optimized MySQL configuration file (log should be faster and won't show error about missing tables)
   + additional date formats for QSL label printing added (Tom, DL7BJ)
   + alert for for callsign on specific mode and band added
   + %h CW macro added (sends GM/GA/GE calculated from wkd station local time)
   + %rs CW macro added (sends RST_S and replace 9 with N)
+  + design of gridlists can be changed in Preferences/Fonts/Gridlist settings (Tom, DL7BJ) 
+  + additional options to split RST (TX and RX) in three fields for QSL label printing (Tom, DL7BJ)
   - program crashed with error about Exceptions.tbl when started for the first time 
   - Shift+F12 didn't cancel the filtr - fixed
   - "Filter is USED!" info wasn't canceled after click to Sort button (filter was disabled)
   - reading signal strength from RBN spots fixed
   - RBN default port is 7000 not 7300 - fixed
-  - Correct a bug in DXCC statistics in mode 'Paper QSL only' (Tom, DL7BJ) 
+  - fixed a bug in DXCC statistics, mode 'Paper QSL only' (Tom, DL7BJ) 
   - program crashed after close - fixed
   - program crashed after click to Cancel in DB connection window
 

src/cqrlog.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="UTF-8"?>
+<?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -16,7 +16,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="3"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="2081"/>
+      <BuildNr Value="2082"/>
       <StringTable ProductVersion="0.3.1.2026"/>
     </VersionInfo>
     <BuildModes Count="1">

src/fExLabelPrint.pas

@@ -261,6 +261,7 @@ var
   FieldCount : Integer;
   y          : Integer;
   sep     : Char;
+  rst_tmp : String;
 
   procedure WriteDataToFile;
   begin
@@ -311,9 +312,31 @@ var
     if cqrini.ReadBool('QSLExport', 'Freq', True) then
       Write(f,FloatToStr(dmData.Q.FieldByName('freq').AsFloat),C_SEP);
     if cqrini.ReadBool('QSLExport', 'RST_S', True) then
-      Write(f,dmData.Q.FieldByName('rst_s').AsString,C_SEP);
+    begin
+      if not cqrini.ReadBool('QSLExport','SplitRST_S',False) then
+      begin
+        Write(f,dmData.Q.FieldByName('rst_s').AsString,C_SEP)
+      end
+      else begin
+        rst_tmp := dmData.Q.FieldByName('rst_s').AsString + '   ';
+        Write(f,rst_tmp[1],C_SEP);
+        Write(f,rst_tmp[2],C_SEP);
+        Write(f,rst_tmp[3],C_SEP);
+      end;
+    end;
     if cqrini.ReadBool('QSLExport', 'RST_R', True) then
-      Write(f,dmData.Q.FieldByName('rst_r').AsString,C_SEP);
+    begin
+      if not cqrini.ReadBool('QSLExport','SplitRST_R',False) then
+      begin
+        Write(f,dmData.Q.FieldByName('rst_r').AsString,C_SEP);
+      end
+      else begin
+        rst_tmp := dmData.Q.FieldByName('rst_r').AsString + '   ';
+        Write(f,rst_tmp[1],C_SEP);
+        Write(f,rst_tmp[2],C_SEP);
+        Write(f,rst_tmp[3],C_SEP);
+      end;
+    end;
     if cqrini.ReadBool('QSLExport', 'Name', True) then
       Write(f,dmData.Q.FieldByName('name').AsString,C_SEP);
     if cqrini.ReadBool('QSLExport', 'QTH', True) then

src/fNewQSO.lfm

@@ -1,12 +1,12 @@
 object frmNewQSO: TfrmNewQSO
-  Left = 468
+  Left = 75
   Height = 651
-  Top = 410
+  Top = 327
   Width = 807
   HelpType = htKeyword
   HelpKeyword = 'help/index.html'
   Caption = 'New QSO ... (CQRLOG for Linux)'
-  ClientHeight = 634
+  ClientHeight = 651
   ClientWidth = 807
   Font.Height = 8
   Icon.Data = {
@@ -124,11 +124,11 @@ object frmNewQSO: TfrmNewQSO
   OnKeyPress = FormKeyPress
   OnShow = FormShow
   OnWindowStateChange = FormWindowStateChange
-  LCLVersion = '1.2.2.0'
+  LCLVersion = '1.0.10.0'
   object sbNewQSO: TStatusBar
     Left = 0
-    Height = 17
-    Top = 617
+    Height = 21
+    Top = 630
     Width = 807
     Panels = <    
       item
@@ -148,7 +148,7 @@ object frmNewQSO: TfrmNewQSO
   object Panel1: TPanel
     Left = 0
     Height = 499
-    Top = 118
+    Top = 131
     Width = 807
     Align = alBottom
     Caption = 'Panel1'
@@ -178,216 +178,216 @@ object frmNewQSO: TfrmNewQSO
         TabOrder = 0
         object Label11: TLabel
           Left = 256
-          Height = 15
+          Height = 18
           Top = 194
-          Width = 121
+          Width = 142
           Caption = 'Comment to callsign:'
           ParentColor = False
           ParentFont = False
         end
         object Label10: TLabel
           Left = 112
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 27
+          Width = 34
           Caption = 'QTH:'
           ParentColor = False
           ParentFont = False
         end
         object Label9: TLabel
           Left = 16
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 36
+          Width = 45
           Caption = 'Name:'
           ParentColor = False
           ParentFont = False
         end
         object Label8: TLabel
           Left = 448
-          Height = 15
+          Height = 18
           Top = 8
-          Width = 42
+          Width = 52
           Caption = 'My RST:'
           ParentColor = False
           ParentFont = False
         end
         object Label7: TLabel
           Left = 343
-          Height = 15
+          Height = 18
           Top = 8
-          Width = 43
+          Width = 53
           Caption = 'His RST:'
           ParentColor = False
           ParentFont = False
         end
         object lblCall: TLabel
           Left = 16
-          Height = 15
+          Height = 18
           Top = 8
-          Width = 23
+          Width = 30
           Caption = 'Call:'
           ParentColor = False
           ParentFont = False
         end
         object Label5: TLabel
           Left = 136
-          Height = 15
+          Height = 18
           Top = 8
-          Width = 61
+          Width = 74
           Caption = 'Frequency:'
           ParentColor = False
           ParentFont = False
         end
         object Label4: TLabel
           Left = 234
-          Height = 15
+          Height = 18
           Top = 8
-          Width = 35
+          Width = 44
           Caption = 'Mode:'
           ParentColor = False
           ParentFont = False
         end
         object Label3: TLabel
           Left = 183
-          Height = 15
+          Height = 18
           Top = 248
-          Width = 54
+          Width = 64
           Caption = 'End time:'
           ParentColor = False
           ParentFont = False
         end
         object Label2: TLabel
           Left = 114
-          Height = 15
+          Height = 18
           Top = 248
-          Width = 62
+          Width = 73
           Caption = 'Start time:'
           ParentColor = False
           ParentFont = False
         end
         object Label1: TLabel
           Left = 16
-          Height = 15
+          Height = 18
           Top = 248
-          Width = 31
+          Width = 37
           Caption = 'Date:'
           ParentColor = False
           ParentFont = False
         end
         object Label15: TLabel
           Left = 258
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 28
+          Width = 34
           Caption = 'GRID'
           ParentColor = False
           ParentFont = False
         end
         object Label12: TLabel
           Left = 338
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 26
+          Width = 33
           Caption = 'PWR'
           ParentColor = False
           ParentFont = False
         end
         object Label18: TLabel
           Left = 405
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 33
+          Width = 43
           Caption = 'QSL_S'
           ParentColor = False
           ParentFont = False
         end
         object Label19: TLabel
           Left = 468
-          Height = 15
+          Height = 18
           Top = 55
-          Width = 35
+          Width = 44
           Caption = 'QSL_R'
           ParentColor = False
           ParentFont = False
         end
         object Label13: TLabel
           Left = 16
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 18
+          Width = 23
           Caption = 'ITU'
           ParentColor = False
           ParentFont = False
         end
         object Label20: TLabel
           Left = 397
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 34
+          Width = 45
           Caption = 'Award'
           ParentColor = False
           ParentFont = False
         end
         object Label21: TLabel
           Left = 12
-          Height = 15
+          Height = 18
           Top = 147
-          Width = 54
+          Width = 64
           Caption = 'DXCC ref.'
           ParentColor = False
           ParentFont = False
         end
         object Label22: TLabel
           Left = 60
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 25
+          Width = 33
           Caption = 'WAZ'
           ParentColor = False
           ParentFont = False
         end
         object lblIOTA: TLabel
           Left = 127
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 25
+          Width = 33
           Caption = 'IOTA'
           ParentColor = False
           ParentFont = False
         end
         object Label17: TLabel
           Left = 224
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 40
+          Width = 48
           Caption = 'County'
           ParentColor = False
           ParentFont = False
         end
         object Label23: TLabel
           Left = 111
-          Height = 15
+          Height = 18
           Top = 147
-          Width = 103
+          Width = 122
           Caption = 'Comment to QSO:'
           ParentColor = False
           ParentFont = False
         end
         object lblQSLVia: TLabel
           Left = 419
-          Height = 15
+          Height = 18
           Top = 147
-          Width = 41
+          Width = 55
           Caption = 'QSL VIA'
           ParentColor = False
           ParentFont = False
         end
         object lblQSOTakes: TLabel
           Left = 12
-          Height = 15
+          Height = 18
           Top = 303
-          Width = 61
+          Width = 74
           Caption = 'QSO takes '
           ParentColor = False
           ParentFont = False
@@ -395,9 +395,9 @@ object frmNewQSO: TfrmNewQSO
         end
         object lblQSLMgr: TLabel
           Left = 406
-          Height = 15
+          Height = 18
           Top = 194
-          Width = 112
+          Width = 137
           Caption = 'QSL manager found!'
           Font.Color = clRed
           ParentColor = False
@@ -406,18 +406,18 @@ object frmNewQSO: TfrmNewQSO
         end
         object Label25: TLabel
           Left = 344
-          Height = 15
+          Height = 18
           Top = 99
-          Width = 31
+          Width = 37
           Caption = 'State'
           ParentColor = False
           ParentFont = False
         end
         object lblCfmLoTW: TLabel
           Left = 12
-          Height = 15
+          Height = 18
           Top = 199
-          Width = 135
+          Width = 164
           Caption = 'QSO confirmed by LoTW'
           Font.Color = clRed
           ParentColor = False
@@ -426,9 +426,9 @@ object frmNewQSO: TfrmNewQSO
         end
         object lblQSLRcvdDate: TLabel
           Left = 95
-          Height = 15
+          Height = 18
           Top = 226
-          Width = 68
+          Width = 83
           Caption = 'QSL rcvd on '
           Font.Color = clRed
           ParentColor = False
@@ -506,6 +506,7 @@ object frmNewQSO: TfrmNewQSO
             FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
             FF00FFFFFF00FFFFFF00
           }
+          NumGlyphs = 0
           OnClick = sbtnAttachClick
           ShowHint = True
           ParentShowHint = False
@@ -592,6 +593,7 @@ object frmNewQSO: TfrmNewQSO
             FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
             FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
           }
+          NumGlyphs = 0
           OnClick = sbtnQSLClick
           ShowHint = True
           ParentShowHint = False
@@ -638,6 +640,7 @@ object frmNewQSO: TfrmNewQSO
             E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2
             E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FFF5F2E9FF
           }
+          NumGlyphs = 0
           OnClick = sbtnQRZClick
           ShowHint = True
           ParentShowHint = False
@@ -684,6 +687,7 @@ object frmNewQSO: TfrmNewQSO
             FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
             FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
           }
+          NumGlyphs = 0
           ShowHint = True
           ParentShowHint = False
         end
@@ -983,9 +987,9 @@ object frmNewQSO: TfrmNewQSO
           TabOrder = 26
           object cbOffline: TCheckBox
             Left = -3
-            Height = 21
+            Height = 26
             Top = 4
-            Width = 62
+            Width = 74
             Caption = 'Offline'
             OnChange = cbOfflineChange
             TabOrder = 0
@@ -1075,9 +1079,9 @@ object frmNewQSO: TfrmNewQSO
         end
         object chkAutoMode: TCheckBox
           Left = 277
-          Height = 21
+          Height = 26
           Top = 4
-          Width = 54
+          Width = 67
           Caption = 'AUTO'
           Checked = True
           OnChange = chkAutoModeChange
@@ -1125,6 +1129,7 @@ object frmNewQSO: TfrmNewQSO
             DAFFFDF4EDFFEF9342FFF19C53FFF19B52FFF1974AFFFADDC4FFFEFEFEFFFEFD
             FDFFF8D1AFFFF0994CFFF19B52FFF19C53FFEF9342FFFDF4EDFF
           }
+          NumGlyphs = 0
           OnClick = sbtnHamQTHClick
           ShowHint = True
           ParentFont = False
@@ -1172,6 +1177,7 @@ object frmNewQSO: TfrmNewQSO
             FFFFFFFFFFFFFBE7D8FFE56704FFEB883BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
             FFFFF1AE7AFFE56500FFF7D0B2FFFFFFFFFFFFFFFFFFFFFFFFFF
           }
+          NumGlyphs = 0
           ShowHint = True
           ParentShowHint = False
         end
@@ -1183,15 +1189,15 @@ object frmNewQSO: TfrmNewQSO
         Width = 548
         Align = alBottom
         Caption = 'DXCC stat.'
-        ClientHeight = 125
-        ClientWidth = 546
+        ClientHeight = 122
+        ClientWidth = 544
         ParentFont = False
         TabOrder = 1
         object sgrdStatistic: TStringGrid
           Left = 0
-          Height = 125
+          Height = 122
           Top = 0
-          Width = 546
+          Width = 544
           Align = alClient
           ColCount = 2
           DefaultColWidth = 35
@@ -1224,8 +1230,8 @@ object frmNewQSO: TfrmNewQSO
         Top = 274
         Width = 240
         Caption = ' Callbook (qrz.com) '
-        ClientHeight = 138
-        ClientWidth = 238
+        ClientHeight = 135
+        ClientWidth = 236
         ParentFont = False
         TabOrder = 0
         object mCallBook: TMemo
@@ -1244,156 +1250,156 @@ object frmNewQSO: TfrmNewQSO
         Top = 0
         Width = 240
         Caption = 'DXCC info'
-        ClientHeight = 253
-        ClientWidth = 238
+        ClientHeight = 250
+        ClientWidth = 236
         ParentFont = False
         TabOrder = 1
         object Label26: TLabel
           Left = 1
-          Height = 15
+          Height = 18
           Top = 3
-          Width = 48
+          Width = 58
           Caption = 'Country:'
           ParentColor = False
         end
         object Label27: TLabel
           Left = 126
-          Height = 15
+          Height = 18
           Top = 95
-          Width = 35
+          Width = 42
           Caption = 'DXCC:'
           ParentColor = False
           ParentFont = False
         end
         object Label28: TLabel
           Left = 10
-          Height = 15
+          Height = 18
           Top = 78
-          Width = 28
+          Width = 37
           Caption = 'WAZ:'
           ParentColor = False
           ParentFont = False
         end
         object Label29: TLabel
           Left = 19
-          Height = 15
+          Height = 18
           Top = 95
-          Width = 21
+          Width = 27
           Caption = 'ITU:'
           ParentColor = False
           ParentFont = False
         end
         object Label30: TLabel
           Left = 126
-          Height = 15
+          Height = 18
           Top = 78
-          Width = 31
+          Width = 37
           Caption = 'Cont:'
           ParentColor = False
           ParentFont = False
         end
         object lblWAZ: TLabel
           Left = 48
-          Height = 15
+          Height = 18
           Top = 78
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object lblITU: TLabel
           Left = 48
-          Height = 15
+          Height = 18
           Top = 95
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object lblDXCC: TLabel
           Left = 169
-          Height = 15
+          Height = 18
           Top = 95
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object lblCont: TLabel
           Left = 167
-          Height = 15
+          Height = 18
           Top = 78
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object Label31: TLabel
           Left = 18
-          Height = 15
+          Height = 18
           Top = 113
-          Width = 21
+          Width = 29
           Caption = 'LAT:'
           ParentColor = False
           ParentFont = False
         end
         object Label32: TLabel
           Left = 126
-          Height = 15
+          Height = 18
           Top = 113
-          Width = 34
+          Width = 44
           Caption = 'LONG:'
           ParentColor = False
         end
         object lblLat: TLabel
           Left = 48
-          Height = 15
+          Height = 18
           Top = 113
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object lblLong: TLabel
           Left = 169
-          Height = 15
+          Height = 18
           Top = 113
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object Label33: TLabel
           Left = 8
-          Height = 15
+          Height = 18
           Top = 132
-          Width = 30
+          Width = 38
           Caption = 'DIST.:'
           ParentColor = False
           ParentFont = False
         end
         object lblQRA: TLabel
           Left = 48
-          Height = 15
+          Height = 18
           Top = 132
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
         end
         object Label34: TLabel
           Left = 126
-          Height = 15
+          Height = 18
           Top = 132
-          Width = 31
+          Width = 40
           Caption = 'AZIM:'
           ParentColor = False
         end
         object lblAzi: TLabel
           Left = 169
-          Height = 15
+          Height = 18
           Top = 132
-          Width = 21
+          Width = 31
           Caption = 'AAA'
           ParentColor = False
           ParentFont = False
@@ -1410,9 +1416,9 @@ object frmNewQSO: TfrmNewQSO
         end
         object lblGreeting: TLabel
           Left = 189
-          Height = 15
+          Height = 18
           Top = 179
-          Width = 39
+          Width = 48
           Caption = 'GE/GM'
           Font.Color = clRed
           ParentColor = False
@@ -1459,6 +1465,7 @@ object frmNewQSO: TfrmNewQSO
             0000000000000000000000000000000000000000000000000000
           }
           Layout = blGlyphTop
+          NumGlyphs = 0
         end
         object SpeedButton2: TSpeedButton
           Left = 126
@@ -1494,6 +1501,7 @@ object frmNewQSO: TfrmNewQSO
             F5D7F9F2DFEEE6EEF6EB
           }
           Layout = blGlyphBottom
+          NumGlyphs = 0
         end
         object SpeedButton3: TSpeedButton
           Left = 8
@@ -1536,6 +1544,7 @@ object frmNewQSO: TfrmNewQSO
             0000000000000000000000000000000000000000000000000000
           }
           Layout = blGlyphTop
+          NumGlyphs = 0
         end
         object SpeedButton4: TSpeedButton
           Left = 126
@@ -1570,48 +1579,49 @@ object frmNewQSO: TfrmNewQSO
             D7EEEAE5F1F5EFE8F7E4F0FF9AD5E8B1EEFFD8E3FFF1ECFFE3ECFFCFE8F2D1F5
             F5D7F9F2DFEEE6EEF6EB
           }
+          NumGlyphs = 0
         end
         object lblLocSunRise: TLabel
           Left = 38
-          Height = 15
+          Height = 18
           Top = 227
-          Width = 77
+          Width = 94
           Caption = 'lblLocSunRise'
           ParentColor = False
           ParentFont = False
         end
         object lblLocSunSet: TLabel
           Left = 156
-          Height = 15
+          Height = 18
           Top = 227
-          Width = 72
+          Width = 88
           Caption = 'lblLocSunSet'
           ParentColor = False
           ParentFont = False
         end
         object lblTarSunRise: TLabel
           Left = 33
-          Height = 15
+          Height = 18
           Top = 155
-          Width = 74
+          Width = 91
           Caption = 'lblTarSunRise'
           ParentColor = False
           ParentFont = False
         end
         object lblTarSunSet: TLabel
           Left = 152
-          Height = 15
+          Height = 18
           Top = 155
-          Width = 69
+          Width = 85
           Caption = 'lblTarSunSet'
           ParentColor = False
           ParentFont = False
         end
         object Label14: TLabel
           Left = 10
-          Height = 15
+          Height = 18
           Top = 202
-          Width = 32
+          Width = 41
           Caption = 'Local:'
           ParentColor = False
           ParentFont = False
@@ -1659,27 +1669,27 @@ object frmNewQSO: TfrmNewQSO
       TabOrder = 2
       object lblQSONr: TLabel
         Left = 63
-        Height = 15
+        Height = 18
         Top = 9
-        Width = 7
+        Width = 9
         Caption = '0'
         ParentColor = False
         ParentFont = False
       end
       object Label24: TLabel
         Left = 7
-        Height = 15
+        Height = 18
         Top = 9
-        Width = 41
+        Width = 51
         Caption = 'QSO nr.'
         ParentColor = False
         ParentFont = False
       end
       object lblCountryInfo: TLabel
         Left = 527
-        Height = 15
+        Height = 18
         Top = 8
-        Width = 18
+        Width = 25
         Alignment = taRightJustify
         Caption = 'aaa'
         Font.Color = clRed
@@ -1687,10 +1697,10 @@ object frmNewQSO: TfrmNewQSO
         ParentFont = False
       end
       object lblAmbiguous: TLabel
-        Left = 691
-        Height = 15
+        Left = 677
+        Height = 18
         Top = 8
-        Width = 98
+        Width = 120
         Caption = 'Ambiguous prefix'
         Font.Color = clRed
         ParentColor = False
@@ -1699,16 +1709,16 @@ object frmNewQSO: TfrmNewQSO
       end
       object Label6: TLabel
         Left = 86
-        Height = 15
+        Height = 18
         Top = 9
-        Width = 73
+        Width = 88
         Caption = 'QTH profile:  '
         ParentColor = False
         ParentFont = False
       end
       object cmbProfiles: TComboBox
         Left = 175
-        Height = 21
+        Height = 31
         Top = 3
         Width = 325
         ItemHeight = 0
@@ -1721,7 +1731,7 @@ object frmNewQSO: TfrmNewQSO
   end
   object dbgrdQSOBefore: TDBGrid
     Left = 0
-    Height = 118
+    Height = 131
     Top = 0
     Width = 807
     Align = alClient

src/fNewQSO.pas

@@ -1411,6 +1411,32 @@ begin
   edtCall.SetFocus;
   tmrRadio.Enabled := True;
   tmrStart.Enabled := True;
+  (*
+  if cqrini.ReadBool('Fonts','GridGreenBar',False) = True then
+  begin
+    dbgrdQSOBefore.AlternateColor:=$00E7FFEB;
+    sgrdStatistic.AlternateColor:=$00E7FFEB;
+  end else begin
+    dbgrdQSOBefore.AlternateColor:=clWindow;
+    sgrdStatistic.AlternateColor:=clWindow;
+  end;
+  if cqrini.ReadBool('Fonts','GridSmallRows',False) = True then
+  begin
+    dbgrdQSOBefore.DefaultRowHeight:=dbgrdQSOBefore.Canvas.Font.Size+8;
+    sgrdStatistic.DefaultRowHeight:=sgrdStatistic.Canvas.Font.Size+8;
+  end else begin
+    dbgrdQSOBefore.DefaultRowHeight:=25;
+    sgrdStatistic.DefaultRowHeight:=25;
+  end;
+  if cqrini.ReadBool('Fonts','GridBoldTitle',false) = True then
+  begin
+    dbgrdQSOBefore.TitleFont.Style:=[fsBold];
+    sgrdStatistic.TitleFont.Style:=[fsBold];
+  end else begin
+    dbgrdQSOBefore.TitleFont.Style:=[];
+    sgrdStatistic.TitleFont.Style:=[];
+  end;
+  *)
 end;
 
 procedure TfrmNewQSO.tmrEndStartTimer(Sender: TObject);

src/fPreferences.lfm

@@ -4182,7 +4182,7 @@ object frmPreferences: TfrmPreferences
         object chkgridsmallrows: TCheckBox
           Left = 12
           Height = 26
-          Hint = 'Set the row height to 8 pixel + font size'
+          Hint = 'Set the row height to 8 pixel + font size'#10'(Not with default settings checked!)'
           Top = 31
           Width = 101
           Caption = 'Small rows'

src/fQSLExpPref.lfm

@@ -1,7 +1,7 @@
 object frmQSLExpPref: TfrmQSLExpPref
-  Left = 344
+  Left = 489
   Height = 383
-  Top = 518
+  Top = 323
   Width = 517
   Caption = 'Choose fields for export'
   ClientHeight = 383
@@ -86,8 +86,8 @@ object frmQSLExpPref: TfrmQSLExpPref
       Left = 14
       Height = 26
       Top = 235
-      Width = 116
-      Caption = 'RST Received'
+      Width = 84
+      Caption = 'RST Rec.'
       TabOrder = 7
     end
     object chkName: TCheckBox
@@ -205,6 +205,7 @@ object frmQSLExpPref: TfrmQSLExpPref
       Top = 6
       Width = 232
       ItemHeight = 0
+      ItemIndex = 0
       Items.Strings = (
         'yyyy-mm-dd'
         'yyyy-mmm-dd'
@@ -220,6 +221,30 @@ object frmQSLExpPref: TfrmQSLExpPref
       TabOrder = 21
       Text = 'yyyy-mm-dd'
     end
+    object tgSplitRST_S: TToggleBox
+      Left = 102
+      Height = 20
+      Hint = 'Split RST in three fields.'
+      Top = 206
+      Width = 50
+      Caption = 'Split'
+      OnClick = tgSplit_Click
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 22
+    end
+    object tgSplitRST_R: TToggleBox
+      Left = 102
+      Height = 20
+      Hint = 'Split RST in three fields.'
+      Top = 238
+      Width = 50
+      Caption = 'Split'
+      OnClick = tgSplit_Click
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 23
+    end
   end
   object btnOK: TButton
     Left = 432

src/fQSLExpPref.lrs

@@ -1,31 +1,31 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TfrmQSLExpPref','FORMDATA',[
-  'TPF0'#14'TfrmQSLExpPref'#13'frmQSLExpPref'#4'Left'#3'X'#1#6'Height'#3#127#1#3
-  +'Top'#3#6#2#5'Width'#3#5#2#7'Caption'#6#24'Choose fields for export'#12'Clie'
-  +'ntHeight'#3#127#1#11'ClientWidth'#3#5#2#6'OnShow'#7#8'FormShow'#10'LCLVersi'
-  +'on'#6#8'1.0.10.0'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3'p'#1#3
-  +'Top'#2#8#5'Width'#3#160#1#12'ClientHeight'#3'l'#1#11'ClientWidth'#3#156#1#8
-  +'TabOrder'#2#0#0#9'TCheckBox'#9'chkTimeOn'#4'Left'#2#14#6'Height'#2#26#3'Top'
-  +#2'+'#5'Width'#2'Q'#7'Caption'#6#7'Time on'#7'Checked'#9#5'State'#7#9'cbChec'
-  +'ked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#7'chkDate'#4'Left'#2#14#6'Height'#2#26
-  +#3'Top'#2#12#5'Width'#2'<'#7'Caption'#6#4'Date'#7'Checked'#9#5'State'#7#9'cb'
-  +'Checked'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkTimeOff'#4'Left'#2#14#6'Hei'
-  +'ght'#2#26#3'Top'#2'K'#5'Width'#2'T'#7'Caption'#6#8'Time off'#8'TabOrder'#2#2
-  +#0#0#9'TCheckBox'#11'chkCallSign'#4'Left'#2#14#6'Height'#2#26#3'Top'#2'k'#5
-  +'Width'#2'Q'#7'Caption'#6#8'CallSign'#7'Checked'#9#5'State'#7#9'cbChecked'#8
-  +'TabOrder'#2#3#0#0#9'TCheckBox'#7'chkMode'#4'Left'#2#14#6'Height'#2#26#3'Top'
-  +#3#139#0#5'Width'#2'C'#7'Caption'#6#4'Mode'#7'Checked'#9#5'State'#7#9'cbChec'
-  +'ked'#8'TabOrder'#2#4#0#0#9'TCheckBox'#7'chkFreq'#4'Left'#2#14#6'Height'#2#26
-  +#3'Top'#3#171#0#5'Width'#2';'#7'Caption'#6#4'Freq'#8'TabOrder'#2#5#0#0#9'TCh'
-  +'eckBox'#8'chkRST_S'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#203#0#5'Width'#2'U'
-  +#7'Caption'#6#8'RST sent'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2
-  +#6#0#0#9'TCheckBox'#8'chkRST_R'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#235#0#5
-  +'Width'#2't'#7'Caption'#6#12'RST Received'#8'TabOrder'#2#7#0#0#9'TCheckBox'#7
-  +'chkName'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#11#1#5'Width'#2'D'#7'Caption'
-  +#6#4'Name'#8'TabOrder'#2#8#0#0#9'TCheckBox'#6'chkQTH'#4'Left'#2#14#6'Height'
-  +#2#26#3'Top'#3'+'#1#5'Width'#2'9'#7'Caption'#6#3'QTH'#8'TabOrder'#2#9#0#0#9
-  +'TCheckBox'#8'chkQSL_S'#4'Left'#3#166#0#6'Height'#2#26#3'Top'#2'+'#5'Width'#2
+  'TPF0'#14'TfrmQSLExpPref'#13'frmQSLExpPref'#4'Left'#3#233#1#6'Height'#3#127#1
+  +#3'Top'#3'C'#1#5'Width'#3#5#2#7'Caption'#6#24'Choose fields for export'#12'C'
+  +'lientHeight'#3#127#1#11'ClientWidth'#3#5#2#6'OnShow'#7#8'FormShow'#10'LCLVe'
+  +'rsion'#6#8'1.0.10.0'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3'p'
+  +#1#3'Top'#2#8#5'Width'#3#160#1#12'ClientHeight'#3'l'#1#11'ClientWidth'#3#156
+  +#1#8'TabOrder'#2#0#0#9'TCheckBox'#9'chkTimeOn'#4'Left'#2#14#6'Height'#2#26#3
+  +'Top'#2'+'#5'Width'#2'Q'#7'Caption'#6#7'Time on'#7'Checked'#9#5'State'#7#9'c'
+  +'bChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#7'chkDate'#4'Left'#2#14#6'Height'
+  +#2#26#3'Top'#2#12#5'Width'#2'<'#7'Caption'#6#4'Date'#7'Checked'#9#5'State'#7
+  +#9'cbChecked'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkTimeOff'#4'Left'#2#14#6
+  +'Height'#2#26#3'Top'#2'K'#5'Width'#2'T'#7'Caption'#6#8'Time off'#8'TabOrder'
+  +#2#2#0#0#9'TCheckBox'#11'chkCallSign'#4'Left'#2#14#6'Height'#2#26#3'Top'#2'k'
+  +#5'Width'#2'Q'#7'Caption'#6#8'CallSign'#7'Checked'#9#5'State'#7#9'cbChecked'
+  +#8'TabOrder'#2#3#0#0#9'TCheckBox'#7'chkMode'#4'Left'#2#14#6'Height'#2#26#3'T'
+  +'op'#3#139#0#5'Width'#2'C'#7'Caption'#6#4'Mode'#7'Checked'#9#5'State'#7#9'cb'
+  +'Checked'#8'TabOrder'#2#4#0#0#9'TCheckBox'#7'chkFreq'#4'Left'#2#14#6'Height'
+  +#2#26#3'Top'#3#171#0#5'Width'#2';'#7'Caption'#6#4'Freq'#8'TabOrder'#2#5#0#0#9
+  +'TCheckBox'#8'chkRST_S'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#203#0#5'Width'#2
+  +'U'#7'Caption'#6#8'RST sent'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'
+  +#2#6#0#0#9'TCheckBox'#8'chkRST_R'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#235#0
+  +#5'Width'#2'T'#7'Caption'#6#8'RST Rec.'#8'TabOrder'#2#7#0#0#9'TCheckBox'#7'c'
+  +'hkName'#4'Left'#2#14#6'Height'#2#26#3'Top'#3#11#1#5'Width'#2'D'#7'Caption'#6
+  +#4'Name'#8'TabOrder'#2#8#0#0#9'TCheckBox'#6'chkQTH'#4'Left'#2#14#6'Height'#2
+  +#26#3'Top'#3'+'#1#5'Width'#2'9'#7'Caption'#6#3'QTH'#8'TabOrder'#2#9#0#0#9'TC'
+  +'heckBox'#8'chkQSL_S'#4'Left'#3#166#0#6'Height'#2#26#3'Top'#2'+'#5'Width'#2
   +'W'#7'Caption'#6#8'QSL sent'#8'TabOrder'#2#10#0#0#9'TCheckBox'#10'chkQSL_VIA'
   +#4'Left'#3#166#0#6'Height'#2#26#3'Top'#2'k'#5'Width'#2'u'#7'Caption'#6#11'QS'
   +'L manager'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#11#0#0#9'TChe'
@@ -47,12 +47,19 @@ LazarusResources.Add('TfrmQSLExpPref','FORMDATA',[
   +#1#5'Width'#2'>'#7'Caption'#6#4'Band'#7'Checked'#9#5'State'#7#9'cbChecked'#8
   +'TabOrder'#2#20#0#0#9'TComboBox'#13'cbxDateFormat'#4'Left'#3#166#0#6'Height'
   +#2#31#4'Hint'#6'%Change the format of date  for export'#3'Top'#2#6#5'Width'#3
-  +#232#0#10'ItemHeight'#2#0#13'Items.Strings'#1#6#10'yyyy-mm-dd'#6#11'yyyy-mmm'
-  +'-dd'#6#10'dd.mm.yyyy'#6#11'dd mmm yyyy'#6#11'dd-mmm-yyyy'#6#10'yyyy/mm/dd'#6
-  +#11'yyyy/mmm/dd'#6#10'mm/dd/yyyy'#0#14'ParentShowHint'#8#8'ShowHint'#9#8'Tab'
-  +'Order'#2#21#4'Text'#6#10'yyyy-mm-dd'#0#0#0#7'TButton'#5'btnOK'#4'Left'#3#176
-  +#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#2'OK'#7'OnClick'#7#10
-  +'btnOKClick'#8'TabOrder'#2#1#0#0#7'TButton'#9'btnCancel'#4'Left'#3#176#1#6'H'
-  +'eight'#2#25#3'Top'#2'('#5'Width'#2'K'#6'Cancel'#9#7'Caption'#6#6'Cancel'#11
-  +'ModalResult'#2#2#8'TabOrder'#2#2#0#0#0
+  +#232#0#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#10'yyyy-mm-'
+  +'dd'#6#11'yyyy-mmm-dd'#6#10'dd.mm.yyyy'#6#11'dd mmm yyyy'#6#11'dd-mmm-yyyy'#6
+  +#10'yyyy/mm/dd'#6#11'yyyy/mmm/dd'#6#10'mm/dd/yyyy'#0#14'ParentShowHint'#8#8
+  +'ShowHint'#9#8'TabOrder'#2#21#4'Text'#6#10'yyyy-mm-dd'#0#0#10'TToggleBox'#12
+  +'tgSplitRST_S'#4'Left'#2'f'#6'Height'#2#20#4'Hint'#6#26'Split RST in three f'
+  +'ields.'#3'Top'#3#206#0#5'Width'#2'2'#7'Caption'#6#5'Split'#7'OnClick'#7#13
+  +'tgSplit_Click'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#22#0#0#10'T'
+  +'ToggleBox'#12'tgSplitRST_R'#4'Left'#2'f'#6'Height'#2#20#4'Hint'#6#26'Split '
+  +'RST in three fields.'#3'Top'#3#238#0#5'Width'#2'2'#7'Caption'#6#5'Split'#7
+  +'OnClick'#7#13'tgSplit_Click'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'
+  +#2#23#0#0#0#7'TButton'#5'btnOK'#4'Left'#3#176#1#6'Height'#2#25#3'Top'#2#8#5
+  +'Width'#2'K'#7'Caption'#6#2'OK'#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#1#0
+  +#0#7'TButton'#9'btnCancel'#4'Left'#3#176#1#6'Height'#2#25#3'Top'#2'('#5'Widt'
+  +'h'#2'K'#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2
+  +#2#0#0#0
 ]);

src/fQSLExpPref.pas

@@ -37,8 +37,11 @@ type
     chkTimeOn : TCheckBox;
     cbxDateFormat: TComboBox;
     GroupBox1 : TGroupBox;
+    tgSplitRST_S: TToggleBox;
+    tgSplitRST_R: TToggleBox;
     procedure btnOKClick(Sender : TObject);
     procedure FormShow(Sender : TObject);
+    procedure tgSplit_Click(Sender: TObject);
   private
     { private declarations }
   public
@@ -64,7 +67,9 @@ begin
   chkMode.Checked     := cqrini.ReadBool('QSLExport', 'Mode', True);
   chkFreq.Checked     := cqrini.ReadBool('QSLExport', 'Freq', False);
   chkRST_S.Checked    := cqrini.ReadBool('QSLExport', 'RST_S', True);
+  tgSplitRST_S.Checked:= cqrini.ReadBool('QSLExport', 'SplitRST_S', False);
   chkRST_R.Checked    := cqrini.ReadBool('QSLExport', 'RST_R', False);
+  tgSplitRST_R.Checked:= cqrini.ReadBool('QSLExport', 'SplitRST_R', False);
   chkName.Checked     := cqrini.ReadBool('QSLExport', 'Name', False);
   chkQTH.Checked      := cqrini.ReadBool('QSLExport', 'QTH', False);
   chkBand.Checked     := cqrini.ReadBool('QSLExport', 'Band', True);
@@ -78,6 +83,19 @@ begin
   chkPower.Checked    := cqrini.ReadBool('QSLExport', 'Power', False);
   chkRemarks.Checked  := cqrini.ReadBool('QSLExport', 'Remarks', True);
   chkQSLMsg.Checked   := cqrini.ReadBool('QSLExport', 'QSLMsg', True);
+  tgSplit_Click(Sender);
+end;
+
+procedure TfrmQSLExpPref.tgSplit_Click(Sender: TObject);
+begin
+  if tgSplitRST_S.Checked = True then
+    tgSplitRST_S.Color := clLime
+  else
+    tgSplitRST_S.Color := clDefault;
+  if tgSplitRST_R.Checked = True then
+    tgSplitRST_R.Color := clLime
+  else
+    tgSplitRST_R.Color := clDefault;
 end;
 
 procedure TfrmQSLExpPref.btnOKClick(Sender : TObject);
@@ -90,7 +108,9 @@ begin
   cqrini.WriteBool('QSLExport', 'Mode', chkMode.Checked);
   cqrini.WriteBool('QSLExport', 'Freq', chkFreq.Checked);
   cqrini.WriteBool('QSLExport', 'RST_S', chkRST_S.Checked);
+  cqrini.WriteBool('QSLExport', 'SplitRST_S',tgSplitRST_S.Checked);
   cqrini.WriteBool('QSLExport', 'RST_R', chkRST_R.Checked);
+  cqrini.WriteBool('QSLExport', 'SplitRST_R',tgSplitRST_R.Checked);
   cqrini.WriteBool('QSLExport', 'Name', chkName.Checked);
   cqrini.WriteBool('QSLExport', 'QTH', chkQTH.Checked);
   cqrini.WriteBool('QSLExport', 'Band', chkBand.Checked);