Merge pull request #151 from OH1KH/rigpoll

Returned rig polling 'fm' to 'fmv'
This commit is contained in:
Petr Hlozek 2019-04-04 19:46:01 +02:00 committed by GitHub
commit 197ae9ac20
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 12 additions and 4 deletions

View File

@ -97,7 +97,7 @@
<MinVersion Major="1" Minor="2" Release="1" Valid="True"/>
</Item10>
</RequiredPackages>
<Units Count="102">
<Units Count="104">
<Unit0>
<Filename Value="cqrlog.lpr"/>
<IsPartOfProject Value="True"/>
@ -773,6 +773,14 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="DataModule"/>
</Unit101>
<Unit102>
<Filename Value="uRigControl.pas"/>
<IsPartOfProject Value="True"/>
</Unit102>
<Unit103>
<Filename Value="uRotControl.pas"/>
<IsPartOfProject Value="True"/>
</Unit103>
</Units>
</ProjectOptions>
<CompilerOptions>

View File

@ -23,7 +23,7 @@ uses
fRadioMemories, fAddRadioMemory, fException, fCommentToCall,
fNewCommentToCall, fFindCommentToCall, frExportPref, fExportPref,
fWorkedGrids, fPropDK0WCY, fRemind, fContest, fMonWsjtx, fXfldigi,
dMembership, dSatellite;
dMembership, dSatellite, uRigControl, uRotControl;
var
Splash : TfrmSplash;

View File

@ -682,7 +682,7 @@ begin
if DebugMode then
Writeln('CWint connected to hamlib');
tcp.SendMessage('fm'+LineEnding);
tcp.SendMessage('fmv'+LineEnding);
SetSpeed(fSpeed)
end;

View File

@ -554,7 +554,7 @@ begin
RigCommand.Clear
end
else begin
cmd := 'fm'+LineEnding;
cmd := 'fmv'+LineEnding;
if DebugMode then Writeln('Sending: '+cmd);
rcvdFreqMode.SendMessage(cmd)
end