station with /AM and /MM caused error "You must enter correct WAZ zone!" - fixed

This commit is contained in:
Petr Hlozek 2013-05-15 21:26:54 +02:00
parent 8da3906ed9
commit bdb271dbb0
4 changed files with 221 additions and 218 deletions

View File

@ -8,6 +8,7 @@ Legend:
- fixed "An invalid integer value" error during label export
- import of QSO with custom digi mode didn't worked if the list of modes didn't ended with comma (,) - fixed
- bandmap didn't worked if the freq of QSO precision was to ten Hz
- station with /AM and /MM caused error "You must enter correct WAZ zone!" - fixed
# removed mode from search criteria to confirm QSO via LoTW
# QSO will be confirmed when time difference between QSO and QSO from LoTW is not more than 1 hour
# default debug level is set 0, if you want to get more info what cqrlog does, run it with debug=1 or more

View File

@ -6,7 +6,7 @@ object frmNewQSO: TfrmNewQSO
HelpType = htKeyword
HelpKeyword = 'help/index.html'
Caption = 'New QSO ... (CQRLOG for Linux)'
ClientHeight = 632
ClientHeight = 631
ClientWidth = 807
Font.Height = 8
Icon.Data = {
@ -127,8 +127,8 @@ object frmNewQSO: TfrmNewQSO
LCLVersion = '0.9.30.2'
object sbNewQSO: TStatusBar
Left = 0
Height = 19
Top = 613
Height = 20
Top = 611
Width = 807
Panels = <
item
@ -148,7 +148,7 @@ object frmNewQSO: TfrmNewQSO
object Panel1: TPanel
Left = 0
Height = 499
Top = 114
Top = 112
Width = 807
Align = alBottom
Caption = 'Panel1'
@ -178,9 +178,9 @@ object frmNewQSO: TfrmNewQSO
TabOrder = 0
object Label11: TLabel
Left = 256
Height = 16
Height = 17
Top = 192
Width = 122
Width = 130
Caption = 'Comment to callsign:'
Font.Color = clBlue
ParentColor = False
@ -188,9 +188,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label10: TLabel
Left = 112
Height = 16
Height = 17
Top = 55
Width = 28
Width = 30
Caption = 'QTH:'
Font.Color = clBlue
ParentColor = False
@ -198,9 +198,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label9: TLabel
Left = 16
Height = 16
Height = 17
Top = 55
Width = 37
Width = 39
Caption = 'Name:'
Font.Color = clBlue
ParentColor = False
@ -208,9 +208,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label8: TLabel
Left = 448
Height = 16
Height = 17
Top = 8
Width = 43
Width = 46
Caption = 'My RST:'
Font.Color = clBlue
ParentColor = False
@ -218,9 +218,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label7: TLabel
Left = 343
Height = 16
Height = 17
Top = 8
Width = 44
Width = 46
Caption = 'His RST:'
Font.Color = clBlue
ParentColor = False
@ -228,9 +228,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCall: TLabel
Left = 16
Height = 16
Height = 17
Top = 8
Width = 24
Width = 28
Caption = 'Call:'
Font.Color = clBlue
ParentColor = False
@ -238,9 +238,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label5: TLabel
Left = 136
Height = 16
Height = 17
Top = 8
Width = 62
Width = 68
Caption = 'Frequency:'
Font.Color = clBlue
ParentColor = False
@ -248,9 +248,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label4: TLabel
Left = 234
Height = 16
Height = 17
Top = 8
Width = 36
Width = 39
Caption = 'Mode:'
Font.Color = clBlue
ParentColor = False
@ -258,9 +258,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label3: TLabel
Left = 183
Height = 16
Height = 17
Top = 248
Width = 55
Width = 57
Caption = 'End time:'
Font.Color = clBlue
ParentColor = False
@ -268,9 +268,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label2: TLabel
Left = 108
Height = 16
Height = 17
Top = 248
Width = 63
Width = 66
Caption = 'Start time:'
Font.Color = clBlue
ParentColor = False
@ -278,9 +278,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label1: TLabel
Left = 16
Height = 16
Height = 17
Top = 248
Width = 32
Width = 34
Caption = 'Date:'
Font.Color = clBlue
ParentColor = False
@ -288,9 +288,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label15: TLabel
Left = 258
Height = 16
Height = 17
Top = 55
Width = 29
Width = 30
Caption = 'GRID'
Font.Color = clBlue
ParentColor = False
@ -298,9 +298,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label12: TLabel
Left = 338
Height = 16
Height = 17
Top = 55
Width = 27
Width = 28
Caption = 'PWR'
Font.Color = clBlue
ParentColor = False
@ -308,9 +308,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label18: TLabel
Left = 405
Height = 16
Height = 17
Top = 55
Width = 34
Width = 38
Caption = 'QSL_S'
Font.Color = clBlue
ParentColor = False
@ -318,9 +318,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label19: TLabel
Left = 468
Height = 16
Height = 17
Top = 55
Width = 36
Width = 39
Caption = 'QSL_R'
Font.Color = clBlue
ParentColor = False
@ -328,9 +328,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label13: TLabel
Left = 16
Height = 16
Height = 17
Top = 99
Width = 19
Width = 20
Caption = 'ITU'
Font.Color = clBlue
ParentColor = False
@ -338,9 +338,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label20: TLabel
Left = 414
Height = 16
Height = 17
Top = 99
Width = 35
Width = 39
Caption = 'Award'
Font.Color = clBlue
ParentColor = False
@ -348,9 +348,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label21: TLabel
Left = 12
Height = 16
Height = 17
Top = 147
Width = 55
Width = 58
Caption = 'DXCC ref.'
Font.Color = clBlue
ParentColor = False
@ -358,9 +358,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label22: TLabel
Left = 57
Height = 16
Height = 17
Top = 99
Width = 26
Width = 28
Caption = 'WAZ'
Font.Color = clBlue
ParentColor = False
@ -368,9 +368,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblIOTA: TLabel
Left = 127
Height = 16
Height = 17
Top = 99
Width = 26
Width = 29
Caption = 'IOTA'
Font.Color = clBlue
ParentColor = False
@ -378,9 +378,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label17: TLabel
Left = 224
Height = 16
Height = 17
Top = 99
Width = 41
Width = 45
Caption = 'County'
Font.Color = clBlue
ParentColor = False
@ -388,9 +388,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label23: TLabel
Left = 111
Height = 16
Height = 17
Top = 147
Width = 104
Width = 111
Caption = 'Comment to QSO:'
Font.Color = clBlue
ParentColor = False
@ -398,9 +398,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLVia: TLabel
Left = 419
Height = 16
Height = 17
Top = 147
Width = 42
Width = 49
Caption = 'QSL VIA'
Font.Color = clBlue
ParentColor = False
@ -408,9 +408,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSOTakes: TLabel
Left = 12
Height = 16
Height = 17
Top = 303
Width = 62
Width = 68
Caption = 'QSO takes '
ParentColor = False
ParentFont = False
@ -418,9 +418,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLMgr: TLabel
Left = 406
Height = 16
Height = 17
Top = 191
Width = 113
Width = 123
Caption = 'QSL manager found!'
Font.Color = clRed
ParentColor = False
@ -429,9 +429,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label25: TLabel
Left = 344
Height = 16
Height = 17
Top = 99
Width = 32
Width = 35
Caption = 'State'
Font.Color = clBlue
ParentColor = False
@ -439,9 +439,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCfmLoTW: TLabel
Left = 12
Height = 16
Height = 17
Top = 199
Width = 136
Width = 147
Caption = 'QSO confirmed by LoTW'
Font.Color = clRed
ParentColor = False
@ -450,9 +450,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLRcvdDate: TLabel
Left = 95
Height = 16
Height = 17
Top = 226
Width = 69
Width = 76
Caption = 'QSL rcvd on '
Font.Color = clRed
ParentColor = False
@ -1213,14 +1213,14 @@ object frmNewQSO: TfrmNewQSO
Width = 548
Align = alBottom
Caption = 'DXCC stat.'
ClientHeight = 110
ClientHeight = 109
ClientWidth = 544
Font.Color = clBlue
ParentFont = False
TabOrder = 1
object sgrdStatistic: TStringGrid
Left = 0
Height = 110
Height = 109
Top = 0
Width = 544
Align = alClient
@ -1255,7 +1255,7 @@ object frmNewQSO: TfrmNewQSO
Top = 255
Width = 240
Caption = ' Callbook (qrz.com) '
ClientHeight = 140
ClientHeight = 139
ClientWidth = 236
Font.Color = clBlue
ParentFont = False
@ -1276,151 +1276,151 @@ object frmNewQSO: TfrmNewQSO
Top = -3
Width = 240
Caption = 'DXCC info'
ClientHeight = 221
ClientHeight = 220
ClientWidth = 236
Font.Color = clBlue
ParentFont = False
TabOrder = 1
object Label26: TLabel
Left = 1
Height = 16
Height = 17
Top = 3
Width = 49
Width = 53
Caption = 'Country:'
ParentColor = False
end
object Label27: TLabel
Left = 124
Height = 16
Height = 17
Top = 89
Width = 36
Width = 38
Caption = 'DXCC:'
ParentColor = False
end
object Label28: TLabel
Left = 8
Height = 16
Height = 17
Top = 72
Width = 29
Width = 31
Caption = 'WAZ:'
ParentColor = False
end
object Label29: TLabel
Left = 17
Height = 16
Height = 17
Top = 89
Width = 22
Width = 23
Caption = 'ITU:'
ParentColor = False
end
object Label30: TLabel
Left = 129
Height = 16
Height = 17
Top = 73
Width = 32
Width = 34
Caption = 'Cont:'
ParentColor = False
end
object lblWAZ: TLabel
Left = 48
Height = 16
Height = 17
Top = 73
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblITU: TLabel
Left = 48
Height = 16
Height = 17
Top = 89
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblDXCC: TLabel
Left = 169
Height = 16
Height = 17
Top = 89
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblCont: TLabel
Left = 169
Height = 16
Height = 17
Top = 73
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label31: TLabel
Left = 16
Height = 16
Height = 17
Top = 105
Width = 22
Width = 25
Caption = 'LAT:'
ParentColor = False
end
object Label32: TLabel
Left = 122
Height = 16
Height = 17
Top = 105
Width = 35
Width = 38
Caption = 'LONG:'
ParentColor = False
end
object lblLat: TLabel
Left = 48
Height = 16
Height = 17
Top = 105
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblLong: TLabel
Left = 169
Height = 16
Height = 17
Top = 105
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label33: TLabel
Left = 6
Height = 16
Height = 17
Top = 122
Width = 31
Width = 32
Caption = 'DIST.:'
ParentColor = False
end
object lblQRA: TLabel
Left = 48
Height = 16
Height = 17
Top = 122
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label34: TLabel
Left = 126
Height = 16
Height = 17
Top = 122
Width = 32
Width = 34
Caption = 'AZIM:'
ParentColor = False
end
object lblAzi: TLabel
Left = 169
Height = 16
Height = 17
Top = 122
Width = 22
Width = 28
Caption = 'AAA'
ParentColor = False
ParentFont = False
@ -1437,9 +1437,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblGreeting: TLabel
Left = 169
Height = 16
Height = 17
Top = 166
Width = 40
Width = 42
Caption = 'GE/GM'
Font.Color = clRed
ParentColor = False
@ -1604,45 +1604,45 @@ object frmNewQSO: TfrmNewQSO
end
object lblLocSunRise: TLabel
Left = 49
Height = 16
Height = 17
Top = 209
Width = 78
Width = 85
Caption = 'lblLocSunRise'
ParentColor = False
ParentFont = False
end
object lblLocSunSet: TLabel
Left = 169
Height = 16
Height = 17
Top = 209
Width = 73
Width = 81
Caption = 'lblLocSunSet'
ParentColor = False
ParentFont = False
end
object lblTarSunRise: TLabel
Left = 46
Height = 16
Height = 17
Top = 141
Width = 75
Width = 81
Caption = 'lblTarSunRise'
ParentColor = False
ParentFont = False
end
object lblTarSunSet: TLabel
Left = 167
Height = 16
Height = 17
Top = 141
Width = 70
Width = 77
Caption = 'lblTarSunSet'
ParentColor = False
ParentFont = False
end
object Label14: TLabel
Left = 8
Height = 16
Height = 17
Top = 185
Width = 33
Width = 37
Caption = 'Local:'
ParentColor = False
end
@ -1689,7 +1689,7 @@ object frmNewQSO: TfrmNewQSO
TabOrder = 2
object lblQSONr: TLabel
Left = 63
Height = 16
Height = 17
Top = 9
Width = 8
Caption = '0'
@ -1698,9 +1698,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label24: TLabel
Left = 7
Height = 16
Height = 17
Top = 9
Width = 42
Width = 45
Caption = 'QSO nr.'
Font.Color = clBlue
ParentColor = False
@ -1708,9 +1708,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCountryInfo: TLabel
Left = 567
Height = 16
Height = 17
Top = 8
Width = 19
Width = 22
Alignment = taRightJustify
Caption = 'aaa'
Font.Color = clRed
@ -1719,9 +1719,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblAmbiguous: TLabel
Left = 701
Height = 16
Height = 17
Top = 8
Width = 99
Width = 107
Caption = 'Ambiguous prefix'
Font.Color = clRed
ParentColor = False
@ -1730,16 +1730,16 @@ object frmNewQSO: TfrmNewQSO
end
object Label6: TLabel
Left = 86
Height = 16
Height = 17
Top = 9
Width = 74
Width = 80
Caption = 'QTH profile: '
ParentColor = False
ParentFont = False
end
object cmbProfiles: TComboBox
Left = 175
Height = 21
Height = 22
Top = 3
Width = 325
ItemHeight = 0
@ -1752,7 +1752,7 @@ object frmNewQSO: TfrmNewQSO
end
object dbgrdQSOBefore: TDBGrid
Left = 0
Height = 114
Height = 112
Top = 0
Width = 807
Align = alClient

View File

@ -4,7 +4,7 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
'TPF0'#10'TfrmNewQSO'#9'frmNewQSO'#4'Left'#3#201#1#6'Height'#3#139#2#3'Top'#2
+'W'#5'Width'#3''''#3#8'HelpType'#7#9'htKeyword'#11'HelpKeyword'#6#15'help/in'
+'dex.html'#7'Caption'#6#30'New QSO ... (CQRLOG for Linux)'#12'ClientHeight'#3
+'x'#2#11'ClientWidth'#3''''#3#11'Font.Height'#2#8#9'Icon.Data'#10#194#12#0#0
+'w'#2#11'ClientWidth'#3''''#3#11'Font.Height'#2#8#9'Icon.Data'#10#194#12#0#0
+#190#12#0#0#0#0#1#0#1#0' '#0#0#1#0#24#0#168#12#0#0#22#0#0#0'('#0#0#0' '#0#0
+#0'@'#0#0#0#1#0#24#0#0#0#0#0#0#12#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
@ -165,9 +165,9 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'Create'#7#10'FormCreate'#9'OnKeyDown'#7#11'FormKeyDown'#10'OnKeyPress'#7#12
+'FormKeyPress'#6'OnShow'#7#8'FormShow'#19'OnWindowStateChange'#7#21'FormWind'
+'owStateChange'#10'LCLVersion'#6#8'0.9.30.2'#0#10'TStatusBar'#8'sbNewQSO'#4
+'Left'#2#0#6'Height'#2#19#3'Top'#3'e'#2#5'Width'#3''''#3#6'Panels'#14#1#5'Wi'
+'Left'#2#0#6'Height'#2#20#3'Top'#3'c'#2#5'Width'#3''''#3#6'Panels'#14#1#5'Wi'
+'dth'#2'2'#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#0#11'Simp'
+'lePanel'#8#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3#243#1#3'Top'#2'r'
+'lePanel'#8#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3#243#1#3'Top'#2'p'
+#5'Width'#3''''#3#5'Align'#7#8'alBottom'#7'Caption'#6#6'Panel1'#12'ClientHei'
+'ght'#3#243#1#11'ClientWidth'#3''''#3#8'TabOrder'#2#0#0#6'TPanel'#6'Panel3'#4
+'Left'#2#1#6'Height'#3#210#1#3'Top'#2' '#5'Width'#3'$'#2#5'Align'#7#8'alClie'
@ -175,68 +175,68 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#1#11'ClientWidth'#3'$'#2#8'TabOrder'#2#0#0#6'TPanel'#6'Panel6'#4'Left'#2#0#6
+'Height'#3'E'#1#3'Top'#2#0#5'Width'#3'$'#2#5'Align'#7#8'alClient'#10'BevelOu'
+'ter'#7#6'bvNone'#12'ClientHeight'#3'E'#1#11'ClientWidth'#3'$'#2#8'TabOrder'
+#2#0#0#6'TLabel'#7'Label11'#4'Left'#3#0#1#6'Height'#2#16#3'Top'#3#192#0#5'Wi'
+'dth'#2'z'#7'Caption'#6#20'Comment to callsign:'#10'Font.Color'#7#6'clBlue'
+#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label10'#4'Left'#2'p'#6
+'Height'#2#16#3'Top'#2'7'#5'Width'#2#28#7'Caption'#6#4'QTH:'#10'Font.Color'#7
+#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label9'#4'Left'
+#2#16#6'Height'#2#16#3'Top'#2'7'#5'Width'#2'%'#7'Caption'#6#5'Name:'#10'Font'
+'.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Labe'
+'l8'#4'Left'#3#192#1#6'Height'#2#16#3'Top'#2#8#5'Width'#2'+'#7'Caption'#6#7
+'My RST:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#6'Label7'#4'Left'#3'W'#1#6'Height'#2#16#3'Top'#2#8#5'Width'#2','#7
+#2#0#0#6'TLabel'#7'Label11'#4'Left'#3#0#1#6'Height'#2#17#3'Top'#3#192#0#5'Wi'
+'dth'#3#130#0#7'Caption'#6#20'Comment to callsign:'#10'Font.Color'#7#6'clBlu'
+'e'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label10'#4'Left'#2'p'
+#6'Height'#2#17#3'Top'#2'7'#5'Width'#2#30#7'Caption'#6#4'QTH:'#10'Font.Color'
+#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label9'#4'Le'
+'ft'#2#16#6'Height'#2#17#3'Top'#2'7'#5'Width'#2''''#7'Caption'#6#5'Name:'#10
+'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6
+'Label8'#4'Left'#3#192#1#6'Height'#2#17#3'Top'#2#8#5'Width'#2'.'#7'Caption'#6
+#7'My RST:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0
+#6'TLabel'#6'Label7'#4'Left'#3'W'#1#6'Height'#2#17#3'Top'#2#8#5'Width'#2'.'#7
+'Caption'#6#8'His RST:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Pare'
+'ntFont'#8#0#0#6'TLabel'#7'lblCall'#4'Left'#2#16#6'Height'#2#16#3'Top'#2#8#5
+'Width'#2#24#7'Caption'#6#5'Call:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'
+#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3#136#0#6'Height'#2#16#3
+'Top'#2#8#5'Width'#2'>'#7'Caption'#6#10'Frequency:'#10'Font.Color'#7#6'clBlu'
+'ntFont'#8#0#0#6'TLabel'#7'lblCall'#4'Left'#2#16#6'Height'#2#17#3'Top'#2#8#5
+'Width'#2#28#7'Caption'#6#5'Call:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'
+#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3#136#0#6'Height'#2#17#3
+'Top'#2#8#5'Width'#2'D'#7'Caption'#6#10'Frequency:'#10'Font.Color'#7#6'clBlu'
+'e'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#234
+#0#6'Height'#2#16#3'Top'#2#8#5'Width'#2'$'#7'Caption'#6#5'Mode:'#10'Font.Col'
+'or'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label3'#4
,'Left'#3#183#0#6'Height'#2#16#3'Top'#3#248#0#5'Width'#2'7'#7'Caption'#6#9'En'
+'d time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#6'Label2'#4'Left'#2'l'#6'Height'#2#16#3'Top'#3#248#0#5'Width'#2'?'#7
+'Caption'#6#11'Start time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10
+'ParentFont'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#16#3'Top'#3
+#248#0#5'Width'#2' '#7'Caption'#6#5'Date:'#10'Font.Color'#7#6'clBlue'#11'Par'
+#0#6'Height'#2#17#3'Top'#2#8#5'Width'#2''''#7'Caption'#6#5'Mode:'#10'Font.Co'
+'lor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label3'
,#4'Left'#3#183#0#6'Height'#2#17#3'Top'#3#248#0#5'Width'#2'9'#7'Caption'#6#9
+'End time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0
+#6'TLabel'#6'Label2'#4'Left'#2'l'#6'Height'#2#17#3'Top'#3#248#0#5'Width'#2'B'
+#7'Caption'#6#11'Start time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10
+'ParentFont'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#17#3'Top'#3
+#248#0#5'Width'#2'"'#7'Caption'#6#5'Date:'#10'Font.Color'#7#6'clBlue'#11'Par'
+'entColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label15'#4'Left'#3#2#1#6'Heigh'
+'t'#2#16#3'Top'#2'7'#5'Width'#2#29#7'Caption'#6#4'GRID'#10'Font.Color'#7#6'c'
+'t'#2#17#3'Top'#2'7'#5'Width'#2#30#7'Caption'#6#4'GRID'#10'Font.Color'#7#6'c'
+'lBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3
+'R'#1#6'Height'#2#16#3'Top'#2'7'#5'Width'#2#27#7'Caption'#6#3'PWR'#10'Font.C'
+'R'#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2#28#7'Caption'#6#3'PWR'#10'Font.C'
+'olor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label1'
+'8'#4'Left'#3#149#1#6'Height'#2#16#3'Top'#2'7'#5'Width'#2'"'#7'Caption'#6#5
+'8'#4'Left'#3#149#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2'&'#7'Caption'#6#5
+'QSL_S'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label19'#4'Left'#3#212#1#6'Height'#2#16#3'Top'#2'7'#5'Width'#2'$'
+'TLabel'#7'Label19'#4'Left'#3#212#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2''''
+#7'Caption'#6#5'QSL_R'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#7'Label13'#4'Left'#2#16#6'Height'#2#16#3'Top'#2'c'#5
+'Width'#2#19#7'Caption'#6#3'ITU'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label20'#4'Left'#3#158#1#6'Height'#2#16#3
+'Top'#2'c'#5'Width'#2'#'#7'Caption'#6#5'Award'#10'Font.Color'#7#6'clBlue'#11
+'tFont'#8#0#0#6'TLabel'#7'Label13'#4'Left'#2#16#6'Height'#2#17#3'Top'#2'c'#5
+'Width'#2#20#7'Caption'#6#3'ITU'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label20'#4'Left'#3#158#1#6'Height'#2#17#3
+'Top'#2'c'#5'Width'#2''''#7'Caption'#6#5'Award'#10'Font.Color'#7#6'clBlue'#11
+'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label21'#4'Left'#2#12#6'Hei'
+'ght'#2#16#3'Top'#3#147#0#5'Width'#2'7'#7'Caption'#6#9'DXCC ref.'#10'Font.Co'
+'ght'#2#17#3'Top'#3#147#0#5'Width'#2':'#7'Caption'#6#9'DXCC ref.'#10'Font.Co'
+'lor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label22'
+#4'Left'#2'9'#6'Height'#2#16#3'Top'#2'c'#5'Width'#2#26#7'Caption'#6#3'WAZ'#10
+#4'Left'#2'9'#6'Height'#2#17#3'Top'#2'c'#5'Width'#2#28#7'Caption'#6#3'WAZ'#10
+'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7
+'lblIOTA'#4'Left'#2#127#6'Height'#2#16#3'Top'#2'c'#5'Width'#2#26#7'Caption'#6
+'lblIOTA'#4'Left'#2#127#6'Height'#2#17#3'Top'#2'c'#5'Width'#2#29#7'Caption'#6
+#4'IOTA'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label17'#4'Left'#3#224#0#6'Height'#2#16#3'Top'#2'c'#5'Width'#2')'
+'TLabel'#7'Label17'#4'Left'#3#224#0#6'Height'#2#17#3'Top'#2'c'#5'Width'#2'-'
+#7'Caption'#6#6'County'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Pare'
+'ntFont'#8#0#0#6'TLabel'#7'Label23'#4'Left'#2'o'#6'Height'#2#16#3'Top'#3#147
+#0#5'Width'#2'h'#7'Caption'#6#15'Comment to QSO:'#10'Font.Color'#7#6'clBlue'
+'ntFont'#8#0#0#6'TLabel'#7'Label23'#4'Left'#2'o'#6'Height'#2#17#3'Top'#3#147
+#0#5'Width'#2'o'#7'Caption'#6#15'Comment to QSO:'#10'Font.Color'#7#6'clBlue'
+#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#9'lblQSLVia'#4'Left'#3#163
+#1#6'Height'#2#16#3'Top'#3#147#0#5'Width'#2'*'#7'Caption'#6#7'QSL VIA'#10'Fo'
+#1#6'Height'#2#17#3'Top'#3#147#0#5'Width'#2'1'#7'Caption'#6#7'QSL VIA'#10'Fo'
+'nt.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#11'l'
+'blQSOTakes'#4'Left'#2#12#6'Height'#2#16#3'Top'#3'/'#1#5'Width'#2'>'#7'Capti'
+'blQSOTakes'#4'Left'#2#12#6'Height'#2#17#3'Top'#3'/'#1#5'Width'#2'D'#7'Capti'
+'on'#6#10'QSO takes '#11'ParentColor'#8#10'ParentFont'#8#7'Visible'#8#0#0#6
+'TLabel'#9'lblQSLMgr'#4'Left'#3#150#1#6'Height'#2#16#3'Top'#3#191#0#5'Width'
+#2'q'#7'Caption'#6#18'QSL manager found!'#10'Font.Color'#7#5'clRed'#11'Paren'
+'TLabel'#9'lblQSLMgr'#4'Left'#3#150#1#6'Height'#2#17#3'Top'#3#191#0#5'Width'
+#2'{'#7'Caption'#6#18'QSL manager found!'#10'Font.Color'#7#5'clRed'#11'Paren'
+'tColor'#8#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#7'Label25'#4'Left'#3
+'X'#1#6'Height'#2#16#3'Top'#2'c'#5'Width'#2' '#7'Caption'#6#5'State'#10'Font'
+'X'#1#6'Height'#2#17#3'Top'#2'c'#5'Width'#2'#'#7'Caption'#6#5'State'#10'Font'
+'.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#10'lbl'
+'CfmLoTW'#4'Left'#2#12#6'Height'#2#16#3'Top'#3#199#0#5'Width'#3#136#0#7'Capt'
+'CfmLoTW'#4'Left'#2#12#6'Height'#2#17#3'Top'#3#199#0#5'Width'#3#147#0#7'Capt'
+'ion'#6#21'QSO confirmed by LoTW'#10'Font.Color'#7#5'clRed'#11'ParentColor'#8
+#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#14'lblQSLRcvdDate'#4'Left'#2'_'
+#6'Height'#2#16#3'Top'#3#226#0#5'Width'#2'E'#7'Caption'#6#12'QSL rcvd on '#10
+#6'Height'#2#17#3'Top'#3#226#0#5'Width'#2'L'#7'Caption'#6#12'QSL rcvd on '#10
+'Font.Color'#7#5'clRed'#11'ParentColor'#8#10'ParentFont'#8#7'Visible'#8#0#0
+#12'TSpeedButton'#10'sbtnAttach'#4'Left'#3#167#1#6'Height'#2#22#4'Hint'#6#22
+'Call has an attachment'#3'Top'#3'$'#1#5'Width'#2#23#10'Glyph.Data'#10#202#7
@ -768,9 +768,9 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#208#178#255#255#255#255#255#255#255#255#255#255#255#255#255#9'NumGlyphs'#2#0
+#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2
+#0#6'Height'#3#141#0#3'Top'#3'E'#1#5'Width'#3'$'#2#5'Align'#7#8'alBottom'#7
+'Caption'#6#10'DXCC stat.'#12'ClientHeight'#2'n'#11'ClientWidth'#3' '#2#10'F'
+'Caption'#6#10'DXCC stat.'#12'ClientHeight'#2'm'#11'ClientWidth'#3' '#2#10'F'
,'ont.Color'#7#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#1#0#11'TStringGrid'#13
+'sgrdStatistic'#4'Left'#2#0#6'Height'#2'n'#3'Top'#2#0#5'Width'#3' '#2#5'Alig'
+'sgrdStatistic'#4'Left'#2#0#6'Height'#2'm'#3'Top'#2#0#5'Width'#3' '#2#5'Alig'
+'n'#7#8'alClient'#8'ColCount'#2#2#15'DefaultColWidth'#2'#'#9'FixedCols'#2#0#9
+'FixedRows'#2#0#11'Font.Height'#2#8#10'ParentFont'#8#8'RowCount'#2#4#8'TabOr'
+'der'#2#0#15'TitleFont.Color'#7#6'clBlue'#16'TitleFont.Height'#2#8#10'TitleS'
@ -779,45 +779,45 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'vNone'#28'ChildSizing.LeftRightSpacing'#3#228#1#12'ClientHeight'#3#210#1#11
+'ClientWidth'#3#1#1#8'TabOrder'#2#1#0#9'TGroupBox'#11'grbCallBook'#4'Left'#2
+#9#6'Height'#3#171#0#3'Top'#3#255#0#5'Width'#3#240#0#7'Caption'#6#20' Callbo'
+'ok (qrz.com) '#12'ClientHeight'#3#140#0#11'ClientWidth'#3#236#0#10'Font.Col'
+'ok (qrz.com) '#12'ClientHeight'#3#139#0#11'ClientWidth'#3#236#0#10'Font.Col'
+'or'#7#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#0#0#5'TMemo'#9'mCallBook'#4
+'Left'#2#1#6'Height'#3#150#0#3'Top'#2#0#5'Width'#3#233#0#10'ParentFont'#8#10
+'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#9'GroupBox1'
+#4'Left'#2#9#6'Height'#3#252#0#3'Top'#2#253#5'Width'#3#240#0#7'Caption'#6#9
+'DXCC info'#12'ClientHeight'#3#221#0#11'ClientWidth'#3#236#0#10'Font.Color'#7
+'DXCC info'#12'ClientHeight'#3#220#0#11'ClientWidth'#3#236#0#10'Font.Color'#7
+#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#1#0#6'TLabel'#7'Label26'#4'Left'#2
+#1#6'Height'#2#16#3'Top'#2#3#5'Width'#2'1'#7'Caption'#6#8'Country:'#11'Paren'
+'tColor'#8#0#0#6'TLabel'#7'Label27'#4'Left'#2'|'#6'Height'#2#16#3'Top'#2'Y'#5
+'Width'#2'$'#7'Caption'#6#5'DXCC:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label28'
+#4'Left'#2#8#6'Height'#2#16#3'Top'#2'H'#5'Width'#2#29#7'Caption'#6#4'WAZ:'#11
+'ParentColor'#8#0#0#6'TLabel'#7'Label29'#4'Left'#2#17#6'Height'#2#16#3'Top'#2
+'Y'#5'Width'#2#22#7'Caption'#6#4'ITU:'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+'el30'#4'Left'#3#129#0#6'Height'#2#16#3'Top'#2'I'#5'Width'#2' '#7'Caption'#6
+#1#6'Height'#2#17#3'Top'#2#3#5'Width'#2'5'#7'Caption'#6#8'Country:'#11'Paren'
+'tColor'#8#0#0#6'TLabel'#7'Label27'#4'Left'#2'|'#6'Height'#2#17#3'Top'#2'Y'#5
+'Width'#2'&'#7'Caption'#6#5'DXCC:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label28'
+#4'Left'#2#8#6'Height'#2#17#3'Top'#2'H'#5'Width'#2#31#7'Caption'#6#4'WAZ:'#11
+'ParentColor'#8#0#0#6'TLabel'#7'Label29'#4'Left'#2#17#6'Height'#2#17#3'Top'#2
+'Y'#5'Width'#2#23#7'Caption'#6#4'ITU:'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+'el30'#4'Left'#3#129#0#6'Height'#2#17#3'Top'#2'I'#5'Width'#2'"'#7'Caption'#6
+#5'Cont:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblWAZ'#4'Left'#2'0'#6'Height'#2
+#16#3'Top'#2'I'#5'Width'#2#22#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#6'lblITU'#4'Left'#2'0'#6'Height'#2#16#3'Top'#2'Y'#5
+'Width'#2#22#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TL'
+'abel'#7'lblDXCC'#4'Left'#3#169#0#6'Height'#2#16#3'Top'#2'Y'#5'Width'#2#22#7
+#17#3'Top'#2'I'#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#6'lblITU'#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'Y'#5
+'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TL'
+'abel'#7'lblDXCC'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'Y'#5'Width'#2#28#7
+'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'lblCon'
+'t'#4'Left'#3#169#0#6'Height'#2#16#3'Top'#2'I'#5'Width'#2#22#7'Caption'#6#3
+'t'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'I'#5'Width'#2#28#7'Caption'#6#3
+'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label31'#4'Left'#2
+#16#6'Height'#2#16#3'Top'#2'i'#5'Width'#2#22#7'Caption'#6#4'LAT:'#11'ParentC'
+'olor'#8#0#0#6'TLabel'#7'Label32'#4'Left'#2'z'#6'Height'#2#16#3'Top'#2'i'#5
+'Width'#2'#'#7'Caption'#6#5'LONG:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblLat'
+#4'Left'#2'0'#6'Height'#2#16#3'Top'#2'i'#5'Width'#2#22#7'Caption'#6#3'AAA'#11
+#16#6'Height'#2#17#3'Top'#2'i'#5'Width'#2#25#7'Caption'#6#4'LAT:'#11'ParentC'
+'olor'#8#0#0#6'TLabel'#7'Label32'#4'Left'#2'z'#6'Height'#2#17#3'Top'#2'i'#5
+'Width'#2'&'#7'Caption'#6#5'LONG:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblLat'
+#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'i'#5'Width'#2#28#7'Caption'#6#3'AAA'#11
+'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'lblLong'#4'Left'#3#169#0#6
+'Height'#2#16#3'Top'#2'i'#5'Width'#2#22#7'Caption'#6#3'AAA'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label33'#4'Left'#2#6#6'Height'#2#16#3'Top'
+#2'z'#5'Width'#2#31#7'Caption'#6#6'DIST.:'#11'ParentColor'#8#0#0#6'TLabel'#6
+'lblQRA'#4'Left'#2'0'#6'Height'#2#16#3'Top'#2'z'#5'Width'#2#22#7'Caption'#6#3
+'Height'#2#17#3'Top'#2'i'#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label33'#4'Left'#2#6#6'Height'#2#17#3'Top'
+#2'z'#5'Width'#2' '#7'Caption'#6#6'DIST.:'#11'ParentColor'#8#0#0#6'TLabel'#6
+'lblQRA'#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'z'#5'Width'#2#28#7'Caption'#6#3
+'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label34'#4'Left'#2
+'~'#6'Height'#2#16#3'Top'#2'z'#5'Width'#2' '#7'Caption'#6#5'AZIM:'#11'Parent'
+'Color'#8#0#0#6'TLabel'#6'lblAzi'#4'Left'#3#169#0#6'Height'#2#16#3'Top'#2'z'
+#5'Width'#2#22#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'~'#6'Height'#2#17#3'Top'#2'z'#5'Width'#2'"'#7'Caption'#6#5'AZIM:'#11'Parent'
+'Color'#8#0#0#6'TLabel'#6'lblAzi'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'z'
+#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#10'lblHisTime'#4'Left'#2#8#6'Height'#2#20#3'Top'#3#166#0#5'Width'#3
+#162#0#8'AutoSize'#8#7'Caption'#6#14'AAAAAAAAAAAAAA'#11'ParentColor'#8#10'Pa'
+'rentFont'#8#0#0#6'TLabel'#11'lblGreeting'#4'Left'#3#169#0#6'Height'#2#16#3
+'Top'#3#166#0#5'Width'#2'('#7'Caption'#6#5'GE/GM'#10'Font.Color'#7#5'clRed'
+'rentFont'#8#0#0#6'TLabel'#11'lblGreeting'#4'Left'#3#169#0#6'Height'#2#17#3
+'Top'#3#166#0#5'Width'#2'*'#7'Caption'#6#5'GE/GM'#10'Font.Color'#7#5'clRed'
+#11'ParentColor'#8#10'ParentFont'#8#0#0#12'TSpeedButton'#12'SpeedButton1'#4
+'Left'#2#19#6'Height'#2#22#3'Top'#3#139#0#5'Width'#2#23#4'Flat'#9#10'Glyph.D'
+'ata'#10#250#3#0#0#246#3#0#0'BM'#246#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
@ -973,16 +973,16 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#235#228#220#251#236#221#249#236#215#238#234#229#241#245#239#232#247#228#240
+#255#154#213#232#177#238#255#216#227#255#241#236#255#227#236#255#207#232#242
+#209#245#245#215#249#242#223#238#230#238#246#235#9'NumGlyphs'#2#0#0#0#6'TLab'
+'el'#13'lblLocSunRise'#4'Left'#2'1'#6'Height'#2#16#3'Top'#3#209#0#5'Width'#2
+'N'#7'Caption'#6#13'lblLocSunRise'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#12'lblLocSunSet'#4'Left'#3#169#0#6'Height'#2#16#3'Top'#3#209#0#5'Wi'
+'dth'#2'I'#7'Caption'#6#12'lblLocSunSet'#11'ParentColor'#8#10'ParentFont'#8#0
+#0#6'TLabel'#13'lblTarSunRise'#4'Left'#2'.'#6'Height'#2#16#3'Top'#3#141#0#5
+'Width'#2'K'#7'Caption'#6#13'lblTarSunRise'#11'ParentColor'#8#10'ParentFont'
+#8#0#0#6'TLabel'#12'lblTarSunSet'#4'Left'#3#167#0#6'Height'#2#16#3'Top'#3#141
+#0#5'Width'#2'F'#7'Caption'#6#12'lblTarSunSet'#11'ParentColor'#8#10'ParentFo'
+'nt'#8#0#0#6'TLabel'#7'Label14'#4'Left'#2#8#6'Height'#2#16#3'Top'#3#185#0#5
+'Width'#2'!'#7'Caption'#6#6'Local:'#11'ParentColor'#8#0#0#5'TMemo'#8'mCountr'
+'el'#13'lblLocSunRise'#4'Left'#2'1'#6'Height'#2#17#3'Top'#3#209#0#5'Width'#2
+'U'#7'Caption'#6#13'lblLocSunRise'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#12'lblLocSunSet'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#3#209#0#5'Wi'
+'dth'#2'Q'#7'Caption'#6#12'lblLocSunSet'#11'ParentColor'#8#10'ParentFont'#8#0
+#0#6'TLabel'#13'lblTarSunRise'#4'Left'#2'.'#6'Height'#2#17#3'Top'#3#141#0#5
+'Width'#2'Q'#7'Caption'#6#13'lblTarSunRise'#11'ParentColor'#8#10'ParentFont'
+#8#0#0#6'TLabel'#12'lblTarSunSet'#4'Left'#3#167#0#6'Height'#2#17#3'Top'#3#141
+#0#5'Width'#2'M'#7'Caption'#6#12'lblTarSunSet'#11'ParentColor'#8#10'ParentFo'
+'nt'#8#0#0#6'TLabel'#7'Label14'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#185#0#5
+'Width'#2'%'#7'Caption'#6#6'Local:'#11'ParentColor'#8#0#0#5'TMemo'#8'mCountr'
+'y'#4'Left'#2'9'#6'Height'#2'J'#3'Top'#2#253#5'Width'#3#171#0#10'ParentFont'
+#8#8'TabOrder'#2#0#0#0#0#7'TButton'#7'btnSave'#4'Left'#2#11#6'Height'#2#25#3
+'Top'#3#176#1#5'Width'#2'}'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#16
@ -992,21 +992,21 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'ult'#2#2#7'OnClick'#7#14'btnCancelClick'#8'TabOrder'#2#3#0#0#0#6'TPanel'#6
+'Panel4'#4'Left'#2#1#6'Height'#2#31#3'Top'#2#1#5'Width'#3'%'#3#5'Align'#7#5
+'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#31#11'ClientWidth'#3'%'
+#3#8'TabOrder'#2#2#0#6'TLabel'#8'lblQSONr'#4'Left'#2'?'#6'Height'#2#16#3'Top'
+#3#8'TabOrder'#2#2#0#6'TLabel'#8'lblQSONr'#4'Left'#2'?'#6'Height'#2#17#3'Top'
+#2#9#5'Width'#2#8#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label24'#4'Left'#2#7#6'Height'#2#16#3'Top'#2#9#5'Width'#2'*'#7'Ca'
+'TLabel'#7'Label24'#4'Left'#2#7#6'Height'#2#17#3'Top'#2#9#5'Width'#2'-'#7'Ca'
+'ption'#6#7'QSO nr.'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentF'
+'ont'#8#0#0#6'TLabel'#14'lblCountryInfo'#4'Left'#3'7'#2#6'Height'#2#16#3'Top'
+#2#8#5'Width'#2#19#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#3'aaa'#10
+'ont'#8#0#0#6'TLabel'#14'lblCountryInfo'#4'Left'#3'7'#2#6'Height'#2#17#3'Top'
+#2#8#5'Width'#2#22#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#3'aaa'#10
+'Font.Color'#7#5'clRed'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#12
+'lblAmbiguous'#4'Left'#3#189#2#6'Height'#2#16#3'Top'#2#8#5'Width'#2'c'#7'Cap'
+'lblAmbiguous'#4'Left'#3#189#2#6'Height'#2#17#3'Top'#2#8#5'Width'#2'k'#7'Cap'
+'tion'#6#16'Ambiguous prefix'#10'Font.Color'#7#5'clRed'#11'ParentColor'#8#10
+'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2'V'#6'Height'#2
+#16#3'Top'#2#9#5'Width'#2'J'#7'Caption'#6#14'QTH profile: '#11'ParentColor'
+#17#3'Top'#2#9#5'Width'#2'P'#7'Caption'#6#14'QTH profile: '#11'ParentColor'
+#8#10'ParentFont'#8#0#0#9'TComboBox'#11'cmbProfiles'#4'Left'#3#175#0#6'Heigh'
+'t'#2#21#3'Top'#2#3#5'Width'#3'E'#1#10'ItemHeight'#2#0#8'OnChange'#7#17'cmbP'
+'t'#2#22#3'Top'#2#3#5'Width'#3'E'#1#10'ItemHeight'#2#0#8'OnChange'#7#17'cmbP'
+'rofilesChange'#10'ParentFont'#8#8'TabOrder'#2#0#4'Text'#6#11'cmbProfiles'#0
+#0#0#0#7'TDBGrid'#14'dbgrdQSOBefore'#4'Left'#2#0#6'Height'#2'r'#3'Top'#2#0#5
+#0#0#0#7'TDBGrid'#14'dbgrdQSOBefore'#4'Left'#2#0#6'Height'#2'p'#3'Top'#2#0#5
+'Width'#3''''#3#5'Align'#7#8'alClient'#5'Color'#7#8'clWindow'#7'Columns'#14#0
+#7'Options'#11#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#12'dgColumnMov'
+'e'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#11'dgRowSelect'#21'dgAlwaysShowS'

View File

@ -1770,6 +1770,12 @@ begin
exit;
if edtCall.Text = '' then
exit;
if edtITU.Text = '' then
edtITU.Text := '0';
if edtWAZ.Text = '' then
edtWAZ.Text := '0';
if not dmUtils.IsDateOK(edtDate.Text) then
begin
Application.MessageBox('You must enter correct date!', 'Error', mb_ok + mb_IconError);
@ -1808,10 +1814,6 @@ begin
//SaveGrid;
dmData.SaveComment(edtCall.Text,mComment.Text);
if edtITU.Text = '' then
edtITU.Text := '0';
if edtWAZ.Text = '' then
edtWAZ.Text := '0';
myloc := sbNewQSO.Panels[0].Text;
myloc := copy(sbNewQSO.Panels[0].Text,Length(cMyLoc)+1,6);