From b5c5cdd9cf0f6c9df22ccc5e8ac2462c4770ca94 Mon Sep 17 00:00:00 2001 From: Mike Brashler Date: Sat, 3 Dec 2022 16:16:25 -0800 Subject: [PATCH 1/3] Add First Time Setup message to the Help menu --- Main.dfm | 4 ++++ Main.pas | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 36 insertions(+) diff --git a/Main.dfm b/Main.dfm index 2a23e23..f4d69b4 100644 --- a/Main.dfm +++ b/Main.dfm @@ -1540,6 +1540,10 @@ object MainForm: TMainForm end object Help1: TMenuItem Caption = 'Help' + object FirstTime1: TMenuItem + Caption = 'First Time Setup' + OnClick = FirstTime1Click + end object WebPage1: TMenuItem Caption = 'Community Edition Home Page' OnClick = WebPage1Click diff --git a/Main.pas b/Main.pas index f01a1c6..97e5dc7 100644 --- a/Main.pas +++ b/Main.pas @@ -168,6 +168,7 @@ TMainForm = class(TForm) VolumeSlider1: TVolumeSlider; Label18: TLabel; WebPage1: TMenuItem; + FirstTime1: TMenuItem; Settings1: TMenuItem; Call1: TMenuItem; QSK1: TMenuItem; @@ -305,6 +306,7 @@ TMainForm = class(TForm) procedure SpinEdit3Change(Sender: TObject); procedure PaintBox1Paint(Sender: TObject); procedure Exit1Click(Sender: TObject); + procedure FirstTime1Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure Readme1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); @@ -1376,6 +1378,36 @@ procedure TMainForm.WipeBoxes; end; +procedure TMainForm.FirstTime1Click(Sender: TObject); +const + Msg='First Time?'#13 + + 'Welcome! This is the first time setup:'#13 + + ''#13 + + '1) Select the Contest you wish to operate.'#13 + + '2) Type the exchange you wish to send.'#13 + + '3) In the station section replace VE3NEA with your call.'#13 + + '4) Select your CW Speed, Tone, and Bandwidth.'#13 + + '5) Set Min/Max CW Receive speed using Settings menu.'#13 + + '6) Under band conditions you can select any realistic hardships.'#13 + + '7) Activity is the average amount of responses you want per CQ.'#13 + + ' So if no one responds, you might get twice the number the'#13 + + ' following time. This is a pile up trainer after all - have fun.'#13 + + '8) Select the time limit you want to run the contest.'#13 + + '9) The Run button has a drop down.'#13 + + ' - Single Call - immediately you will get someone trying to'#13 + + ' contact you.'#13 + + ' - Pile up - You need to call CQ to start. hit enter or F1.'#13 + + ''#13 + + 'Please visit us or provide feedback at either:'#13 + + ' - www.github.com/w7sst/MorseRunner/#readme'#13 + + ' - https://groups.io/g/MorseRunnerCE'; +begin + Application.MessageBox(PChar(Format(Msg, [sVersion])), + 'First Time Setup', + MB_OK or MB_ICONINFORMATION); +end; + + procedure TMainForm.About1Click(Sender: TObject); const Msg= //'Morse Runner - Community Edition'#13 + From faca2110d43666856e8e1401be10147851c48cb7 Mon Sep 17 00:00:00 2001 From: K6OK <116767386+K6OK@users.noreply.github.com> Date: Sat, 3 Dec 2022 19:07:33 -0800 Subject: [PATCH 2/3] Update Main.pas --- Main.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Main.pas b/Main.pas index 97e5dc7..88895dd 100644 --- a/Main.pas +++ b/Main.pas @@ -1394,7 +1394,8 @@ procedure TMainForm.FirstTime1Click(Sender: TObject); ' following time. This is a pile up trainer after all - have fun.'#13 + '8) Select the time limit you want to run the contest.'#13 + '9) The Run button has a drop down.'#13 + - ' - Single Call - immediately you will get someone trying to'#13 + + ' - Pile up - Hit Enter or F1 to call CQ to start. Get ready for pileups!'#13 + ' - Single Calls - Work one station at a time with no pileups.'#13 + ' contact you.'#13 + ' - Pile up - You need to call CQ to start. hit enter or F1.'#13 + ''#13 + From 92145c73b34c3abf20872554688c0695308f2ab4 Mon Sep 17 00:00:00 2001 From: Mike Brashler Date: Sun, 4 Dec 2022 00:17:30 -0800 Subject: [PATCH 3/3] reword Run Button messages in First Time Setup --- Main.pas | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Main.pas b/Main.pas index 97e5dc7..1519f80 100644 --- a/Main.pas +++ b/Main.pas @@ -1394,15 +1394,14 @@ procedure TMainForm.FirstTime1Click(Sender: TObject); ' following time. This is a pile up trainer after all - have fun.'#13 + '8) Select the time limit you want to run the contest.'#13 + '9) The Run button has a drop down.'#13 + - ' - Single Call - immediately you will get someone trying to'#13 + - ' contact you.'#13 + - ' - Pile up - You need to call CQ to start. hit enter or F1.'#13 + + ' - Pile up - Hit Enter or F1 to call CQ to start. Get ready for pileups!'#13 + + ' - Single Calls - Work one station at a time with no pileups.'#13 + ''#13 + 'Please visit us or provide feedback at either:'#13 + ' - www.github.com/w7sst/MorseRunner/#readme'#13 + ' - https://groups.io/g/MorseRunnerCE'; begin - Application.MessageBox(PChar(Format(Msg, [sVersion])), + Application.MessageBox(PChar(Msg), 'First Time Setup', MB_OK or MB_ICONINFORMATION); end;