mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
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: commit0ebdc934c5
Author: OH1KH <oh1kh@sral.fi> Date: Thu Jan 30 16:44:12 2020 +0200 Help update commit2e33a63962
Author: OH1KH <oh1kh@sral.fi> Date: Wed Jan 29 19:16:07 2020 +0200 Added propagation mode between <> (locators) commit3dd4b9c2a3
Author: OH1KH <oh1kh@sral.fi> Date: Tue Jan 28 09:18:48 2020 +0200 fixed line breaks commit6e04db79cf
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 commit67ec262e06
Author: OH1KH <oh1kh@sral.fi> Date: Tue Jan 28 06:57:23 2020 +0200 backup cmt
This commit is contained in:
parent
984d0075d8
commit
267d7de3da
@ -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><></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 “>” 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>
|
||||
|
BIN
help/img/h4b.png
Normal file
BIN
help/img/h4b.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 13 KiB |
BIN
help/img/h4c.png
Normal file
BIN
help/img/h4c.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 12 KiB |
@ -323,6 +323,7 @@
|
||||
<Filename Value="fSendSpot.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmSendSpot"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user