Skip to content

Commit

Permalink
Integrate two bug fixes (#89)
Browse files Browse the repository at this point in the history
Fix two simple bugs. I did not create separate issues for these two...
- CWOPS CWT: fix problem reading CWOPSNUM from a bad .INI file (Coded by W7SST)
- Convert callsign to upper case when using "Setup | Call..." (Coded by W7SST)
  • Loading branch information
w7sst authored Nov 8, 2022
2 parents ffba291 + f0d28fc commit 7860b78
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 2 deletions.
2 changes: 1 addition & 1 deletion Ini.pas
Original file line number Diff line number Diff line change
Expand Up @@ -204,7 +204,7 @@ procedure FromIni;
MainForm.SetBw(ReadInteger(SEC_STN, 'BandWidth', 9));

HamName := ReadString(SEC_STN, 'Name', '');
CWOPSNum := ReadString(SEC_STN, 'cwopsnum', '');
CWOPSNum := ReadString(SEC_STN, 'cwopsnum', CWOPSNum);

MainForm.UpdCWMaxRxSpeed(ReadInteger(SEC_STN, 'CWMaxRxSpeed', MaxRxWpm));
MainForm.UpdCWMinRxSpeed(ReadInteger(SEC_STN, 'CWMinRxSpeed', MinRxWpm));
Expand Down
3 changes: 2 additions & 1 deletion Main.pas
Original file line number Diff line number Diff line change
Expand Up @@ -1778,7 +1778,8 @@ procedure TMainForm.PostHiScore(const sScore: string);
//------------------------------------------------------------------------------
procedure TMainForm.Call1Click(Sender: TObject);
begin
SetMyCall(Trim(InputBox('Callsign', 'Callsign', Edit4.Text)));
// UI assumes uppercase only, so convert user's callsign to uppercase.
SetMyCall(UpperCase(Trim(InputBox('Callsign', 'Callsign', Edit4.Text))));
end;


Expand Down

0 comments on commit 7860b78

Please sign in to comment.