hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 02:17:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixed modes preferences.Todo: fix spinedt width, modes to other units, add data mode code

Browse Source
This commit is contained in:
OH1KH 2022-08-26 12:03:50 +03:00
parent 1814733715
commit 64146a66c1
5 changed files with 336 additions and 431 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fNewQSO.pas
View File

@ -1497,7 +1497,7 @@ begin
end;
if frmTRXControl.Showing then
tmrRadio.Interval := cqrini.ReadInteger('TRX'+IntToStr(frmTRXControl.cmbRig.ItemIndex+1),'Poll',500);
tmrRadio.Interval := cqrini.ReadInteger('TRX'+IntToStr(frmTRXControl.cmbRig.ItemIndex),'Poll',500);
cbTxLo.Checked := cqrini.ReadBool('NewQSO', 'UseTXLO', False);
edtTXLO.Text := cqrini.ReadString('NewQSO', 'TXLO', '');

593
src/fPreferences.lfm
View File

@ -1,7 +1,7 @@
object frmPreferences: TfrmPreferences
Left = 52
Left = 85
Height = 713
Top = 20
Top = 33
Width = 1131
HelpType = htKeyword
HelpKeyword = 'help/h1.html'
@ -23,9 +23,9 @@ object frmPreferences: TfrmPreferences
Height = 713
Top = 0
Width = 883
ActivePage = tabProgram
ActivePage = tabModes
Align = alClient
TabIndex = 0
TabIndex = 7
TabOrder = 0
OnChange = pgPreferencesChange
object tabProgram: TTabSheet
@ -2239,7 +2239,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblModelR
Left = 236
Height = 17
Top = 34
Top = 40
Width = 157
BorderSpacing.Left = 30
Caption = 'Device (e.g. /dev/ttyS0):'
@ -2251,7 +2251,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 34
Top = 40
Width = 72
BorderSpacing.Left = 6
BorderSpacing.Top = 5
@ -2264,7 +2264,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblDeviceR
Left = 439
Height = 17
Top = 34
Top = 40
Width = 58
BorderSpacing.Left = 30
Caption = 'Poll rate:'
@ -2276,7 +2276,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 236
Height = 34
Top = 51
Top = 57
Width = 173
OnChange = TRXParamsChange
TabOrder = 4
@ -2287,7 +2287,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 439
Height = 34
Top = 51
Top = 57
Width = 80
OnChange = TRXParamsChange
OnExit = edtPollExit
@ -2299,7 +2299,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblExtra
Left = 273
Height = 23
Top = 88
Top = 94
Width = 185
BorderSpacing.Left = 12
Caption = 'Use CWR instead of CW '
@ -2312,7 +2312,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 273
Height = 23
Top = 111
Top = 117
Width = 235
Caption = 'Run rigctld when program starts'
OnChange = TRXParamsChange
@ -2324,7 +2324,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 88
Top = 94
Width = 209
BorderSpacing.Top = 3
Caption = 'Extra command line arguments:'
@ -2336,7 +2336,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 105
Top = 111
Width = 255
OnChange = TRXParamsChange
TabOrder = 7
@ -2347,7 +2347,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblPollR
Left = 549
Height = 17
Top = 34
Top = 40
Width = 84
BorderSpacing.Left = 30
Caption = 'Port number:'
@ -2359,7 +2359,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 549
Height = 34
Top = 51
Top = 57
Width = 80
OnChange = TRXParamsChange
TabOrder = 6
@ -2370,7 +2370,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 6
Height = 148
Top = 142
Top = 148
Width = 511
BorderSpacing.Top = 3
Caption = 'Radio one serial parameters'
@ -2623,7 +2623,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 51
Top = 57
Width = 200
ItemHeight = 0
OnChange = cmbModelRigChange
@ -2633,7 +2633,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Control = edtRadioName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtRadioName
Left = 252
Left = 247
Height = 17
Top = 0
Width = 30
@ -2646,7 +2646,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grbRadio
AnchorSideRight.Side = asrBottom
Left = 146
Left = 141
Height = 34
Top = 0
Width = 94
@ -2659,7 +2659,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grbRadio
AnchorSideRight.Side = asrBottom
Left = 294
Left = 289
Height = 34
Top = 0
Width = 128
@ -2676,8 +2676,8 @@ object frmPreferences: TfrmPreferences
AnchorSideBottom.Control = grbRadio
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 128
Top = 293
Height = 122
Top = 299
Width = 643
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
@ -2685,7 +2685,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'User defined TRX control buttons'
ClientHeight = 110
ClientHeight = 104
ClientWidth = 641
TabOrder = 12
object lblUsr1R: TLabel
@ -2805,7 +2805,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter
Left = 549
Height = 23
Top = 88
Top = 94
Width = 103
Caption = 'Use \chkvfo'
Checked = True
@ -2816,11 +2816,13 @@ object frmPreferences: TfrmPreferences
object cmbRadioNr: TComboBox
AnchorSideLeft.Control = grbRadio
AnchorSideTop.Control = grbRadio
Left = 21
Height = 29
Top = 0
Width = 50
BorderSpacing.Left = 21
Left = 6
Height = 34
Top = 1
Width = 60
AutoSize = False
BorderSpacing.Left = 6
BorderSpacing.Top = 1
ItemHeight = 0
ItemIndex = 1
Items.Strings = (
@ -2841,7 +2843,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Control = cmbRadioNr
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblHost
Left = 95
Left = 90
Height = 17
Top = 0
Width = 39
@ -3829,23 +3831,26 @@ object frmPreferences: TfrmPreferences
Caption = 'Modes'
ClientHeight = 682
ClientWidth = 873
object GroupBox35: TGroupBox
object grpUsrDigitalModes: TGroupBox
AnchorSideLeft.Control = tabModes
AnchorSideTop.Control = GroupBox39
AnchorSideTop.Control = grbRigBandWidths
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grbRigBandWidths
AnchorSideRight.Side = asrBottom
Left = 12
Height = 73
Top = 266
Width = 561
Top = 328
Width = 524
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 24
Caption = ' User defined digital modes (use , as delimitter)'
ClientHeight = 55
ClientWidth = 559
ClientWidth = 522
TabOrder = 0
object edtDigiModes: TEdit
AnchorSideLeft.Control = GroupBox35
AnchorSideTop.Control = GroupBox35
AnchorSideLeft.Control = grpUsrDigitalModes
AnchorSideTop.Control = grpUsrDigitalModes
Left = 6
Height = 34
Top = 6
@ -3856,475 +3861,353 @@ object frmPreferences: TfrmPreferences
TabOrder = 0
end
end
object GroupBox37: TGroupBox
object grbRigBandWidths: TGroupBox
AnchorSideLeft.Control = tabModes
AnchorSideTop.Control = tabModes
Left = 12
Height = 230
Height = 292
Top = 12
Width = 208
Width = 524
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = ' Radio one '
ClientHeight = 228
ClientWidth = 206
Caption = ' Radio'
ClientHeight = 274
ClientWidth = 522
TabOrder = 1
object Label28: TLabel
AnchorSideLeft.Control = GroupBox37
AnchorSideTop.Control = GroupBox37
object lblMode: TLabel
AnchorSideLeft.Control = grbRigBandWidths
AnchorSideTop.Control = cmbRadioModes
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 12
Top = 41
Width = 36
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Top = 6
Caption = 'Mode'
ParentColor = False
end
object Label29: TLabel
AnchorSideLeft.Control = Label28
object lblBandWidth: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label28
AnchorSideTop.Control = lblMode
Left = 81
Height = 17
Top = 12
Top = 41
Width = 69
BorderSpacing.Left = 33
Caption = 'Bandwidth'
ParentColor = False
end
object Label30: TLabel
AnchorSideLeft.Control = Label28
AnchorSideTop.Control = edtCW1
object lblCWbw: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideTop.Control = edtCW
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 45
Top = 67
Width = 22
Caption = 'CW'
ParentColor = False
end
object edtCW1: TSpinEdit
AnchorSideLeft.Control = Label29
AnchorSideTop.Control = Label29
AnchorSideRight.Control = Label29
object edtCW: TSpinEdit
AnchorSideLeft.Control = lblBandWidth
AnchorSideTop.Control = lblBandWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 36
Width = 69
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 24
Top = 58
Width = 90
AutoSize = False
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 0
Value = 500
end
object Label35: TLabel
AnchorSideLeft.Control = edtCW1
object lblCWHz: TLabel
AnchorSideLeft.Control = edtCW
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtCW1
AnchorSideTop.Control = edtCW
AnchorSideTop.Side = asrCenter
Left = 156
Left = 177
Height = 17
Top = 45
Top = 67
Width = 17
BorderSpacing.Left = 6
Caption = 'Hz'
ParentColor = False
end
object Label36: TLabel
AnchorSideLeft.Control = Label35
AnchorSideTop.Control = edtSSB1
object lblSSBHz: TLabel
AnchorSideLeft.Control = lblCWHz
AnchorSideTop.Control = edtSSB
AnchorSideTop.Side = asrCenter
Left = 156
Left = 177
Height = 17
Top = 79
Top = 101
Width = 17
Caption = 'Hz'
ParentColor = False
end
object edtSSB1: TSpinEdit
AnchorSideLeft.Control = edtCW1
AnchorSideTop.Control = edtCW1
object edtSSB: TSpinEdit
AnchorSideLeft.Control = edtCW
AnchorSideTop.Control = edtCW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtCW1
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 70
Width = 69
Anchors = [akTop, akLeft, akRight]
Top = 92
Width = 90
AutoSize = False
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 1
Value = 1800
end
object Label31: TLabel
AnchorSideLeft.Control = Label28
AnchorSideTop.Control = edtSSB1
object lblSSBBw: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideTop.Control = edtSSB
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 79
Top = 101
Width = 25
Caption = 'SSB'
ParentColor = False
end
object Label32: TLabel
AnchorSideLeft.Control = Label28
AnchorSideTop.Control = edtRTTY1
object lblDataBw: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideTop.Control = edtRTTY
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 113
Width = 33
Caption = 'RTTY'
Top = 135
Width = 31
Caption = 'Data'
ParentColor = False
end
object edtRTTY1: TSpinEdit
AnchorSideLeft.Control = edtCW1
AnchorSideTop.Control = edtSSB1
object edtRTTY: TSpinEdit
AnchorSideLeft.Control = edtCW
AnchorSideTop.Control = edtSSB
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtCW1
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 104
Width = 69
Anchors = [akTop, akLeft, akRight]
Top = 126
Width = 90
AutoSize = False
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 2
Value = 500
end
object Label37: TLabel
AnchorSideLeft.Control = Label35
AnchorSideTop.Control = edtRTTY1
object lblDataHz: TLabel
AnchorSideLeft.Control = lblCWHz
AnchorSideTop.Control = edtRTTY
AnchorSideTop.Side = asrCenter
Left = 156
Left = 177
Height = 17
Top = 113
Top = 135
Width = 17
Caption = 'Hz'
ParentColor = False
end
object Label38: TLabel
AnchorSideLeft.Control = Label35
AnchorSideTop.Control = edtAM1
object lblAMHz: TLabel
AnchorSideLeft.Control = lblCWHz
AnchorSideTop.Control = edtAM
AnchorSideTop.Side = asrCenter
Left = 156
Left = 177
Height = 17
Top = 147
Top = 169
Width = 17
Caption = 'Hz'
ParentColor = False
end
object edtAM1: TSpinEdit
AnchorSideLeft.Control = edtCW1
AnchorSideTop.Control = edtRTTY1
object edtAM: TSpinEdit
AnchorSideLeft.Control = edtCW
AnchorSideTop.Control = edtRTTY
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtCW1
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 138
Width = 69
Anchors = [akTop, akLeft, akRight]
Top = 160
Width = 90
AutoSize = False
Increment = 100
MaxValue = 100000
MinValue = -1
TabOrder = 3
Value = 3000
end
object Label33: TLabel
AnchorSideLeft.Control = Label28
AnchorSideTop.Control = edtAM1
object lblAMBw: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideTop.Control = edtAM
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 147
Top = 169
Width = 21
Caption = 'AM'
ParentColor = False
end
object Label34: TLabel
AnchorSideLeft.Control = Label28
AnchorSideTop.Control = edtFM1
object lblFMBw: TLabel
AnchorSideLeft.Control = lblMode
AnchorSideTop.Control = edtFM
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 181
Top = 203
Width = 20
Caption = 'FM'
ParentColor = False
end
object edtFM1: TSpinEdit
AnchorSideLeft.Control = edtCW1
AnchorSideTop.Control = edtAM1
object edtFM: TSpinEdit
AnchorSideLeft.Control = edtCW
AnchorSideTop.Control = edtAM
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtCW1
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 172
Width = 69
Anchors = [akTop, akLeft, akRight]
Top = 194
Width = 90
AutoSize = False
Increment = 100
MaxValue = 100000
MinValue = -1
TabOrder = 4
Value = 2500
end
object Label39: TLabel
AnchorSideLeft.Control = Label35
AnchorSideTop.Control = edtFM1
object lblFMHz: TLabel
AnchorSideLeft.Control = lblCWHz
AnchorSideTop.Control = edtFM
AnchorSideTop.Side = asrCenter
Left = 156
Left = 177
Height = 17
Top = 181
Top = 203
Width = 17
Caption = 'Hz'
ParentColor = False
end
end
object GroupBox39: TGroupBox
AnchorSideLeft.Control = GroupBox37
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = tabModes
Left = 232
Height = 230
Top = 12
Width = 208
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = ' Radio two '
ClientHeight = 228
ClientWidth = 206
TabOrder = 2
object Label110: TLabel
AnchorSideLeft.Control = GroupBox39
AnchorSideTop.Control = GroupBox39
object cmbRadioModes: TComboBox
AnchorSideLeft.Control = grbRigBandWidths
AnchorSideTop.Control = grbRigBandWidths
Left = 12
Height = 17
Top = 12
Width = 36
Height = 34
Top = 1
Width = 60
AutoSize = False
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = 'Mode'
BorderSpacing.Top = 1
ItemHeight = 0
ItemIndex = 1
Items.Strings = (
''
'1'
'2'
'3'
'4'
'5'
'6'
)
OnCloseUp = cmbRadioModesCloseUp
ReadOnly = True
Style = csDropDownList
TabOrder = 5
Text = '1'
end
object lblDataMode: TLabel
AnchorSideLeft.Control = lblCWHz
AnchorSideTop.Control = lblMode
Left = 207
Height = 17
Top = 41
Width = 31
BorderSpacing.Left = 30
Caption = 'Data'
ParentColor = False
end
object Label113: TLabel
AnchorSideLeft.Control = Label110
object lblLogMode: TLabel
AnchorSideLeft.Control = lblDataMode
AnchorSideTop.Control = edtCW
AnchorSideTop.Side = asrCenter
Left = 207
Height = 17
Top = 67
Width = 63
Caption = 'Log Mode'
ParentColor = False
end
object lblRigMode: TLabel
AnchorSideLeft.Control = lblLogMode
AnchorSideTop.Side = asrCenter
Left = 207
Height = 17
Top = 108
Width = 53
Caption = 'Rig cmd'
ParentColor = False
end
object lblDataMode1: TLabel
AnchorSideLeft.Control = lblDataMode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label110
Left = 81
AnchorSideTop.Control = lblMode
Left = 280
Height = 17
Top = 12
Width = 69
BorderSpacing.Left = 33
Caption = 'Bandwidth'
Top = 41
Width = 40
BorderSpacing.Left = 42
Caption = 'Mode '
ParentColor = False
end
object Label114: TLabel
AnchorSideLeft.Control = Label110
AnchorSideTop.Control = edtCW2
object edtLogMode: TEdit
AnchorSideLeft.Control = lblDataMode1
AnchorSideTop.Control = lblLogMode
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 45
Width = 22
Caption = 'CW'
ParentColor = False
end
object edtCW2: TSpinEdit
AnchorSideLeft.Control = Label113
AnchorSideTop.Control = Label113
AnchorSideRight.Control = Label113
AnchorSideRight.Side = asrBottom
Left = 81
Left = 280
Height = 34
Top = 36
Width = 69
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 24
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 0
Value = 500
Hint = 'Log Mode is the data mode name you want to use.'#10'(most used data mode)'#10'This setting effects to DXCluster spot line colors and'#10'sets wanted rig mode when double click on spot line.'
Top = 58
Width = 80
AutoSize = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
Text = 'RTTY'
end
object Label115: TLabel
AnchorSideLeft.Control = edtCW2
object edtRigCmd: TEdit
AnchorSideLeft.Control = edtLogMode
AnchorSideTop.Control = lblRigMode
AnchorSideTop.Side = asrCenter
Left = 280
Height = 34
Hint = 'Rig cmd is the mode command your rig needs when'#10' working this mode.'
Top = 99
Width = 80
AutoSize = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
Text = 'RTTY'
end
object lblNoRigForMode: TLabel
AnchorSideLeft.Control = cmbRadioModes
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtCW2
AnchorSideTop.Control = cmbRadioModes
AnchorSideTop.Side = asrCenter
Left = 156
Left = 84
Height = 17
Top = 45
Width = 17
BorderSpacing.Left = 6
Caption = 'Hz'
ParentColor = False
end
object Label116: TLabel
AnchorSideLeft.Control = Label115
AnchorSideTop.Control = edtSSB2
AnchorSideTop.Side = asrCenter
Left = 156
Height = 17
Top = 79
Width = 17
Caption = 'Hz'
ParentColor = False
end
object edtSSB2: TSpinEdit
AnchorSideLeft.Control = Label113
AnchorSideTop.Control = edtCW2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label113
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 70
Width = 69
Anchors = [akTop, akLeft, akRight]
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 1
Value = 1800
end
object Label117: TLabel
AnchorSideLeft.Control = Label110
AnchorSideTop.Control = edtSSB2
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 79
Width = 25
Caption = 'SSB'
ParentColor = False
end
object Label118: TLabel
AnchorSideLeft.Control = Label110
AnchorSideTop.Control = edtRTTY2
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 113
Width = 33
Caption = 'RTTY'
ParentColor = False
end
object edtRTTY2: TSpinEdit
AnchorSideLeft.Control = Label113
AnchorSideTop.Control = edtSSB2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label113
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 104
Width = 69
Anchors = [akTop, akLeft, akRight]
Increment = 50
MaxValue = 100000
MinValue = -1
TabOrder = 2
Value = 500
end
object Label119: TLabel
AnchorSideLeft.Control = Label115
AnchorSideTop.Control = edtRTTY2
AnchorSideTop.Side = asrCenter
Left = 156
Height = 17
Top = 113
Width = 17
Caption = 'Hz'
ParentColor = False
end
object Label120: TLabel
AnchorSideLeft.Control = Label115
AnchorSideTop.Control = edtAM2
AnchorSideTop.Side = asrCenter
Left = 156
Height = 17
Top = 147
Width = 17
Caption = 'Hz'
ParentColor = False
end
object edtAM2: TSpinEdit
AnchorSideLeft.Control = Label113
AnchorSideTop.Control = edtRTTY2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label113
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 138
Width = 69
Anchors = [akTop, akLeft, akRight]
Increment = 100
MaxValue = 100000
MinValue = -1
TabOrder = 3
Value = 3000
end
object Label121: TLabel
AnchorSideLeft.Control = Label110
AnchorSideTop.Control = edtAM2
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 147
Width = 21
Caption = 'AM'
ParentColor = False
end
object Label122: TLabel
AnchorSideLeft.Control = Label110
AnchorSideTop.Control = edtFM2
AnchorSideTop.Side = asrCenter
Left = 12
Height = 17
Top = 181
Width = 20
Caption = 'FM'
ParentColor = False
end
object edtFM2: TSpinEdit
AnchorSideLeft.Control = Label113
AnchorSideTop.Control = edtAM2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label113
AnchorSideRight.Side = asrBottom
Left = 81
Height = 34
Top = 172
Width = 69
Anchors = [akTop, akLeft, akRight]
Increment = 100
MaxValue = 100000
MinValue = -1
TabOrder = 4
Value = 2500
end
object Label123: TLabel
AnchorSideLeft.Control = Label115
AnchorSideTop.Control = edtFM2
AnchorSideTop.Side = asrCenter
Left = 156
Height = 17
Top = 181
Width = 17
Caption = 'Hz'
Top = 10
Width = 207
BorderSpacing.Left = 12
Caption = 'There is no radio definition'
Font.Color = clRed
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Visible = False
end
end
end

148
src/fPreferences.pas
View File

@ -502,9 +502,12 @@ type
cmbLoTWBckColor: TColorBox;
cmbCl10db : TColorBox;
cmbRadioNr: TComboBox;
cmbRadioModes: TComboBox;
DateEditCall: TDateEdit;
DateEditLoc: TDateEdit;
dlgColor : TColorDialog;
edtLogMode: TEdit;
edtRigCmd: TEdit;
edtGCLineWidth: TEdit;
edtGCStep: TEdit;
edtGCPolarDivisor: TEdit;
@ -564,16 +567,14 @@ type
edtRot2RotCtldPort: TEdit;
edtRotor1: TEdit;
edtRigCtldPath: TEdit;
edtAM1: TSpinEdit;
edtAM: TSpinEdit;
edtClub1Date: TEdit;
edtClub2Date: TEdit;
edtClub4Date: TEdit;
edtClub5Date: TEdit;
edtClub3Date: TEdit;
edtCW1: TSpinEdit;
edtCW2: TSpinEdit;
edtFM1: TSpinEdit;
edtFM2: TSpinEdit;
edtCW: TSpinEdit;
edtFM: TSpinEdit;
edtImgFiles: TEdit;
edtHtmlFiles: TEdit;
edtCbPass: TEdit;
@ -581,10 +582,8 @@ type
edteQSLName: TEdit;
edteQSLPass: TEdit;
edtRotCtldPath: TEdit;
edtRTTY1: TSpinEdit;
edtRTTY2: TSpinEdit;
edtSSB1: TSpinEdit;
edtSSB2: TSpinEdit;
edtRTTY: TSpinEdit;
edtSSB: TSpinEdit;
edtTxtFiles: TEdit;
edtDigiModes: TEdit;
edtFldigiPath: TEdit;
@ -627,7 +626,6 @@ type
edtWAward1: TEdit;
edtDoNotShow: TEdit;
edtXLeft: TEdit;
edtAM2: TSpinEdit;
edtCIV3: TEdit;
edtPasswd1: TEdit;
edtPort1: TEdit;
@ -680,11 +678,10 @@ type
GroupBox32: TGroupBox;
gbOffsets: TGroupBox;
GroupBox34: TGroupBox;
GroupBox35: TGroupBox;
grpUsrDigitalModes: TGroupBox;
gbeQSL: TGroupBox;
GroupBox37: TGroupBox;
grbRigBandWidths: TGroupBox;
GroupBox38: TGroupBox;
GroupBox39: TGroupBox;
gbProfiles: TGroupBox;
grbRigctldPath: TGroupBox;
GroupBox41: TGroupBox;
@ -712,6 +709,11 @@ type
Label1: TLabel;
Label10: TLabel;
Label108: TLabel;
lblNoRigForMode: TLabel;
lblDataMode: TLabel;
lblDataMode1: TLabel;
lblLogMode: TLabel;
lblRigMode: TLabel;
lblRName: TLabel;
lblDeviceR: TLabel;
lblExtra: TLabel;
@ -765,21 +767,9 @@ type
lbleQSLUsr: TLabel;
lbleQSLPass: TLabel;
Label11: TLabel;
Label110: TLabel;
Label111: TLabel;
Label112: TLabel;
Label113: TLabel;
Label114: TLabel;
Label115: TLabel;
Label116: TLabel;
Label117: TLabel;
Label118: TLabel;
Label119: TLabel;
lblintProxy: TLabel;
Label120: TLabel;
Label121: TLabel;
Label122: TLabel;
Label123: TLabel;
Label124: TLabel;
lblDevice1: TLabel;
lbleQSLBkg: TLabel;
@ -866,18 +856,18 @@ type
lblIntPasswd: TLabel;
Label2: TLabel;
Label23: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
lblMode: TLabel;
lblBandWidth: TLabel;
lblCWbw: TLabel;
lblSSBBw: TLabel;
lblDataBw: TLabel;
lblAMBw: TLabel;
lblFMBw: TLabel;
lblCWHz: TLabel;
lblSSBHz: TLabel;
lblDataHz: TLabel;
lblAMHz: TLabel;
lblFMHz: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
@ -1062,6 +1052,7 @@ type
procedure cmbModelRot1Change(Sender: TObject);
procedure cmbModelRot2Change(Sender: TObject);
procedure cmbRadioNrChangeBounds(Sender: TObject);
procedure cmbRadioModesCloseUp(Sender: TObject);
procedure edtAlertCmdExit(Sender: TObject);
procedure edtGCLineWidthExit(Sender: TObject);
procedure edtGCPolarDivisorExit(Sender: TObject);
@ -1114,8 +1105,11 @@ type
private
wasOnlineLogSupportEnabled : Boolean;
RadioNrLoaded : integer;
BandWNrLoaded : integer;
procedure LoadTRX(RigNr:integer);
procedure SaveTRX(RigNr:integer);
procedure SaveBandW(RigNr:integer);
procedure LoadBandW(RigNr:integer);
procedure SaveClubSection;
procedure LoadMebershipCombo;
procedure LoadMembersFromCombo(ClubComboText, ClubNumber : String);
@ -1342,17 +1336,6 @@ begin
cqrini.WriteInteger('ROT2', 'DTR', cmbDTRRot2.ItemIndex);
cqrini.WriteInteger('ROT2', 'RTS', cmbRTSRot2.ItemIndex);
cqrini.WriteInteger('Band1', 'CW', edtCW1.Value);
cqrini.WriteInteger('Band1', 'SSB', edtSSB1.Value);
cqrini.WriteInteger('Band1', 'RTTY', edtRTTY1.Value);
cqrini.WriteInteger('Band1', 'AM', edtAM1.Value);
cqrini.WriteInteger('Band1', 'FM', edtFM1.Value);
cqrini.WriteInteger('Band2', 'CW', edtCW2.Value);
cqrini.WriteInteger('Band2', 'SSB', edtSSB2.Value);
cqrini.WriteInteger('Band2', 'RTTY', edtRTTY2.Value);
cqrini.WriteInteger('Band2', 'AM', edtAM2.Value);
cqrini.WriteInteger('Band2', 'FM', edtFM2.Value);
cqrini.WriteString('Modes', 'Digi', edtDigiModes.Text);
@ -2487,10 +2470,25 @@ end;
procedure TfrmPreferences.cmbRadioNrChangeBounds(Sender: TObject);
begin
if cmbRadioNr.ItemIndex<1 then cmbRadioNr.ItemIndex:=1;
SaveTRX(RadioNrLoaded);
LoadTRX(cmbRadioNr.ItemIndex);
end;
procedure TfrmPreferences.cmbRadioModesCloseUp(Sender: TObject);
var
nr : String;
begin
if cmbRadioModes.ItemIndex<1 then cmbRadioModes.ItemIndex:=1;
nr:= IntToStr(cmbRadioModes.ItemIndex);
SaveBandW(BandWNrLoaded);
LoadBandW(cmbRadioModes.ItemIndex);
if cqrini.ReadString('TRX'+nr, 'model', '')='' then
lblNoRigForMode.Visible:=True
else
lblNoRigForMode.Visible:=False;
end;
procedure TfrmPreferences.edtAlertCmdExit(Sender: TObject);
begin
edtAlertCmd.Text:=StringReplace(edtAlertCmd.Text,'~/',dmData.UsrHomeDir,[rfReplaceAll]);
@ -2619,6 +2617,7 @@ begin
RotChanged := True;
end;
procedure TfrmPreferences.edtWebBrowserClick(Sender: TObject);
Begin
odFindBrowser.InitialDir:='/usr/bin';
@ -2870,7 +2869,8 @@ begin
'Fix path to rotctld in ROT control tab.', 'Error', mb_OK+ mb_IconError)
end;
LoadTRX(cmbRadioNr.ItemIndex);
LoadTRX(cmbRadioNr.ItemIndex); //this loads just 1st Rig values, others will be loaded/saved
LoadBandW(cmbRadioNr.ItemIndex); //when user changes radio Nr selector
edtRot1Device.Text := cqrini.ReadString('ROT1', 'device', '');
edtRot1Poll.Text := cqrini.ReadString('ROT1', 'poll', '500');
@ -2904,18 +2904,6 @@ begin
cmbDTRRot2.ItemIndex := cqrini.ReadInteger('ROT2', 'DTR', 0);
cmbRTSRot2.ItemIndex := cqrini.ReadInteger('ROT2', 'RTS', 0);
edtCW1.Value := cqrini.ReadInteger('Band1', 'CW', 500);
edtSSB1.Value := cqrini.ReadInteger('Band1', 'SSB', 1800);
edtRTTY1.Value := cqrini.ReadInteger('Band1', 'RTTY', 500);
edtAM1.Value := cqrini.ReadInteger('Band1', 'AM', 3000);
edtFM1.Value := cqrini.ReadInteger('Band1', 'FM', 2500);
edtCW2.Value := cqrini.ReadInteger('Band2', 'CW', 500);
edtSSB2.Value := cqrini.ReadInteger('Band2', 'SSB', 1800);
edtRTTY2.Value := cqrini.ReadInteger('Band2', 'RTTY', 500);
edtAM2.Value := cqrini.ReadInteger('Band2', 'AM', 3000);
edtFM2.Value := cqrini.ReadInteger('Band2', 'FM', 2500);
cmbModelRigChange(nil);
cmbModelRot1Change(nil);
@ -3198,11 +3186,11 @@ begin
fraExportPref1.LoadExportPref;
lbPreferences.Selected[pgPreferences.ActivePageIndex] := True;
edtCW1.Width := 60;
edtSSB1.Width := 60;
edtRTTY1.Width := 60;
edtAM1.Width := 60;
edtFM1.Width := 60;
edtCW.Width := 60;
edtSSB.Width := 60;
edtRTTY.Width := 60;
edtAM.Width := 60;
edtFM.Width := 60;
chkSysUTCClick(nil);
TRXChanged := False;
@ -3337,9 +3325,10 @@ var
Begin
nr:=IntToStr(RigNr);
if cmbModelRig.Text='' then //empty model will erase whole TRX section
if cmbModelRig.Text='' then //empty model will erase whole TRX and corresponding bandwidth section
Begin
cqrini.SectionErase('TRX'+nr);
cqrini.SectionErase('Band'+nr);
exit;
end;
@ -3367,6 +3356,31 @@ Begin
cqrini.WriteString('TRX'+nr, 'usr2', edtUsr2R.Text);
cqrini.WriteString('TRX'+nr, 'usr3', edtUsr3R.Text);
end;
procedure TfrmPreferences.LoadBandW(RigNr:integer);
var
nr :string;
Begin
nr:=IntToStr(RigNr);
edtCW.Value := cqrini.ReadInteger('Band'+nr, 'CW', 500);
edtSSB.Value := cqrini.ReadInteger('Band'+nr, 'SSB', 1800);
edtRTTY.Value := cqrini.ReadInteger('Band'+nr, 'RTTY', 500);
edtAM.Value := cqrini.ReadInteger('Band'+nr, 'AM', 3000);
edtFM.Value := cqrini.ReadInteger('Band'+nr, 'FM', 2500);
BandWNrLoaded := RigNr;
end;
procedure TfrmPreferences.SaveBandW(RigNr:integer);
var
nr :string;
Begin
if lblNoRigForMode.Visible then exit; //No rig, no save
nr:=IntToStr(RigNr);
cqrini.WriteInteger('Band'+nr, 'CW', edtCW.Value);
cqrini.WriteInteger('Band'+nr, 'SSB', edtSSB.Value);
cqrini.WriteInteger('Band'+nr, 'RTTY', edtRTTY.Value);
cqrini.WriteInteger('Band'+nr, 'AM', edtAM.Value);
cqrini.WriteInteger('Band'+nr, 'FM', edtFM.Value);
end;
end.

