Add buttons for adding Mode+RST_sent and Locators to DX spot

When Ctr-W is pressed creates DX spot to be sent to DXCuster from NewQSO window,
 or if it is empty from last logged qso (This is as it was before).
 If button "+ModeRst is pressed adds mode and RST_sent to spot text (from NewQSO, or last logged qso)
 If button "+Locators" is pressed adds both locators (mine & his from NewQSO, or last logged qso)
 separated by "<>". If propagation is set from NewQSO/Satellit/Propagation it is added between separators.
 Both additions can occur only once in spot text ( pos(addition,spot)=0 ).
 Deleting or modifying additions must be done by using keyboard after they are inserted to spot text.

Squashed commit of the following:

commit 0ebdc934c5
Author: OH1KH <oh1kh@sral.fi>
Date:   Thu Jan 30 16:44:12 2020 +0200

    Help update

commit 2e33a63962
Author: OH1KH <oh1kh@sral.fi>
Date:   Wed Jan 29 19:16:07 2020 +0200

    Added propagation mode between <> (locators)

commit 3dd4b9c2a3
Author: OH1KH <oh1kh@sral.fi>
Date:   Tue Jan 28 09:18:48 2020 +0200

    fixed line breaks

commit 6e04db79cf
Author: OH1KH <oh1kh@sral.fi>
Date:   Tue Jan 28 09:15:12 2020 +0200

    buttons for add Mode_rst and locators to spot. + Help files update

commit 67ec262e06
Author: OH1KH <oh1kh@sral.fi>
Date:   Tue Jan 28 06:57:23 2020 +0200

    backup cmt

help/h21.html

@@ -42,21 +42,26 @@ The color coding and spot filtering is set up in the
 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>
+</p><img src="img/h4b.png" border="0"> <img src="img/h4c.png" border="0"><br><p>
+With <b>Ctrl-W</b> you can send a spot to DXCluster if you are connected. If NewQSO is empty the spot is generated from last logged call from current log. If there is a call entered in NewQSO/Call field it will be used for spot generation.
+Additionally you can add used Mode and RST sent by pressing button <b>+Mode_Rst</b> and/or add locators by pressing button <b>+Locators</b>.
+<br>Locator separators <b>&lt;&gt;</b> will have propagation mode included if it is set from <b>NewQSO/Satellite/Propagation</b>.
+<br>Both strings can be added only once. To edit or delete added strings you must use keyboard's delete button. When spot looks good <b>press enter</b> or click button <b>OK</b> and it will be sent.
+<br><br>
 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.
+<br><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>.
+ <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>
-</br></br>Callsign alert is enabled from dialog that opens pressing DXCluster window's "preferences"-button. For setting up the alert itself see 
+<br><br>Callsign alert is enabled from dialog that opens pressing DXCluster window's "preferences"-button. For setting up the alert itself see 
 <a href=h1.html#ah11>Preferences/DXCluster</a>. From same dialog as setting up alert also the list of alerted callsigns opens.
 </p><img src="img/misc41.png" name="41"  width="458" height="388">
 </img>
@@ -64,7 +69,7 @@ With <b>Ctrl-Z</b> you can scroll back 5 last used DXCluster commands. It is ver
 </img>
 <p>
 Callsign alert window allows <b>adding</b>, <b>deleting</b> and <b>editing</b> callsigns that should activate the alarm.
-</br>Usage is quite straight: just add all new callsigns you want to alert. For more specific alerts set also band and mode that you want to produce the alarm.
+<br>Usage is quite straight: just add all new callsigns you want to alert. For more specific alerts set also band and mode that you want to produce the alarm.
 </p>
 <img src="img/misc43.png" name="43"  width="380" height="260">
 </img>
@@ -72,9 +77,9 @@ Callsign alert window allows <b>adding</b>, <b>deleting</b> and <b>editing</b> c
 </img>
 <p>
 There is also checkbox "<b>Allow partialy callsign alert</b>" that allows many different kind of alerting conditions using regular expressions (regexp).
-</br>As an example from the image of callsign alert window you can see different regexp variations for some alert conditions. 
-</br>In order they will alert as follows:
-</br>
+<br>As an example from the image of callsign alert window you can see different regexp variations for some alert conditions. 
+<br>In order they will alert as follows:
+<br>
 <li> calls having numbers 1,2 or 3  @30M/all mode</li>
 <li> calls having number 4 @40M/SSB</li>
 <li> calls having number 6 @40M/CW</li>
