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

fixed local storage. TODO rig naming in selector does not work

Browse Source
This commit is contained in:
OH1KH 2022-09-06 20:26:51 +03:00
parent 63dac701a5
commit 9cec135549
3 changed files with 76 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fConfigStorage.pas
View File

@ -182,7 +182,7 @@ begin
if cmbStoreOnlineLog.ItemIndex>0 then if cmbStoreOnlineLog.ItemIndex>0 then
Sections := Sections + 'OnlineLog,'; Sections := Sections + 'OnlineLog,';
if cmbStoreWindowSize.ItemIndex>0 then if cmbStoreWindowSize.ItemIndex>0 then
Sections := Sections + 'WindowSize, Window,Grayline,'; Sections := Sections + 'WindowSize,Window,Grayline,';
if cmbStoreColumnSize.ItemIndex>0 then if cmbStoreColumnSize.ItemIndex>0 then
Sections := Sections + 'ColumnSize,'; Sections := Sections + 'ColumnSize,';
cqrini.WriteString('ConfigStorage','Items',Sections); cqrini.WriteString('ConfigStorage','Items',Sections);

95
src/fPreferences.lfm
View File

@ -56,7 +56,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = ' Internet connection ' Caption = ' Internet connection '
ClientHeight = 127 ClientHeight = 111
ClientWidth = 339 ClientWidth = 339
TabOrder = 0 TabOrder = 0
object lblintProxy: TLabel object lblintProxy: TLabel
@ -248,7 +248,7 @@ object frmPreferences: TfrmPreferences
Width = 626 Width = 626
BorderSpacing.Top = 9 BorderSpacing.Top = 9
Caption = ' Offsets and colors' Caption = ' Offsets and colors'
ClientHeight = 201 ClientHeight = 185
ClientWidth = 624 ClientWidth = 624
TabOrder = 7 TabOrder = 7
object lblUtc: TLabel object lblUtc: TLabel
@ -2265,7 +2265,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblModelR AnchorSideTop.Control = lblModelR
Left = 236 Left = 236
Height = 17 Height = 17
Top = 35 Top = 39
Width = 157 Width = 157
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'Device (e.g. /dev/ttyS0):' Caption = 'Device (e.g. /dev/ttyS0):'
@ -2277,7 +2277,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 17
Top = 35 Top = 39
Width = 72 Width = 72
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 5 BorderSpacing.Top = 5
@ -2290,7 +2290,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblDeviceR AnchorSideTop.Control = lblDeviceR
Left = 439 Left = 439
Height = 17 Height = 17
Top = 35 Top = 39
Width = 58 Width = 58
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'Poll rate:' Caption = 'Poll rate:'
@ -2302,7 +2302,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 34 Height = 34
Top = 52 Top = 56
Width = 173 Width = 173
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 4 TabOrder = 4
@ -2313,7 +2313,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 439 Left = 439
Height = 34 Height = 34
Top = 52 Top = 56
Width = 80 Width = 80
OnChange = TRXParamsChange OnChange = TRXParamsChange
OnExit = edtPollExit OnExit = edtPollExit
@ -2325,7 +2325,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblExtra AnchorSideTop.Control = lblExtra
Left = 273 Left = 273
Height = 23 Height = 23
Top = 89 Top = 93
Width = 185 Width = 185
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Use CWR instead of CW ' Caption = 'Use CWR instead of CW '
@ -2338,7 +2338,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 273 Left = 273
Height = 23 Height = 23
Top = 112 Top = 116
Width = 235 Width = 235
Caption = 'Run rigctld when program starts' Caption = 'Run rigctld when program starts'
OnChange = TRXParamsChange OnChange = TRXParamsChange
@ -2350,7 +2350,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 17
Top = 89 Top = 93
Width = 209 Width = 209
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'Extra command line arguments:' Caption = 'Extra command line arguments:'
@ -2362,7 +2362,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 34 Height = 34
Top = 106 Top = 110
Width = 255 Width = 255
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 7 TabOrder = 7
@ -2373,7 +2373,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblPollR AnchorSideTop.Control = lblPollR
Left = 549 Left = 549
Height = 17 Height = 17
Top = 35 Top = 39
Width = 84 Width = 84
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'Port number:' Caption = 'Port number:'
@ -2385,7 +2385,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 549 Left = 549
Height = 34 Height = 34
Top = 52 Top = 56
Width = 80 Width = 80
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 6 TabOrder = 6
@ -2396,7 +2396,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 148 Height = 148
Top = 143 Top = 147
Width = 511 Width = 511
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'Radio one serial parameters' Caption = 'Radio one serial parameters'
@ -2649,7 +2649,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 34 Height = 34
Top = 52 Top = 56
Width = 200 Width = 200
ItemHeight = 0 ItemHeight = 0
OnChange = cmbModelRigChange OnChange = cmbModelRigChange
@ -2702,8 +2702,8 @@ object frmPreferences: TfrmPreferences
AnchorSideBottom.Control = grbRadio AnchorSideBottom.Control = grbRadio
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 127 Height = 123
Top = 294 Top = 298
Width = 643 Width = 643
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -2711,7 +2711,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'User defined TRX control buttons' Caption = 'User defined TRX control buttons'
ClientHeight = 109 ClientHeight = 105
ClientWidth = 641 ClientWidth = 641
TabOrder = 12 TabOrder = 12
object lblUsr1R: TLabel object lblUsr1R: TLabel
@ -2832,7 +2832,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 517 Left = 517
Height = 23 Height = 23
Top = 89 Top = 93
Width = 103 Width = 103
Caption = 'Use \chkvfo' Caption = 'Use \chkvfo'
Checked = True Checked = True
@ -2844,7 +2844,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Control = grbRadio AnchorSideLeft.Control = grbRadio
AnchorSideTop.Control = grbRadio AnchorSideTop.Control = grbRadio
Left = 6 Left = 6
Height = 29 Height = 33
Top = 1 Top = 1
Width = 74 Width = 74
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -2873,7 +2873,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 517 Left = 517
Height = 23 Height = 23
Top = 112 Top = 116
Width = 131 Width = 131
Caption = 'Rig pwr ON cmd' Caption = 'Rig pwr ON cmd'
Checked = True Checked = True
@ -3860,6 +3860,7 @@ object frmPreferences: TfrmPreferences
Caption = 'Modes' Caption = 'Modes'
ClientHeight = 681 ClientHeight = 681
ClientWidth = 873 ClientWidth = 873
OnExit = tabModesExit
object grpUsrDigitalModes: TGroupBox object grpUsrDigitalModes: TGroupBox
AnchorSideLeft.Control = tabModes AnchorSideLeft.Control = tabModes
AnchorSideTop.Control = grbRigBandWidths AnchorSideTop.Control = grbRigBandWidths
@ -3909,7 +3910,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 17 Height = 17
Top = 36 Top = 40
Width = 36 Width = 36
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -3922,7 +3923,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblMode AnchorSideTop.Control = lblMode
Left = 81 Left = 81
Height = 17 Height = 17
Top = 36 Top = 40
Width = 69 Width = 69
BorderSpacing.Left = 33 BorderSpacing.Left = 33
Caption = 'Bandwidth' Caption = 'Bandwidth'
@ -3934,7 +3935,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 17 Height = 17
Top = 62 Top = 66
Width = 22 Width = 22
Caption = 'CW' Caption = 'CW'
ParentColor = False ParentColor = False
@ -3946,7 +3947,7 @@ object frmPreferences: TfrmPreferences
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 81 Left = 81
Height = 34 Height = 34
Top = 53 Top = 57
Width = 90 Width = 90
AutoSize = False AutoSize = False
Increment = 50 Increment = 50
@ -3962,7 +3963,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 177 Left = 177
Height = 17 Height = 17
Top = 62 Top = 66
Width = 17 Width = 17
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Hz' Caption = 'Hz'
@ -3974,7 +3975,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 177 Left = 177
Height = 17 Height = 17
Top = 96 Top = 100
Width = 17 Width = 17
Caption = 'Hz' Caption = 'Hz'
ParentColor = False ParentColor = False
@ -3986,7 +3987,7 @@ object frmPreferences: TfrmPreferences
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 81 Left = 81
Height = 34 Height = 34
Top = 87 Top = 91
Width = 90 Width = 90
AutoSize = False AutoSize = False
Increment = 50 Increment = 50
@ -4001,7 +4002,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 17 Height = 17
Top = 96 Top = 100
Width = 25 Width = 25
Caption = 'SSB' Caption = 'SSB'
ParentColor = False ParentColor = False
@ -4012,7 +4013,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 17 Height = 17
Top = 130 Top = 134
Width = 31 Width = 31
Caption = 'Data' Caption = 'Data'
ParentColor = False ParentColor = False
@ -4024,7 +4025,7 @@ object frmPreferences: TfrmPreferences
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 81 Left = 81
Height = 34 Height = 34
Top = 121 Top = 125
Width = 90 Width = 90
AutoSize = False AutoSize = False
Increment = 50 Increment = 50
@ -4039,7 +4040,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 177 Left = 177
Height = 17 Height = 17
Top = 130 Top = 134
Width = 17 Width = 17
Caption = 'Hz' Caption = 'Hz'
ParentColor = False ParentColor = False
@ -4050,7 +4051,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 177 Left = 177
Height = 17 Height = 17
Top = 164 Top = 168
Width = 17 Width = 17
Caption = 'Hz' Caption = 'Hz'
ParentColor = False ParentColor = False
@ -4062,7 +4063,7 @@ object frmPreferences: TfrmPreferences
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 81 Left = 81
Height = 34 Height = 34
Top = 155 Top = 159
Width = 90 Width = 90
AutoSize = False AutoSize = False
Increment = 100 Increment = 100
@ -4077,7 +4078,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 17 Height = 17
Top = 164 Top = 168
Width = 21 Width = 21
Caption = 'AM' Caption = 'AM'
ParentColor = False ParentColor = False
@ -4088,7 +4089,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 17 Height = 17
Top = 198 Top = 202
Width = 20 Width = 20
Caption = 'FM' Caption = 'FM'
ParentColor = False ParentColor = False
@ -4100,7 +4101,7 @@ object frmPreferences: TfrmPreferences
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 81 Left = 81
Height = 34 Height = 34
Top = 189 Top = 193
Width = 90 Width = 90
AutoSize = False AutoSize = False
Increment = 100 Increment = 100
@ -4115,7 +4116,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 177 Left = 177
Height = 17 Height = 17
Top = 198 Top = 202
Width = 17 Width = 17
Caption = 'Hz' Caption = 'Hz'
ParentColor = False ParentColor = False
@ -4124,7 +4125,7 @@ object frmPreferences: TfrmPreferences
AnchorSideLeft.Control = grbRigBandWidths AnchorSideLeft.Control = grbRigBandWidths
AnchorSideTop.Control = grbRigBandWidths AnchorSideTop.Control = grbRigBandWidths
Left = 12 Left = 12
Height = 29 Height = 33
Top = 1 Top = 1
Width = 116 Width = 116
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -4141,7 +4142,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblMode AnchorSideTop.Control = lblMode
Left = 207 Left = 207
Height = 17 Height = 17
Top = 36 Top = 40
Width = 31 Width = 31
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'Data' Caption = 'Data'
@ -4153,7 +4154,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 207 Left = 207
Height = 17 Height = 17
Top = 62 Top = 66
Width = 63 Width = 63
Caption = 'Log Mode' Caption = 'Log Mode'
ParentColor = False ParentColor = False
@ -4164,7 +4165,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 207 Left = 207
Height = 17 Height = 17
Top = 96 Top = 100
Width = 53 Width = 53
Caption = 'Rig cmd' Caption = 'Rig cmd'
ParentColor = False ParentColor = False
@ -4175,7 +4176,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Control = lblMode AnchorSideTop.Control = lblMode
Left = 280 Left = 280
Height = 17 Height = 17
Top = 36 Top = 40
Width = 40 Width = 40
BorderSpacing.Left = 42 BorderSpacing.Left = 42
Caption = 'Mode ' Caption = 'Mode '
@ -4188,7 +4189,7 @@ object frmPreferences: TfrmPreferences
Left = 280 Left = 280
Height = 34 Height = 34
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 DXspot line.'#10#10'NOTE: You may have to add your "Log mode" to'#10'"User defined digital modes"' 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 DXspot line.'#10#10'NOTE: You may have to add your "Log mode" to'#10'"User defined digital modes"'
Top = 53 Top = 57
Width = 80 Width = 80
AutoSize = False AutoSize = False
ParentShowHint = False ParentShowHint = False
@ -4203,7 +4204,7 @@ object frmPreferences: TfrmPreferences
Left = 280 Left = 280
Height = 34 Height = 34
Hint = '"Rig cmd" is the rigctld mode command your rig needs to'#10'set rig to this mode.' Hint = '"Rig cmd" is the rigctld mode command your rig needs to'#10'set rig to this mode.'
Top = 87 Top = 91
Width = 80 Width = 80
AutoSize = False AutoSize = False
ParentShowHint = False ParentShowHint = False
@ -4218,7 +4219,7 @@ object frmPreferences: TfrmPreferences
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 140 Left = 140
Height = 17 Height = 17
Top = 7 Top = 9
Width = 207 Width = 207
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'There is no radio definition' Caption = 'There is no radio definition'
@ -4235,7 +4236,7 @@ object frmPreferences: TfrmPreferences
Left = 207 Left = 207
Height = 23 Height = 23
Hint = 'Cheking this will cause Cqrlog to set selected "Log mode" if'#10'rigctld reads this mode from rig and NewQSO/Auto is checked.'#10#10'This can be a pitfall if your "Log mode" needs for ex. USB mode'#10'from rig. Then when working phone qso using USB your log gets'#10'mode as "Log mode". '#10'Normally when using remote modes and get mode from remote'#10'program this does not need to be checked.' Hint = 'Cheking this will cause Cqrlog to set selected "Log mode" if'#10'rigctld reads this mode from rig and NewQSO/Auto is checked.'#10#10'This can be a pitfall if your "Log mode" needs for ex. USB mode'#10'from rig. Then when working phone qso using USB your log gets'#10'mode as "Log mode". '#10'Normally when using remote modes and get mode from remote'#10'program this does not need to be checked.'
Top = 127 Top = 131
Width = 202 Width = 202
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Use also reverse (rig->log)' Caption = 'Use also reverse (rig->log)'

