hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 10:27:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #402 from OH1KH/wb4_error

Browse Source 
Fix for show recent qsos before popup
This commit is contained in:
Petr Hlozek 2021-02-19 08:06:37 +01:00 committed by GitHub
commit bbb64a2794
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/fNewQSO.pas
View File

@ -5945,7 +5945,18 @@ begin
end;
procedure TfrmNewQSO.popEditQSOPopup(Sender: TObject);
var
v:boolean;
begin
v := dmData.qQSOBefore.RecordCount>0;
mnuViewQso.Enabled:=v;
mnuEditQso.Enabled:=v;
mnuHamQth.Enabled:=v;
mnuQrz.Enabled:=v;
mnuIK3QAR.Enabled:=v;
mnueQSLView.Enabled:=v;
if not v then exit;
mnueQSLView.Visible := pos('E',dmData.qQSOBefore.FieldByName('eqsl_qsl_rcvd').AsString)>0;
if dmData.DebugLevel>=1 then writeln(dmData.qQSOBefore.FieldByName('callsign').AsString,' ',
dmData.qQSOBefore.FieldByName('eqsl_qsl_rcvd').AsString )