some fixes

This commit is contained in:
OH1KH 2020-11-20 15:39:30 +02:00
parent 7645fd2d2e
commit 22cf6edb29
3 changed files with 11 additions and 8 deletions

View File

@ -681,8 +681,9 @@ There are no known dependencies issues.<br><br>
If you leave this field empty, every spot will be shown on the grayline map.</li>
<li><strong>Signal strength</strong> How strong you are will be clear very quickly when you look
at the map with the dots in different colours. Which colour will be used can be set here.</li>
<li><strong>After program start</strong> - check these options if you want to autoconnect
to RBN when the program starts, you won't have to worry about it and CQRLOG will do it for you automatic.</li>
<li><strong>After window opens</strong> - check these options if you want to autoconnect
to RBN when the Grayline/RBN Monitor window opens. If you have closed cqrlog with window(s) open they will open at next program start
and so also connection is made.</li>
<ul>
<li><strong>Autoconnect RBN Grayline</strong> connects Grayline map to RBN.</li>
<li><strong>Autoconnect RBN Monitor</strong> connects RBN Monitor to RBN. See: <a href="./h31.html">Operation/RBN monitor</a></li>

View File

@ -536,12 +536,14 @@ end;
procedure TfrmGrayline.tmrAutoConnectTimer(Sender : TObject);
begin
if (rbn_status='Connected') or (rbn_status='Linked') then exit;
if cqrini.ReadBool('RBN','AutoLink',false) then
acLinkToRbnMonitorExecute(nil)
else
if cqrini.ReadBool('RBN','AutoConnect',False) and (cqrini.ReadString('RBN','login','') <> '') and (RBNThread = nil) then
acConnect.Execute;
tmrAutoConnect.Enabled:=false;
Begin
acLinkToRbnMonitorExecute(nil);
exit;
end;
if cqrini.ReadBool('RBN','AutoConnect',False) and (cqrini.ReadString('RBN','login','') <> '')
and (RBNThread = nil) then acConnect.Execute;
end;
procedure TfrmGrayline.tmrGrayLineTimer(Sender: TObject);

View File

@ -8248,7 +8248,7 @@ object frmPreferences: TfrmPreferences
Height = 15
Top = 182
Width = 128
Caption = 'After program start:'
Caption = 'After window opens:'
ParentColor = False
end
object chkRBNMAutoConn: TCheckBox