Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add First Time Setup message to the Help menu #156

Merged
merged 4 commits into from
Dec 4, 2022
Merged

Add First Time Setup message to the Help menu #156

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
b5c5cdd
Add First Time Setup message to the Help menu
w7sst Dec 4, 2022
faca211
Update Main.pas
K6OK Dec 4, 2022
92145c7
reword Run Button messages in First Time Setup
w7sst Dec 4, 2022
3747b2c
Merge branch '98-first-time-menu-item' of https://github.com/w7sst/Mo…
w7sst Dec 4, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions Main.dfm
View file
Open in desktop
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
View file
Open in desktop
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