StartConnectCommand & 'open needed tab from preferences'

help/h20.html

@@ -98,6 +98,10 @@
         <td width="35%">Ctrl-R</td>
         <td width="65%">Change ref. call</td>
     </tr>
+    <tr>
+        <td width="35%">Ctrl-S</td>
+        <td width="65%">Save DXCluster StartConnectionCommand</td>
+    </tr>
     <tr>
         <td width="35%">ALT-B</td>
         <td width="65%"><a href="h1.html#ah7">Memory down</a></td>
@@ -106,6 +110,10 @@
         <td width="35%">ALT-V</td>
         <td width="65%"><a href="h1.html#ah7">Memory up<a></td>
     </tr>
+    <tr>
+        <td width="35%">Ctrl-Z</td>
+        <td width="65%">Scroll back DXCluster commands (5 stored)</td>
+    </tr>    
     </tbody>
 </table>
 <br>

help/h21.html

@@ -41,10 +41,20 @@ preferences on the node. The Command line box is used for all commands,
 settings etc. with one exception - the Tilde key (~) is used for spotting.
 The color coding and spot filtering is set up in the
 <a href="h1.html#ah11"><b>Preferences menu</b></a>. <strong>Connect</strong> to the
-cluster node by simply clicking the 'Connect' button. You should see the cluster node
+luster node by simply clicking the 'Connect' button. You should see the cluster node
 messages indicating progress. You can enter any command into the 'Command' field
 (ie. SH/DX to display last spots, SH/U to see the users connected to the node etc.).
-
+</p><p>
+With <b>Ctrl-Z</b> you can scroll back 5 last used DXCluster commands. It is very handy if you make error
+ in cluster command. You do not have to retype everything, just Ctrl-Z and then fix the command and send it again.
+</br> With <b>Ctrl-S</b> you can save the DXCluster command that you have typed, but not yet sent to dxcluster.
+ Command disappears from "command"-line and is saved as StartConnectionCommand. It will be sent to dxcluster as
+ first command after connection is established. You can set it for example sh/dx 50 to get your Bandmap
+ populated right away when connected.
+ </br>You can type this command to "command"-line and save it with Ctrl-S when you are not connected, but it will be saved also when you are connected to DXCluster (then it is not sent to DXCluster, just saved).
+</br>To remove saved StartConnectionCommand just press Ctrl-S when "command"-line is empty.
+</br> This command can be set also via <a href="h1.html#ah11"><b>Preferences/DXCluster</b></a>.
+</p>
 <h3><a name="m40">Callsign Alert</a></h3>
 <p><img src="img/misc40.png" name="40"  width="458" height="388">
 </img>

help/h30.html

@@ -32,13 +32,16 @@
 <p align=center><img src=img/line.png></p>
 
 <h3 ><a name="m3"></a>TRX Control</h3>
-<p><img src="img/h117.png" name="5"  width="353" height="367">
+<p><img src="img/h117.png" name="7"  width="353" height="367">
+ <img src="img/h118.png" name="8"  width="353" height="367">
 </img>
 <br/>
 TRX Control window Shows current frequency. 
 </br>Allows Change of Band, mode, memory and rig.
 </br>With P-on/off/stb buttons current rig can be set ON, OFF or STANDBY (if it supports rigctld power commands).
-</br>See also <a href="h1.html#ah7">setting up TRXControl</a>
+</br>Default setting for power buttons is hidden. You can change it via dropdown menu "Preferences".
+
+</p><p>See also <a href="h1.html#ah7">setting up TRXControl</a>
 </p>
 <p align=center><img src=img/line.png></p>
 <br>

src/fDXCluster.lfm

@@ -1,13 +1,13 @@
 object frmDXCluster: TfrmDXCluster
   Left = 129
-  Height = 445
+  Height = 424
   Top = 116
   Width = 709
   HelpType = htKeyword
   HelpKeyword = 'help/h21.html#ah19'
   ActiveControl = pgDXCluster
   Caption = 'DXCluster'