@@ -84,13 +89,13 @@ There is also checkbox "<b>Allow partialy callsign alert</b>" that allows many d
 <li> calls starting with VK @all bands/all modes</li>
 <li> calls starting with XF1IM basicly this is whole call, but can have also suffix extensios like /M /P etc all bands/all modes</li>
 <li> calls starting with ZL all bands/all modes</li>
-</br>
+<br>
 For more information how to use regexp delimiters see: <a href=https://en.wikipedia.org/wiki/Regular_expression#POSIX_basic_and_extended>https://en.wikipedia.org/wiki/Regular_expression#POSIX_basic_and_extended</a>
 </p>
 <h3><a name="m4"></a>DXCluster Chat</h3>
 <p><img src="img/misc12.png" name="12"  width="458" height="388">
 </img>
-</br>
+<br>
 
 </p>
 <br/>DXCluster window has now “overlay” as chat RX window. All lines that begins with “YOURCALL DE”, but do not end to cluster prompt “&gt;” are copied to this window.<br/>
@@ -212,8 +217,8 @@ So any time you like you can make it larger and chat lines are there to check.</
             <div align="justify"><br><br>There is currently no other function than DX Cluster spot
                 displaying in true azimuthal projection with correct angles (azimuth) and distances.
                 Alternatively, a map without projection, ie. the globe as seen from space can be selected.
-                </br>With Wsjt-x as source same colors are used as with CQ-monitor and station locations are shown <b>only</b> if locator is known.
-                </br> See also settings in <a href="h1.html#bh2"> Preferences/xplanet support</a> 
+                <br>With Wsjt-x as source same colors are used as with CQ-monitor and station locations are shown <b>only</b> if locator is known.
+                <br> See also settings in <a href="h1.html#bh2"> Preferences/xplanet support</a> 
             </div>
         </td>
     </tr>

src/cqrlog.lpi

@@ -323,6 +323,7 @@
         <Filename Value="fSendSpot.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmSendSpot"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit32>
       <Unit33>

src/fNewQSO.pas

@@ -6523,6 +6523,8 @@ procedure TfrmNewQSO.SendSpot;
 var
   call : String;
   tmp  : String;
+  ModRst,
+  HMLoc :String;
   f    : Currency;
   freq : String;
 begin
@@ -6531,7 +6533,9 @@ begin
     if TryStrToCurr(cmbFreq.Text,f) then
     begin
       f := f*1000;
-      tmp := 'DX ' + FloatToStrF(f,ffFixed,8,1) + ' ' + edtCall.Text
+      tmp := 'DX ' + FloatToStrF(f,ffFixed,8,1) + ' ' + edtCall.Text;
+      ModRst := cmbMode.Text+' '+edtHisRst.Text;
+      HMLoc := edtGrid.Text+'<'+dmSatellite.GetPropShortName(cmbPropagation.Text)+'>'+copy(sbNewQSO.Panels[0].Text,Length(cMyLoc)+1,6);
     end;
   end
   else begin
@@ -6546,7 +6550,18 @@ begin
     freq := FloatToStrF(dmData.Q.Fields[1].AsCurrency*1000,ffFixed,8,1);
     dmData.Q.Close();
     dmData.trQ.Rollback;
-    tmp  := 'DX ' + freq + ' ' + call
+    tmp  := 'DX ' + freq + ' ' + call;
+
+    dmData.Q.SQL.Text := 'SELECT mode,rst_s,loc,prop_mode,my_loc FROM cqrlog_main ORDER BY qsodate DESC, time_on DESC LIMIT 1';
+    dmData.trQ.StartTransaction;
+    if dmData.DebugLevel >=1 then
+      Writeln(dmData.Q.SQL.Text);
+    dmData.Q.Open();
+    ModRst  := dmData.Q.Fields[0].AsString+' '+dmData.Q.Fields[1].AsString;
+    HMLoc   := dmData.Q.Fields[2].AsString+'<'+dmData.Q.Fields[3].AsString+'>'+dmData.Q.Fields[4].AsString;
+    dmData.Q.Close();
+    dmData.trQ.Rollback;
+
   end;
   if (call = '') and (edtCall.Text = '') then
   exit;
@@ -6554,6 +6569,8 @@ begin
   with TfrmSendSpot.Create(self) do
   try
     edtSpot.Text := tmp + ' ';
