From 4efe1aa19afaa35f16d859bd7a0195de8379ea3f Mon Sep 17 00:00:00 2001 From: Mike Brashler Date: Wed, 8 Feb 2023 14:12:26 -0800 Subject: [PATCH] After correcting a copied callsign, TU is now sent Prevously, after correcting a copied callsign, MR would send the corrected callsign along with the full exchange. Now MR will send the corrected callsign followed by 'TU'. This bug was inserted while building ARRL FD and has been mostly backed out. --- Main.pas | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Main.pas b/Main.pas index d2db5d8..e35483e 100644 --- a/Main.pas +++ b/Main.pas @@ -1428,17 +1428,15 @@ procedure TMainForm.Readme1Click(Sender: TObject); { called whenever callsign field (Edit1) changes. Any callsign edit will - invalidate the callsign and NR (Exchange) field(s) already sent, so clear - the CallSent and NrSent values. + invalidate the callsign already sent by clearing the CallSent value. + If the Callsign is empty, also crear the NrSent value. } procedure TMainForm.Edit1Change(Sender: TObject); begin if Edit1.Text = '' then NrSent := false; - if not Tst.Me.UpdateCallInMessage(Edit1.Text) then begin + if not Tst.Me.UpdateCallInMessage(Edit1.Text) then CallSent := false; - NrSent := false; - end; end;