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

bugfix: used wrong eqsl_rcvd info + Prevent multiselect

Browse Source
This commit is contained in:
OH1KH 2019-11-12 09:28:39 +02:00
parent 2a27d606ea
commit cb0d71fb6f
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/cqrlog.lpi
View File

@ -39,7 +39,7 @@
</PublishOptions>
<RunParams>
<local>
<CommandLineParams Value="--DEBUG=0"/>
<CommandLineParams Value="--DEBUG=1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<environment>
@ -52,7 +52,7 @@
<Modes Count="1">
<Mode0 Name="default">
<local>
<CommandLineParams Value="--DEBUG=0"/>
<CommandLineParams Value="--DEBUG=1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<environment>

9
src/fMain.pas
View File

@ -805,9 +805,12 @@ end;
procedure TfrmMain.popWebSearchPopup(Sender: TObject);
begin
mnueQSLView.Visible := pos('E',dmData.qCQRLOG.FieldByName('qsl_r').AsString)>0;
//writeln(dmData.qCQRLOG.FieldByName('callsign').AsString,' ',dmData.qCQRLOG.FieldByName('qsl_r').AsString );
end;
mnueQSLView.Visible := ((pos('E',dmData.qCQRLOG.FieldByName('eqsl_qsl_rcvd').AsString)>0)
and (dbgrdMain.SelectedRows.Count = 1));
if dmData.DebugLevel>=1 then writeln( dbgrdMain.SelectedRows.Count,' ',
dmData.qCQRLOG.FieldByName('callsign').AsString,' ',
dmData.qCQRLOG.FieldByName('eqsl_qsl_rcvd').AsString );
end;
procedure TfrmMain.Timer1Timer(Sender: TObject);
var