Skip to content

Commit

Permalink
Add First Time Setup message to the Help menu (#156)
Browse files Browse the repository at this point in the history
@scotthibbs suggested we add a simple `First Time Setup` menu pick to
the Help menu. I used his suggested text as a starting point. Thanks to
Scott for providing the original text. Fixes #98

When you review this, please suggest changes to wording either as a
comment, or make the changes directly via github.

See output below...

![image](https://user-images.githubusercontent.com/106113737/205467795-46a83940-5390-49f5-a5e7-bfba9690bf4f.png)


![image](https://user-images.githubusercontent.com/106113737/205467815-a3b1c5bc-2f9f-43d2-b368-88d468fa9141.png)
  • Loading branch information
scotthibbs authored Dec 4, 2022
2 parents 91e0180 + 3747b2c commit 9063d71
Show file tree
Hide file tree
Showing 2 changed files with 35 additions and 0 deletions.
4 changes: 4 additions & 0 deletions Main.dfm
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
31 changes: 31 additions & 0 deletions Main.pas
Original file line number Diff line number Diff line change
Expand Up @@ -168,6 +168,7 @@ TMainForm = class(TForm)
VolumeSlider1: TVolumeSlider;
Label18: TLabel;
WebPage1: TMenuItem;
FirstTime1: TMenuItem;
Settings1: TMenuItem;
Call1: TMenuItem;
QSK1: TMenuItem;
Expand Down Expand Up @@ -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);
Expand Down Expand Up @@ -1376,6 +1378,35 @@ 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 +
' - 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(Msg),
'First Time Setup',
MB_OK or MB_ICONINFORMATION);
end;


procedure TMainForm.About1Click(Sender: TObject);
const
Msg= //'Morse Runner - Community Edition'#13 +
Expand Down

0 comments on commit 9063d71

Please sign in to comment.