+    ModeRst      :=' '+ModRst;
+    HisMyLoc     :=' '+HMLoc;
     ShowModal;
     if ModalResult = mrOK then
     begin

src/fSendSpot.lfm

@@ -1,152 +1,207 @@
 object frmSendSpot: TfrmSendSpot
-  Left = 595
-  Height = 107
-  Top = 403
-  Width = 308
+  Left = 841
+  Height = 116
+  Top = 237
+  Width = 395
   HorzScrollBar.Page = 307
   VertScrollBar.Page = 106
   Caption = 'Send spot'
-  ClientHeight = 107
-  ClientWidth = 308
+  ClientHeight = 116
+  ClientWidth = 395
   Icon.Data = {
-    360C0000424D360C000000000000360000002800000020000000200000000100
-    180000000000000C000064000000640000000000000000000000FFFFFFFFFFFF
+    BE0C00000000010001002020000001001800A80C000016000000280000002000
+    0000400000000100180000000000000C00006400000064000000000000000000
+    0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCCCFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCCCFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFDDDDDDCCCCCCFFFFFFFFFFFFFFFFFFDDDDDDFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFEEEEEEFFFFFFFFFFFFFFFFFFBBBBBBBBBBBBBBBBBBFFFFFFCCCCCCBBBB
+    BBFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFDDDDDDCCCCCCFFFFFFFFFFFFFFFFFFDDDDDDFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFF
-    FFFFFFFFFFFFFFBBBBBBBBBBBBBBBBBBFFFFFFCCCCCCBBBBBBFFFFFFFFFFFFFF
-    FFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDDDD
-    DDCCCCCCFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBFFFFFFBBBBBBBBBBBBFFFFFFFF
-    FFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFDDDDDDCCCCCCFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBFFFFFFBBBB
+    BBBBBBBBFFFFFFFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFBBBBBBBBBBBBFFFFFFBBBBBBFFFFFFBB
-    BBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFBBBBBBBBBBBBFFFF
+    FFBBBBBBFFFFFFBBBBBBCCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFF888888888888888888888888888888888888888888888888CC
-    CCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888
-    88888888888888AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBCCCCCCBB
-    BBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEEEEEEEEEEE
-    EECCCCCCAAAAAACCCCCCCCCCCCCCCCCCCCCCCCEEEEEEAAAAAAEEEEEECCCCCCBB
-    BBBBFFFFFFBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888888888AAAAAAAAAAAA8888
-    88CCCCCCCCCCCCDDDDDDDDDDDDDDDDDDEEEEEEAAAAAAEEEEEEDDDDDDFFFFFFBB
-    BBBBBBBBBBFFFFFFFFFFFFBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888AAAAAAAAAAAACCCCCCCCCCCCDDDD
-    DDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBEEEEEEDDDDDDFFFFFFBBBBBBFF
-    FFFFBBBBBBFFFFFFFFFFFFFFFFFFCCCCCCDDDDDDFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFF888888AAAAAACCCCCCCCCCCCCCCCCCDDDDDDDDDD
-    DDDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDDDDBBBBBBFFFFFFFF
-    FFFFBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFF888888AAAAAACCCCCC6699CC6699CCDDDDDDDDDDDDDDDD
-    DDDDDDDDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDDDDDDDDDDBBBBBBBBBBBBBB
-    BBBBCCCCCCDDDDDDEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFBBBBBB7777770033663366993366996699CC6699CCDDDDDDDDDD
-    DDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFCC
-    CCCCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFF777777555555003366000033336699336699DDDDDDDDDDDDDDDD
-    DDDDDDDDBBBBBBFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBBBBBBBFFFFFFDD
-    DDDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFF000000003366000000003366000000336699DDDDDDDDDDDDDDDDDDDDDD
-    DDBBBBBBEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFF
-    FFFFEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    000000003366000000003366000000003366336699DDDDDDDDDDDDDDDDDDBBBB
-    BBEEEEEECCCCCCDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBBBBBBBFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888888888888888888888888888888
+    88888888888888CCCCCCEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    003366000000003366000000003366000000336699DDDDDDEEEEEEBBBBBBEEEE
-    EECCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366
-    0000000033660000000033660000000033660000000033666699CCEEEEEE6699
-    CCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-    0033660000000033660000000033660000000033660033663333336699CC0033
-    66BBBBBBDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366
-    0000000033660000000033660000000033660000003333330000000033660033
-    66DDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366000000
-    0033660000000033660000000033660000003333330000000033660000000033
-    66DDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000003366
-    0000000033660000000033660000003333330000000033660000000033660000
-    00FFFFFFBBBBBB336699BBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366000000
-    0033660000000033660000003333330000000033660000000033660000000033
-    66000000003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000003366
-    0000000033660000003333330000000033660000000033660033660033660000
-    00003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366000000
-    0033660000003333660000000033660000000033660000000033660000000033
-    66000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000003366
-    0000000033660000000033660000000033660000000033660000000033660000
-    00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF003366000000
-    003366000000003366000000003366000000003366000000003366FFFFFFFFFF
+    FFFFFFFFFFFF888888888888888888AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    AABBBBBBCCCCCCBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000003366
-    000000003366000000003366000000003366000000003366FFFFFFFFFFFFFFFF
+    EEEEEEEEEEEEEEEEEECCCCCCAAAAAACCCCCCCCCCCCCCCCCCCCCCCCEEEEEEAAAA
+    AAEEEEEECCCCCCBBBBBBFFFFFFBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888888888
+    AAAAAAAAAAAA888888CCCCCCCCCCCCDDDDDDDDDDDDDDDDDDEEEEEEAAAAAAEEEE
+    EEDDDDDDFFFFFFBBBBBBBBBBBBFFFFFFFFFFFFBBBBBBBBBBBBFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888AAAAAAAAAAAA
+    CCCCCCCCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBEEEEEEDDDD
+    DDFFFFFFBBBBBBFFFFFFBBBBBBFFFFFFFFFFFFFFFFFFCCCCCCDDDDDDFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888AAAAAACCCCCCCCCCCC
+    CCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDD
+    DDBBBBBBFFFFFFFFFFFFBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEEEEEFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888888AAAAAACCCCCC6699CC6699CC
+    DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDDDDDDDD
+    DDBBBBBBBBBBBBBBBBBBCCCCCCDDDDDDEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBB7777770033663366993366996699CC
+    6699CCDDDDDDDDDDDDDDDDDDEEEEEEBBBBBBFFFFFFDDDDDDDDDDDDDDDDDDDDDD
+    DDBBBBBBFFFFFFCCCCCCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFF777777555555003366000033336699336699
+    DDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDBBBB
+    BBBBBBBBFFFFFFDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFF000000003366000000003366000000336699DDDDDD
+    DDDDDDDDDDDDDDDDDDBBBBBBEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBB
+    BBFFFFFFFFFFFFFFFFFFEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFF000000003366000000003366000000003366336699DDDDDD
+    DDDDDDDDDDDDBBBBBBEEEEEECCCCCCDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBBBBB
+    BBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFF003366000000003366000000003366000000336699DDDDDD
+    EEEEEEBBBBBBEEEEEECCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
+    FFFFFFFFFF003366000000003366000000003366000000003366000000003366
+    6699CCEEEEEE6699CCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFF000000003366000000003366000000003366000000003366003366
+    3333336699CC003366BBBBBBDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFF003366000000003366000000003366000000003366000000333333
+    000000003366003366DDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF003366000000003366000000003366000000003366000000333333000000
+    003366000000003366DDDDDDDDDDDDDDDDDDDDDDDDBBBBBBFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF000000003366000000003366000000003366000000333333000000003366
+    000000003366000000FFFFFFBBBBBB336699BBBBBBFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF003366000000003366000000003366000000333333000000003366000000
     003366000000003366000000003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-    000000003366000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF000000003366000000003366000000333333000000003366000000003366
+    003366003366000000003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF003366000000003366000000333366000000003366000000003366000000
+    003366000000003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF000000003366000000003366000000003366000000003366000000003366
+    000000003366000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF003366000000003366000000003366000000003366000000003366000000
+    003366FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF000000003366000000003366000000003366000000003366000000003366
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFF000000000000003366000000003366000000003366000000FFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFF000000000000003366000000000000FFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+    FFFFFFFFFFFDFFFFFFF3FFFBEFE3FFFCEFC7FFEE278FFFF3D31FFFF8CA3FFFFE
+    007FFFF0007FFFC0008FFF000267FE000573FC00237DF800401FF00082FFF001
+    02FFE000077FC00007FFC0000FFF80001FFF80001FFF80003FFF00003FFF0004
+    7FFF0000FFFF0001FFFF0003FFFF0007FFFF001FFFFF003FFFFF00FFFFFF83FF
+    FFFF
   }
   OnActivate = FormActivate