12
src/fTRXControl.lfm
View File

@ -316,10 +316,10 @@ object frmTRXControl: TfrmTRXControl
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbFreq
AnchorSideBottom.Side = asrBottom
Left = 3
Left = 4
Height = 39
Top = 4
Width = 174
Width = 173
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
@ -343,10 +343,10 @@ object frmTRXControl: TfrmTRXControl
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblFreq
AnchorSideBottom.Side = asrBottom
Left = 3
Left = 4
Height = 39
Top = 4
Width = 174
Width = 173
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
AutoSelect = False
@ -713,8 +713,9 @@ object frmTRXControl: TfrmTRXControl
Width = 130
Anchors = [akTop, akLeft, akBottom]
ItemHeight = 0
ItemIndex = 0
ItemIndex = 1
Items.Strings = (
''
'1'
'2'
'3'
@ -723,6 +724,7 @@ object frmTRXControl: TfrmTRXControl
'6'
)
OnChange = cmbRigChange
OnCloseUp = cmbRigCloseUp
OnGetItems = cmbRigGetItems
Style = csDropDownList
TabOrder = 0

12
src/fTRXControl.pas
View File

@ -92,6 +92,7 @@ type
procedure btPstbyClick(Sender : TObject);
procedure btnUsrClick(Sender : TObject);
procedure cmbRigChange(Sender: TObject);
procedure cmbRigCloseUp(Sender: TObject);
procedure cmbRigGetItems(Sender: TObject);
procedure edtFreqInputKeyPress(Sender : TObject; var Key : Char);
procedure edtFreqInputKeyUp(Sender : TObject; var Key : Word; Shift : TShiftState);
@ -896,7 +897,7 @@ begin
if Sender = btnUsr1 then b:='1';
if Sender = btnUsr2 then b:='2';
if Sender = btnUsr3 then b:='3';
r:=IntToStr(cmbRig.ItemIndex+1);
r:=IntToStr(cmbRig.ItemIndex);
UserButton(r[1], b);
end;
@ -909,6 +910,11 @@ begin
cmbRig.Visible:=True;
end;
procedure TfrmTRXControl.cmbRigCloseUp(Sender: TObject);
begin
if cmbRig.ItemIndex<1 then cmbRig.ItemIndex:=1;
end;
procedure TfrmTRXControl.cmbRigGetItems(Sender: TObject);
begin
FillRigNames;
@ -1056,7 +1062,7 @@ begin
Sleep(500);
Application.ProcessMessages;
n:=IntToStr(cmbRig.ItemIndex+1);
n:=IntToStr(cmbRig.ItemIndex);
radio := TRigControl.Create;
@ -1519,7 +1525,7 @@ procedure TfrmTRXControl.LoadUsrButtonCaptions;
var
r : String;
begin
r:= IntToStr(cmbRig.ItemIndex+1);
r:= IntToStr(cmbRig.ItemIndex);
btnUsr1.Caption := cqrini.ReadString('TRX' + r, 'usr1name', 'Usr1');
btnUsr2.Caption := cqrini.ReadString('TRX' + r, 'usr2name', 'Usr2');
btnUsr3.Caption := cqrini.ReadString('TRX' + r, 'usr3name', 'Usr3');