mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
"Capitalise first letter in QTH field" option added
This commit is contained in:
parent
a9b5c8df68
commit
f6e719aa58
@ -11,6 +11,7 @@ Legend:
|
||||
+ CQ and ITU zones are taken from previous QSO if exists
|
||||
+ added new band map filter
|
||||
+ CALLSIGN, BAND, MODE, FREQ macros to dxcluster allert command added
|
||||
+ "Capitalise first letter in QTH field" option added
|
||||
- after change of callsign, report, date or time, the QSO was still marked as uploaded to LotW/eQSL - fixed
|
||||
- LoTW upload - when Export all QSO was selected, only 500 QSO were exported - fixed
|
||||
- buttons caption in CW type window didn't use values from settings
|
||||
|
@ -2569,7 +2569,7 @@ procedure TfrmNewQSO.edtQTHExit(Sender: TObject);
|
||||
var
|
||||
tmp : String;
|
||||
begin
|
||||
if edtQTH.Text <> '' then
|
||||
if (edtQTH.Text <> '') and cqrini.ReadBool('NewQSO','CapFirstQTHLetter',True) then
|
||||
begin
|
||||
tmp := edtQTH.Text;
|
||||
tmp[1] := UpCase(tmp[1]);
|
||||
|
@ -20,10 +20,10 @@ object frmPreferences: TfrmPreferences
|
||||
Height = 649
|
||||
Top = 0
|
||||
Width = 752
|
||||
ActivePage = tabDXCluster
|
||||
ActivePage = tabNewQSO
|
||||
Align = alClient
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabIndex = 10
|
||||
TabIndex = 2
|
||||
TabOrder = 0
|
||||
OnChange = pgPreferencesChange
|
||||
object tabProgram: TTabSheet
|
||||
@ -580,27 +580,27 @@ object frmPreferences: TfrmPreferences
|
||||
TabOrder = 14
|
||||
end
|
||||
object chkClearNewQSOFreq: TCheckBox
|
||||
Left = 22
|
||||
Left = 16
|
||||
Height = 24
|
||||
Top = 484
|
||||
Top = 562
|
||||
Width = 399
|
||||
Caption = 'Clear New QSO window after freq is changed more then '
|
||||
TabOrder = 15
|
||||
Visible = False
|
||||
end
|
||||
object edtFreqChange: TEdit
|
||||
Left = 422
|
||||
Left = 416
|
||||
Height = 27
|
||||
Top = 482
|
||||
Top = 560
|
||||
Width = 64
|
||||
TabOrder = 16
|
||||
Text = 'edtFreqChange'
|
||||
Visible = False
|
||||
end
|
||||
object Label26: TLabel
|
||||
Left = 494
|
||||
Left = 488
|
||||
Height = 17
|
||||
Top = 488
|
||||
Top = 566
|
||||
Width = 25
|
||||
Caption = 'kHz'
|
||||
ParentColor = False
|
||||
@ -609,11 +609,19 @@ object frmPreferences: TfrmPreferences
|
||||
object chkUseCallBookData: TCheckBox
|
||||
Left = 22
|
||||
Height = 24
|
||||
Top = 509
|
||||
Top = 484
|
||||
Width = 429
|
||||
Caption = 'Always overwrite info from previous QSO with callbook data'
|
||||
TabOrder = 17
|
||||
end
|
||||
object chkCapFirstQTHLetter: TCheckBox
|
||||
Left = 22
|
||||
Height = 24
|
||||
Top = 508
|
||||
Width = 245
|
||||
Caption = 'Capitalise first letter in QTH field'
|
||||
TabOrder = 18
|
||||
end
|
||||
end
|
||||
object tabVisibleColumns: TTabSheet
|
||||
Caption = 'Visible columns'
|
||||
|
2891
src/fPreferences.lrs
2891
src/fPreferences.lrs
File diff suppressed because it is too large
Load Diff
@ -115,6 +115,7 @@ type
|
||||
cb125m: TCheckBox;
|
||||
cb60m: TCheckBox;
|
||||
cb30cm: TCheckBox;
|
||||
chkCapFirstQTHLetter: TCheckBox;
|
||||
chkIgnoreLoTW: TCheckBox;
|
||||
chkExpCommet: TCheckBox;
|
||||
chkPlusToBandMap: TCheckBox;
|
||||
@ -1125,6 +1126,7 @@ begin
|
||||
cqrini.WriteFloat('NewQSO','FreqChange',0.010);
|
||||
cqrini.WriteBool('NewQSO','ClearAfterFreqChange',chkClearNewQSOFreq.Checked);
|
||||
cqrini.WriteBool('NewQSO','UseCallBookData',chkUseCallBookData.Checked);
|
||||
cqrini.WriteBool('NewQSO','CapFirstQTHLetter',chkCapFirstQTHLetter.Checked);
|
||||
|
||||
cqrini.WriteString('Program', 'Proxy', edtProxy.Text);
|
||||
cqrini.WriteString('Program', 'Port', edtPort.Text);
|
||||
@ -2490,6 +2492,7 @@ begin
|
||||
edtFreqChange.Text := FloatToStr(cqrini.ReadFloat('NewQSO','FreqChange',0.010)*1000);
|
||||
chkClearNewQSOFreq.Checked := cqrini.ReadBool('NewQSO','ClearAfterFreqChange',False);
|
||||
chkUseCallBookData.Checked := cqrini.ReadBool('NewQSO','UseCallBookData',False);
|
||||
chkCapFirstQTHLetter.Checked := cqrini.ReadBool('NewQSO','CapFirstQTHLetter',True);
|
||||
|
||||
edtProxy.Text := cqrini.ReadString('Program', 'Proxy', '');
|
||||
edtPort.Text := cqrini.ReadString('Program', 'Port', '');
|
||||
@ -2971,7 +2974,7 @@ begin
|
||||
|
||||
chkSysUTCClick(nil);
|
||||
TRXChanged := False;
|
||||
WinKeyerChanged := False;
|
||||
WinKeyerChanged := False
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.edtPoll2Exit(Sender: TObject);
|
||||
|
Loading…
Reference in New Issue
Block a user