34
src/fPreferences.pas
View File

@ -1073,6 +1073,7 @@ type
procedure edtRecetQSOsKeyPress(Sender: TObject; var Key: char); procedure edtRecetQSOsKeyPress(Sender: TObject; var Key: char);
procedure edtRigCountChange(Sender: TObject); procedure edtRigCountChange(Sender: TObject);
procedure RotorParamsChange(Sender: TObject); procedure RotorParamsChange(Sender: TObject);
procedure tabModesExit(Sender: TObject);
procedure tabTRXcontrolExit(Sender: TObject); procedure tabTRXcontrolExit(Sender: TObject);
procedure TRXParamsChange(Sender: TObject); procedure TRXParamsChange(Sender: TObject);
procedure edtTxtFilesExit(Sender: TObject); procedure edtTxtFilesExit(Sender: TObject);
@ -1307,9 +1308,14 @@ begin
cqrini.WriteString('TRX', 'RigCtldPath', edtRigCtldPath.Text); cqrini.WriteString('TRX', 'RigCtldPath', edtRigCtldPath.Text);
cqrini.WriteBool('TRX','Debug',chkTrxControlDebug.Checked); cqrini.WriteBool('TRX','Debug',chkTrxControlDebug.Checked);
cqrini.WriteBool('TRX','MemModeRelated',chkModeRelatedOnly.Checked); cqrini.WriteBool('TRX','MemModeRelated',chkModeRelatedOnly.Checked);
cqrini.WriteInteger('TRX', 'RigInUse', edtRigCount.Value); cqrini.WriteInteger('TRX', 'RigCount', edtRigCount.Value);
for int:=1 to edtRigCount.Value do
begin
SaveTRX(int);
SaveBandW(int);
end;
SaveTRX(cmbRadioNr.ItemIndex);
ClearUnUsedRigs; ClearUnUsedRigs;
frmTRXControl.cmbRigGetItems(nil); frmTRXControl.cmbRigGetItems(nil);
@ -2634,6 +2640,7 @@ end;
procedure TfrmPreferences.edtRigCountChange(Sender: TObject); procedure TfrmPreferences.edtRigCountChange(Sender: TObject);
begin begin
cqrini.WriteInteger('TRX', 'RigCount', edtRigCount.Value);
InitRigCmb; InitRigCmb;
end; end;
@ -2646,6 +2653,12 @@ begin
RotChanged := True; RotChanged := True;
end; end;
procedure TfrmPreferences.tabModesExit(Sender: TObject);
begin
if cmbRadioModes.ItemIndex<1 then cmbRadioModes.ItemIndex:=1;
SaveBandW(BandWNrLoaded);
end;
procedure TfrmPreferences.tabTRXcontrolExit(Sender: TObject); procedure TfrmPreferences.tabTRXcontrolExit(Sender: TObject);
begin begin
if cmbRadioNr.ItemIndex<1 then cmbRadioNr.ItemIndex:=1; if cmbRadioNr.ItemIndex<1 then cmbRadioNr.ItemIndex:=1;
@ -2900,6 +2913,7 @@ begin
LoadTRX(cmbRadioNr.ItemIndex); LoadTRX(cmbRadioNr.ItemIndex);
LoadBandW(cmbRadioNr.ItemIndex); LoadBandW(cmbRadioNr.ItemIndex);
tabTRXcontrolExit(nil);
edtRotCtldPath.Text := cqrini.ReadString('ROT', 'RotCtldPath', '/usr/bin/rotctld'); edtRotCtldPath.Text := cqrini.ReadString('ROT', 'RotCtldPath', '/usr/bin/rotctld');
if (FileExistsUTF8(edtRotCtldPath.Text)) then if (FileExistsUTF8(edtRotCtldPath.Text)) then
@ -3425,7 +3439,7 @@ Begin
cqrini.WriteString('Band'+nr, 'Datacmd', edtDatacmd.Text); cqrini.WriteString('Band'+nr, 'Datacmd', edtDatacmd.Text);
cqrini.WriteBool('Band'+nr, 'UseReverse', chkModeReverse.Checked); cqrini.WriteBool('Band'+nr, 'UseReverse', chkModeReverse.Checked);
end; end;
procedure TfrmPreferences.InitRigCmb; //initialize radion selectors in TRXControl and Modes procedure TfrmPreferences.InitRigCmb; //initialize radio selectors in TRXControl and Modes
var var
f : integer; f : integer;
s : string; s : string;
@ -3439,14 +3453,20 @@ Begin
cmbRadioNr.Items.Add(IntToStr(f)); cmbRadioNr.Items.Add(IntToStr(f));
cmbRadioModes.Items.Add(IntToStr(f)); cmbRadioModes.Items.Add(IntToStr(f));
end; end;
cmbRadioNr.ItemIndex:=1;
cmbRadioModes.ItemIndex:=1;
end; end;
procedure TfrmPreferences.ClearUnUsedRigs; //remove unused rigs from configuration procedure TfrmPreferences.ClearUnUsedRigs;
var var
f:integer; f:integer;
Begin Begin
for f:=edtRigCount.Value+1 to 6 do //6 is max rig value set by edtRigCount Tspinedit //remove these just in case (they should not exist)
for f:=-1 to 0 do
begin
cqrini.SectionErase('TRX'+IntToStr(f));
cqrini.SectionErase('Band'+IntToStr(f));
end;
//remove unused rigs from configuration
for f:=edtRigCount.Value+1 to 6 do //6 is max rig value set by edtRigCount Tspinedit
begin begin
cqrini.SectionErase('TRX'+IntToStr(f)); cqrini.SectionErase('TRX'+IntToStr(f));
cqrini.SectionErase('Band'+IntToStr(f)); cqrini.SectionErase('Band'+IntToStr(f));