-  OnShow = FormShow
+  Position = poScreenCenter
+  LCLVersion = '2.0.4.0'
   object Label1: TLabel
-    Left = 8
-    Height = 20
-    Top = 10
-    Width = 97
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 5
+    Height = 17
+    Top = 12
+    Width = 96
+    BorderSpacing.Left = 5
+    BorderSpacing.Top = 12
     Caption = 'Send this spot:'
-    Color = clNone
     ParentColor = False
   end
   object edtSpot: TEdit
-    Left = 8
-    Height = 25
-    Top = 32
-    Width = 288
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 34
+    Top = 41
+    Width = 383
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 6
+    BorderSpacing.Top = 12
+    BorderSpacing.Right = 6
     OnEnter = edtSpotEnter
     OnKeyPress = edtSpotKeyPress
     TabOrder = 0
   end
   object btnOK: TButton
-    Left = 48
-    Height = 25
-    Top = 72
+    AnchorSideTop.Control = btnCancel
+    AnchorSideRight.Control = btnCancel
+    Left = 227
+    Height = 30
+    Top = 81
     Width = 75
+    Anchors = [akTop, akRight]
+    BorderSpacing.Right = 12
     BorderSpacing.InnerBorder = 4
     Caption = 'OK'
     ModalResult = 1
     TabOrder = 1
   end
   object btnCancel: TButton