-  ClientHeight = 445
+  ClientHeight = 424
   ClientWidth = 709
   Icon.Data = {
     BE0C00000000010001002020000001001800A80C000016000000280000002000
@@ -124,16 +124,16 @@ object frmDXCluster: TfrmDXCluster
   LCLVersion = '1.6.4.0'
   object pgDXCluster: TPageControl
     Left = 0
-    Height = 445
+    Height = 424
     Top = 0
     Width = 709
-    ActivePage = tabWeb
+    ActivePage = tabTelnet
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object tabWeb: TTabSheet
       Caption = 'Web'
-      ClientHeight = 416
+      ClientHeight = 395
       ClientWidth = 699
       object Panel4: TPanel
         Left = 0
@@ -192,7 +192,6 @@ object frmDXCluster: TfrmDXCluster
           Action = acFont
           Anchors = [akTop, akRight]
           BorderSpacing.InnerBorder = 4
-          Caption = 'Font'
           TabOrder = 3
         end
       end
@@ -216,12 +215,12 @@ object frmDXCluster: TfrmDXCluster
     end
     object tabTelnet: TTabSheet
       Caption = 'Telnet'
-      ClientHeight = 416
+      ClientHeight = 395
       ClientWidth = 699
       object Panel1: TPanel
         Left = 0
         Height = 34
-        Top = 382
+        Top = 361
         Width = 699
         Align = alBottom
         BevelOuter = bvNone
@@ -337,12 +336,12 @@ object frmDXCluster: TfrmDXCluster
       end
       object pnlTelnet: TPanel
         Left = 0
-        Height = 352
+        Height = 331
         Top = 30
         Width = 699
         Align = alClient
         BevelOuter = bvNone
-        ClientHeight = 352
+        ClientHeight = 331
         ClientWidth = 699
         Color = clWhite
         ParentColor = False

src/fDXCluster.pas

@@ -191,6 +191,7 @@ var
   ThChat       : String;
   ChBckColor   : Integer;
   TelThread    : TTelThread;
+  SentStartCmd : Boolean;
 
 implementation
 {$R *.lfm}
@@ -348,7 +349,6 @@ var
 begin
   mnuCallalert.Checked := cqrini.ReadBool('DXCluster', 'AlertEnabled', False);
   ChangeCallAlertCaption;
-
   p.x := 10;
   p.y := 10;
   p := btnPreferences.ClientToScreen(p);
@@ -357,6 +357,7 @@ end;
 
 procedure TfrmDXCluster.acProgPrefExecute(Sender : TObject);
 begin
+  cqrini.WriteInteger('Pref', 'ActPageIdx', 10);  //set DXCuster tab active. Number may change if preferences page change
   frmNewQSO.acPreferences.Execute
 end;
 
@@ -445,6 +446,7 @@ begin
           HistCmd[HistPtr]:=''
         end;
   until HistPtr =0;
+  SentStartCmd :=false;
 end;
 
 procedure TfrmDXCluster.FormKeyUp(Sender: TObject; var Key: Word;
@@ -599,7 +601,7 @@ begin
   begin
     StopAllConnections;
     btnTelConnect.Caption := 'Connect';
-    ConWeb := False
+    ConWeb := False;
   end
   else begin
     ConnectToTelnet;
@@ -641,6 +643,13 @@ begin
     edtCommand.Text := GetHistCmd;
     edtCommand.SelStart := Length(edtCommand.Text);
   end;
+  if key=#19 then
+  Begin
+    key := #0;
+    cqrini.WriteString('DXCluster','StartCmd',edtCommand.Text);
+    if dmData.DebugLevel>=1 then  writeln('ClusterStarCommand:_',edtCommand.Text,'_saved');
+    edtCommand.Clear;
+  end;
   if key=#13 then
   begin
     StoreLastCmd(edtCommand.Text);
@@ -729,6 +738,13 @@ begin
         Begin
           Chline := '';
           if dmData.DebugLevel>=1 then Writeln('Chat : line is cluster prompt!');
+          //send start command at first prompt
+          if not SentStartCmd and (cqrini.ReadString('DXCluster','StartCmd','') <> '') then
+            begin
+               SendCommand(cqrini.ReadString('DXCluster','StartCmd',''));
+               if dmData.DebugLevel>=1 then  writeln('Sent DXCluster connect start command');
+               SentStartCmd := true;
+            end;
         end;
       end;
 
@@ -873,6 +889,7 @@ begin
     if lTelnet.Connected then
       lTelnet.Disconnect;
     ConTelnet := False;
+    SentStartCmd := False;
   end;
 end;
 
@@ -1233,10 +1250,15 @@ begin
     end
   end;
 
-  if  mnuCallalert.Checked then // do not run IsAlertCall unless alert is selected
+  if  ( mnuCallalert.Checked and ConTelnet ) then // do not run IsAlertCall unless alert is selected
+                                                   // and connected to telnet cluster
     if (dmDXCluster.IsAlertCall(call,band,mode,cqrini.ReadBool('DxCluster', 'AlertRegExp', False))) then
+      Begin
+        if dmData.DebugLevel >=1 then
+            Writeln('--------------------------------------------Call alerting is: ',call);
         dmDXCluster.RunCallAlertCmd(call,band,mode,freq);
-
+        call :='';
+      end;
   if dmData.DebugLevel >=1 then
   begin
     Writeln('Color: ',ColorToString(sColor));

src/fPreferences.pas

@@ -118,9 +118,11 @@ type
     cb125m: TCheckBox;
     cb60m: TCheckBox;
     cb30cm: TCheckBox;
+    chkConToDXC: TCheckBox;
     chkFldXmlRpc: TCheckBox;
     chkQSOColor : TCheckBox;
     chkFillAwardField : TCheckBox;
+    chkShowDxcCountry: TCheckBox;
     chkUseCallbookZonesEtc : TCheckBox;
     chkModeRelatedOnly : TCheckBox;
     chkTrxControlDebug : TCheckBox;
@@ -153,7 +155,6 @@ type
     chkIgnoreBandFreq : TCheckBox;
     chkRot1RunRotCtld: TCheckBox;
     chkRot2RunRotCtld: TCheckBox;
-    chkShowDxcCountry : TCheckBox;
     chkClearRIT : TCheckBox;
     chkCountry: TCheckBox;
     chkR1RunRigCtld: TCheckBox;
@@ -202,7 +203,6 @@ type
     chkNewDXCCTables: TCheckBox;
     chkShow4M: TCheckBox;
     chkDeleteAfterQSO: TCheckBox;
-    chkConToDXC: TCheckBox;
     chkAutoSearch: TCheckBox;
     chkShowXplanet: TCheckBox;
     chkCloseXplanet: TCheckBox;
@@ -472,6 +472,7 @@ type
     cl10db : TColorBox;
     cmbModelRig1: TComboBox;
     dlgColor : TColorDialog;
+    edtStartConCmd: TEdit;
     edtDropSyncErr: TSpinEdit;
     edtQSOColorDate : TEdit;
     edtWsjtIp: TEdit;
@@ -645,14 +646,15 @@ type
     GroupBox44: TGroupBox;
     GroupBox45: TGroupBox;
     GroupBox46: TGroupBox;
-    GroupBox47: TGroupBox;
+    gbDXCAlert: TGroupBox;
     GroupBox48: TGroupBox;
     GroupBox49: TGroupBox;
-    GroupBox5: TGroupBox;
+    gbDXCColor: TGroupBox;
     GroupBox50: TGroupBox;
     GroupBox51: TGroupBox;
     GroupBox52: TGroupBox;
-    GroupBox6: TGroupBox;
+    gbDXCConnect: TGroupBox;
+    gbDXCSpots: TGroupBox;
     GroupBox7: TGroupBox;
     GroupBox8: TGroupBox;
     GroupBox9: TGroupBox;
@@ -779,6 +781,7 @@ type
     Label48: TLabel;
     Label49: TLabel;
     Label50: TLabel;
+    Label51: TLabel;
     lbl: TLabel;
     Label19: TLabel;
     Label2: TLabel;
@@ -1036,6 +1039,7 @@ type
     wasOnlineLogSupportEnabled : Boolean;
   public
     { public declarations }
+    ActPageIdx : integer;
   end;
 
 var
@@ -1309,6 +1313,7 @@ begin
   cqrini.WriteBool('DXCluster', 'ConAfterRun', chkConToDXC.Checked);
   cqrini.WriteBool('DXCluster','ShowDxcCountry',chkShowDxcCountry.Checked);
   cqrini.WriteString('DXCluster','AlertCmd', edtAlertCmd.Text);
+  cqrini.WriteString('DXCluster','StartCmd', edtStartConCmd.Text);
 
   cqrini.WriteBool('Fonts', 'UseDefault', chkUseDefaultSEttings.Checked);
   cqrini.WriteString('Fonts', 'Buttons', lblbFont.Caption);
@@ -1605,6 +1610,7 @@ procedure TfrmPreferences.FormCreate(Sender: TObject);
 begin
   dmUtils.InsertQSL_S(cmbQSL_S);
   dmUtils.InsertFreq(cmbFreq);
+  ActPageIdx := 0; //tabProgram
 end;
 
 
@@ -1622,6 +1628,7 @@ procedure TfrmPreferences.FormCloseQuery(Sender: TObject; var CanClose: boolean)
 begin
   cqrini.WriteInteger('Pref', 'Top', Top);
   cqrini.WriteInteger('Pref', 'Left', Left);
+  cqrini.WriteInteger('Pref', 'ActPageIdx', pgPreferences.ActivePageIndex);
 end;
 
 procedure TfrmPreferences.chkUseProfilesChange(Sender: TObject);
@@ -2264,6 +2271,8 @@ begin
   TRXChanged := True
 end;
 
+
+
 procedure TfrmPreferences.cmbHanshakeR1Change(Sender : TObject);
 begin
   TRXChanged := True
@@ -2414,6 +2423,7 @@ begin
   dmData.InsertProfiles(cmbProfiles, False);
   Top := cqrini.ReadInteger('Pref', 'Top', 20);
   Left := cqrini.ReadInteger('Pref', 'Left', 20);
+  ActPageIdx := cqrini.ReadInteger('Pref', 'ActPageIdx', 0);
 
   edtCall.Text := cqrini.ReadString('Station', 'Call', '');
   edtName.Text := cqrini.ReadString('Station', 'Name', '');
@@ -2674,6 +2684,7 @@ begin
   chkConToDXC.Checked := cqrini.ReadBool('DXCluster', 'ConAfterRun', False);
   chkShowDxcCountry.Checked := cqrini.ReadBool('DXCluster','ShowDxcCountry',False);
   edtAlertCmd.Text := cqrini.ReadString('DXCluster','AlertCmd','');
+  edtStartConCmd.Text := cqrini.ReadString('DXCluster','StartCmd','');
 
   chkUseDefaultSEttings.Checked := cqrini.ReadBool('Fonts', 'UseDefault', True);
   lblbFont.Caption := cqrini.ReadString('Fonts', 'Buttons', 'Sans 10');
@@ -2885,7 +2896,9 @@ begin
 
   chkSysUTCClick(nil);
   TRXChanged      := False;
-  WinKeyerChanged := False
+  WinKeyerChanged := False;
+
+  pgPreferences.ActivePageIndex := ActPageIdx;    //set wanted tab for showing when open. ActTab is public variable.
 end;
 
 procedure TfrmPreferences.edtPoll2Exit(Sender: TObject);