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

Load and save works

Browse Source
This commit is contained in:
OH1KH 2022-08-23 19:45:17 +03:00
parent 8c53ab313a
commit 011fa17faf
2 changed files with 37 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
src/fPreferences.lfm
View File

@ -2114,7 +2114,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Change default frequencies' Caption = 'Change default frequencies'
OnClick = btnChangeDefaultFreqClick OnClick = btnChangeDefaultFreqClick
TabOrder = 0 TabOrder = 1
end end
object btnSplit: TButton object btnSplit: TButton
AnchorSideTop.Control = btnAddTrxMem AnchorSideTop.Control = btnAddTrxMem
@ -2128,7 +2128,7 @@ object frmPreferences: TfrmPreferences
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Split settings' Caption = 'Split settings'
OnClick = btnSplitClick OnClick = btnSplitClick
TabOrder = 1 TabOrder = 2
end end
object grbRigctldPath: TGroupBox object grbRigctldPath: TGroupBox
AnchorSideLeft.Control = tabTRXcontrol AnchorSideLeft.Control = tabTRXcontrol
@ -2142,7 +2142,8 @@ object frmPreferences: TfrmPreferences
Caption = ' rigctld ' Caption = ' rigctld '
ClientHeight = 70 ClientHeight = 70
ClientWidth = 655 ClientWidth = 655
TabOrder = 2 TabOrder = 0
TabStop = True
object lblRigctdPath: TLabel object lblRigctdPath: TLabel
AnchorSideLeft.Control = grbRigctldPath AnchorSideLeft.Control = grbRigctldPath
AnchorSideTop.Control = grbRigctldPath AnchorSideTop.Control = grbRigctldPath
@ -2233,6 +2234,7 @@ object frmPreferences: TfrmPreferences
ClientHeight = 427 ClientHeight = 427
ClientWidth = 655 ClientWidth = 655
TabOrder = 6 TabOrder = 6
TabStop = True
object lblDeviceR: TLabel object lblDeviceR: TLabel
AnchorSideLeft.Control = cmbModelRig AnchorSideLeft.Control = cmbModelRig
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -2279,7 +2281,7 @@ object frmPreferences: TfrmPreferences
Top = 51 Top = 51
Width = 173 Width = 173
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 0 TabOrder = 10
end end
object edtPoll: TEdit object edtPoll: TEdit
AnchorSideLeft.Control = lblPollR AnchorSideLeft.Control = lblPollR
@ -2291,7 +2293,7 @@ object frmPreferences: TfrmPreferences
Width = 80 Width = 80
OnChange = TRXParamsChange OnChange = TRXParamsChange
OnExit = edtPollExit OnExit = edtPollExit
TabOrder = 1 TabOrder = 12
end end
object chkRSendCWR: TCheckBox object chkRSendCWR: TCheckBox
AnchorSideLeft.Control = edtRRigCtldArgs AnchorSideLeft.Control = edtRRigCtldArgs
@ -2316,7 +2318,7 @@ object frmPreferences: TfrmPreferences
Width = 235 Width = 235
Caption = 'Run rigctld when program starts' Caption = 'Run rigctld when program starts'
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 3 TabOrder = 5
end end
object lblExtra: TLabel object lblExtra: TLabel
AnchorSideLeft.Control = lblModelR AnchorSideLeft.Control = lblModelR
@ -2339,7 +2341,7 @@ object frmPreferences: TfrmPreferences
Top = 105 Top = 105
Width = 255 Width = 255
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 4 TabOrder = 1
end end
object lblPortR: TLabel object lblPortR: TLabel
AnchorSideLeft.Control = edtPoll AnchorSideLeft.Control = edtPoll
@ -2362,7 +2364,7 @@ object frmPreferences: TfrmPreferences
Top = 51 Top = 51
Width = 80 Width = 80
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 5 TabOrder = 0
end end
object grbSerialR: TGroupBox object grbSerialR: TGroupBox
AnchorSideLeft.Control = lblModelR AnchorSideLeft.Control = lblModelR
@ -2376,7 +2378,8 @@ object frmPreferences: TfrmPreferences
Caption = 'Radio one serial parameters' Caption = 'Radio one serial parameters'
ClientHeight = 130 ClientHeight = 130
ClientWidth = 509 ClientWidth = 509
TabOrder = 6 TabOrder = 9
TabStop = True
object lblSerialRSpd: TLabel object lblSerialRSpd: TLabel
AnchorSideLeft.Control = grbSerialR AnchorSideLeft.Control = grbSerialR
AnchorSideTop.Control = grbSerialR AnchorSideTop.Control = grbSerialR
@ -2450,7 +2453,7 @@ object frmPreferences: TfrmPreferences
) )
OnChange = TRXParamsChange OnChange = TRXParamsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 4
Text = 'default' Text = 'default'
end end
object cmbParityR: TComboBox object cmbParityR: TComboBox
@ -2474,7 +2477,7 @@ object frmPreferences: TfrmPreferences
) )
OnChange = TRXParamsChange OnChange = TRXParamsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 3
Text = 'default' Text = 'default'
end end
object cmbDataBitsR: TComboBox object cmbDataBitsR: TComboBox
@ -2498,7 +2501,7 @@ object frmPreferences: TfrmPreferences
) )
OnChange = TRXParamsChange OnChange = TRXParamsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 1
Text = 'default' Text = 'default'
end end
object cmbStopBitsR: TComboBox object cmbStopBitsR: TComboBox
@ -2521,7 +2524,7 @@ object frmPreferences: TfrmPreferences
) )
OnChange = TRXParamsChange OnChange = TRXParamsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 2
Text = 'default' Text = 'default'
end end
object cmbSpeedR: TComboBox object cmbSpeedR: TComboBox
@ -2549,7 +2552,7 @@ object frmPreferences: TfrmPreferences
) )
OnChange = TRXParamsChange OnChange = TRXParamsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 0
Text = 'default' Text = 'default'
end end
object cmbDTRR: TComboBox object cmbDTRR: TComboBox
@ -2627,7 +2630,7 @@ object frmPreferences: TfrmPreferences
Width = 200 Width = 200
ItemHeight = 0 ItemHeight = 0
OnChange = cmbModelRigChange OnChange = cmbModelRigChange
TabOrder = 7 TabOrder = 8
end end
object lblHost: TLabel object lblHost: TLabel
AnchorSideLeft.Control = edtRadioName AnchorSideLeft.Control = edtRadioName
@ -2652,7 +2655,7 @@ object frmPreferences: TfrmPreferences
Width = 94 Width = 94
BorderSpacing.Left = 12 BorderSpacing.Left = 12
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 8 TabOrder = 4
end end
object edtRHost: TEdit object edtRHost: TEdit
AnchorSideLeft.Control = lblHost AnchorSideLeft.Control = lblHost
@ -2665,7 +2668,7 @@ object frmPreferences: TfrmPreferences
Width = 128 Width = 128
BorderSpacing.Left = 12 BorderSpacing.Left = 12
OnChange = TRXParamsChange OnChange = TRXParamsChange
TabOrder = 9 TabOrder = 6
end end
object grpUsrCmds: TGroupBox object grpUsrCmds: TGroupBox
AnchorSideLeft.Control = grbRadio AnchorSideLeft.Control = grbRadio
@ -2687,7 +2690,7 @@ object frmPreferences: TfrmPreferences
Caption = 'User defined TRX control buttons' Caption = 'User defined TRX control buttons'
ClientHeight = 110 ClientHeight = 110
ClientWidth = 641 ClientWidth = 641
TabOrder = 10 TabOrder = 11
object lblUsr1R: TLabel object lblUsr1R: TLabel
AnchorSideLeft.Control = grpUsrCmds AnchorSideLeft.Control = grpUsrCmds
AnchorSideTop.Control = edtUsr1R AnchorSideTop.Control = edtUsr1R
@ -2749,7 +2752,7 @@ object frmPreferences: TfrmPreferences
Top = 34 Top = 34
Width = 527 Width = 527
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 1 TabOrder = 2
end end
object edtUsr3R: TEdit object edtUsr3R: TEdit
AnchorSideLeft.Control = edtUsr2R AnchorSideLeft.Control = edtUsr2R
@ -2762,7 +2765,7 @@ object frmPreferences: TfrmPreferences
Top = 68 Top = 68
Width = 527 Width = 527
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 2 TabOrder = 4
end end
object edtUsr1RName: TEdit object edtUsr1RName: TEdit
AnchorSideLeft.Control = lblUsr1R AnchorSideLeft.Control = lblUsr1R
@ -2774,7 +2777,7 @@ object frmPreferences: TfrmPreferences
Width = 57 Width = 57
BorderSpacing.Left = 6 BorderSpacing.Left = 6
MaxLength = 4 MaxLength = 4
TabOrder = 3 TabOrder = 1
end end
object edtUsr2RName: TEdit object edtUsr2RName: TEdit
AnchorSideLeft.Control = edtUsr1RName AnchorSideLeft.Control = edtUsr1RName
@ -2785,7 +2788,7 @@ object frmPreferences: TfrmPreferences
Top = 34 Top = 34
Width = 57 Width = 57
MaxLength = 4 MaxLength = 4
TabOrder = 4 TabOrder = 3
end end
object edtUsr3RName: TEdit object edtUsr3RName: TEdit
AnchorSideLeft.Control = edtUsr1RName AnchorSideLeft.Control = edtUsr1RName
@ -2811,7 +2814,7 @@ object frmPreferences: TfrmPreferences
Checked = True Checked = True
OnChange = TRXParamsChange OnChange = TRXParamsChange
State = cbChecked State = cbChecked
TabOrder = 11 TabOrder = 7
end end
object cmbRadioNr: TComboBox object cmbRadioNr: TComboBox
AnchorSideLeft.Control = grbRadio AnchorSideLeft.Control = grbRadio
@ -2832,9 +2835,9 @@ object frmPreferences: TfrmPreferences
'5' '5'
'6' '6'
) )
OnChangeBounds = cmbRadioNrChangeBounds OnCloseUp = cmbRadioNrChangeBounds
Style = csDropDownList Style = csDropDownList
TabOrder = 12 TabOrder = 3
Text = '1' Text = '1'
end end
object lblRName: TLabel object lblRName: TLabel
@ -9561,7 +9564,7 @@ object frmPreferences: TfrmPreferences
Top = 344 Top = 344
end end
object odFindBrowser: TOpenDialog object odFindBrowser: TOpenDialog
Left = 904 Left = 1040
Top = 224 Top = 408
end end
end end