-    Left = 187
-    Height = 25
-    Top = 72
+    AnchorSideTop.Control = edtSpot
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = edtSpot
+    AnchorSideRight.Side = asrBottom
+    Left = 314
+    Height = 30
+    Top = 81
     Width = 75
+    Anchors = [akTop, akRight]
+    BorderSpacing.Top = 6
     BorderSpacing.InnerBorder = 4
     Cancel = True
     Caption = 'Cancel'
     ModalResult = 2
     TabOrder = 2
   end
+  object btnModRst: TButton
+    AnchorSideTop.Control = btnLoc
+    AnchorSideRight.Control = btnLoc
+    Left = 183
+    Height = 30
+    Top = 5
+    Width = 100
+    Anchors = [akTop, akRight]
+    BorderSpacing.Right = 6
+    Caption = '+Mode_Rst'
+    OnClick = btnModRstClick
+    TabOrder = 3
+  end
+  object btnLoc: TButton
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrCenter
+    AnchorSideRight.Control = edtSpot
+    AnchorSideRight.Side = asrBottom
+    Left = 289
+    Height = 30
+    Top = 5
+    Width = 100
+    Anchors = [akTop, akRight]
+    Caption = '+Locators'
+    OnClick = btnLocClick
+    TabOrder = 4
+  end
 end

src/fSendSpot.pas

@@ -26,29 +26,34 @@ type
   TfrmSendSpot = class(TForm)
     btnOK: TButton;
     btnCancel: TButton;
+    btnModRst: TButton;
+    btnLoc: TButton;
     edtSpot: TEdit;
     Label1: TLabel;
+    procedure btnLocClick(Sender: TObject);
+    procedure btnModRstClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure edtSpotEnter(Sender: TObject);
     procedure edtSpotKeyPress(Sender: TObject; var Key: char);
   private
     { private declarations }
   public
+    ModeRst,
+    HisMyLoc  :String;
     { public declarations }
   end; 
 
 var
   frmSendSpot: TfrmSendSpot;
 
+
 implementation
 {$R *.lfm}
 
 { TfrmSendSpot }
+uses dUtils;
+
 
-procedure TfrmSendSpot.FormShow(Sender: TObject);
-begin
-end;
 
 procedure TfrmSendSpot.edtSpotEnter(Sender: TObject);
 begin
@@ -61,6 +66,18 @@ begin
   edtSpot.SetFocus;
 end;
 
+procedure TfrmSendSpot.btnModRstClick(Sender: TObject);
+begin
+  if pos(ModeRst, edtSpot.Text) = 0 then
+    edtSpot.Text := edtSpot.Text+ ' '+ModeRst;
+end;
+
+procedure TfrmSendSpot.btnLocClick(Sender: TObject);
+begin
+  if pos(HisMyLoc,  edtSpot.Text ) = 0 then
+    edtSpot.Text := edtSpot.Text+ ' '+HisMyLoc;
+end;
+
 procedure TfrmSendSpot.edtSpotKeyPress(Sender: TObject; var Key: char);
 begin
   if (key = #13) then