Merge pull request #191 from dl7oap/issue166_dxcc_list_with_trim_before_showing_result

fix issue #166 DXCC list fails when qsl received field is filled wrong
This commit is contained in:
Petr Hlozek 2019-07-26 20:31:07 +02:00 committed by GitHub
commit c399630ca8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 18 additions and 3 deletions

View File

@ -69,7 +69,8 @@ QSO List, just above the table.<br>
The detailed statistics are displayed from the logging screen by clicking on the
'Statistics' item of the upper menu bar.<br>
<img src="img/h57.png" border="0"><br>
The 'X' denotes a worked country, the 'Q' a confirmed country.
The 'X' denotes a worked country, the 'Q' a confirmed country, the 'L' a confirmed country by LOTW
and the 'E' a confirmed country by eQSL.<br>
The order is <strong>PHONE - CW - DIGI</strong>. The example above shows, that Rodrigues,
3B9, has been worked on 30 metres CW only, on 20 and 17 metres CW and SSB and on 15 metres
CW, SSB and digital modes.<br><br>

View File

@ -1,7 +1,7 @@
object frmNewQSO: TfrmNewQSO
Left = 108
Left = 27
Height = 709
Top = 153
Top = 173
Width = 997
HelpType = htKeyword
HelpKeyword = 'help/index.html'
@ -3092,6 +3092,7 @@ object frmNewQSO: TfrmNewQSO
'SPE'
)
OnEnter = cmbQSL_SEnter
OnExit = cmbQSL_SExit
OnKeyDown = cmbQSL_SKeyDown
TabOrder = 9
Text = 'MD'
@ -3118,6 +3119,7 @@ object frmNewQSO: TfrmNewQSO
''
)
OnEnter = cmbQSL_REnter
OnExit = cmbQSL_RExit
OnKeyDown = cmbQSL_RKeyDown
TabOrder = 10
end

View File

@ -383,7 +383,9 @@ type
procedure cmbIOTAEnter(Sender: TObject);
procedure cmbPropagationChange(Sender : TObject);
procedure cmbQSL_REnter(Sender: TObject);
procedure cmbQSL_RExit(Sender: TObject);
procedure cmbQSL_SEnter(Sender: TObject);
procedure cmbQSL_SExit(Sender: TObject);
procedure cmbSatelliteChange(Sender : TObject);
procedure dbgrdQSOBeforeColumnSized(Sender: TObject);
procedure edtAwardEnter(Sender: TObject);
@ -4320,11 +4322,21 @@ begin
cmbQSL_R.SelectAll
end;
procedure TfrmNewQSO.cmbQSL_RExit(Sender: TObject);
begin
cmbQSL_R.Text := trim(cmbQSL_R.Text);
end;
procedure TfrmNewQSO.cmbQSL_SEnter(Sender: TObject);
begin
cmbQSL_S.SelectAll
end;
procedure TfrmNewQSO.cmbQSL_SExit(Sender: TObject);
begin
cmbQSL_S.Text := trim(cmbQSL_S.Text);
end;
procedure TfrmNewQSO.cmbSatelliteChange(Sender : TObject);
begin
cmbPropagationChange(nil);