13
src/fPreferences.pas
View File

@ -2858,12 +2858,7 @@ begin
edtRotCtldPath.Text := cqrini.ReadString('ROT', 'RotCtldPath', '/usr/bin/rotctld'); edtRotCtldPath.Text := cqrini.ReadString('ROT', 'RotCtldPath', '/usr/bin/rotctld');
if (FileExistsUTF8(edtRigCtldPath.Text)) then
dmUtils.LoadRigsToComboBox(cqrini.ReadString('TRX1', 'model', ''),edtRigCtldPath.Text,cmbModelRig)
else begin
Application.MessageBox('rigctld binary not fount, cannot load list of supported rigs!'+LineEnding+LineEnding+
'Fix path to rigctld in TRX control tab.', 'Error', mb_OK+ mb_IconError)
end;
if (FileExistsUTF8(edtRotCtldPath.Text)) then if (FileExistsUTF8(edtRotCtldPath.Text)) then
begin begin
@ -3306,6 +3301,12 @@ var
nr :string; nr :string;
Begin Begin
nr:=IntToStr(RigNr); nr:=IntToStr(RigNr);
if (FileExistsUTF8(edtRigCtldPath.Text)) then
dmUtils.LoadRigsToComboBox(cqrini.ReadString('TRX'+nr, 'model', ''),edtRigCtldPath.Text,cmbModelRig)
else begin
Application.MessageBox('rigctld binary not fount, cannot load list of supported rigs!'+LineEnding+LineEnding+
'Fix path to rigctld in TRX control tab.', 'Error', mb_OK+ mb_IconError)
end;
edtRDevice.Text := cqrini.ReadString('TRX'+nr, 'device', ''); edtRDevice.Text := cqrini.ReadString('TRX'+nr, 'device', '');
edtPoll.Text := cqrini.ReadString('TRX'+nr, 'poll', '500'); edtPoll.Text := cqrini.ReadString('TRX'+nr, 'poll', '500');
edtRadioName.Text := cqrini.ReadString('TRX'+nr, 'Desc', 'Radio 1'); edtRadioName.Text := cqrini.ReadString('TRX'+nr, 'Desc', 'Radio 1');