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

If Hamlib Dummy rig is selected force rigctld to start. Allow radio init also with Hamlib Dummy rig

Browse Source
This commit is contained in:
OH1KH 2022-02-03 09:05:10 +02:00
parent 38f3a38ad3
commit 91be1bbdfb
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/fPreferences.pas
View File

@ -2498,25 +2498,35 @@ end;
procedure TfrmPreferences.cmbModelRig1Change(Sender: TObject);
begin
if cmbModelRig1.ItemIndex=1 then //With Hamlib Net rigctld do not start rigctld (no sense)
chkR1RunRigCtld.Enabled:=True;
if cmbModelRig1.ItemIndex=0 then //With Hamlib Dummy force rigctld to start
Begin
chkR1RunRigCtld.Checked:=True;
chkR1RunRigCtld.Enabled:=False;
end;
if cmbModelRig1.ItemIndex=1 then //With Hamlib Net rigctld do not start rigctld (no sense)
Begin
chkR1RunRigCtld.Checked:=False;
chkR1RunRigCtld.Enabled:=False;
end
else
chkR1RunRigCtld.Enabled:=True;
end;
TRXParamsChange(nil);
end;
procedure TfrmPreferences.cmbModelRig2Change(Sender: TObject);
begin
if cmbModelRig2.ItemIndex=1 then //With Hamlib Net rigctld do not start rigctld (no sense)
chkR2RunRigCtld.Enabled:=True;
if cmbModelRig2.ItemIndex=0 then //With Hamlib Dummy force rigctld to start
Begin
chkR2RunRigCtld.Checked:=True;
chkR2RunRigCtld.Enabled:=False;
end;
if cmbModelRig2.ItemIndex=1 then //With Hamlib Net rigctld do not start rigctld (no sense)
Begin
chkR2RunRigCtld.Checked:=False;
chkR2RunRigCtld.Enabled:=False;
end
else
chkR2RunRigCtld.Enabled:=True;
end;
TRXParamsChange(nil);
end;

3
src/uRigControl.pas
View File

@ -211,11 +211,14 @@ begin
Writeln('')
end;
{ Hamlib Dummy rig allowed helps testing and maybe some operations without CAT rig
if (RigId = 1) then
begin
Result := False;
exit
end;
}
if fRunRigCtld then
begin