HABBase/LoRaSerialSettings.pas at master · daveake/HABBase · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
unit LoRaSerialSettings;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SettingsForm, AdvSmoothButton,
  AdvOfficeButtons, Vcl.StdCtrls, Vcl.ExtCtrls, AdvPanel, Registry;

type
  TfrmLoRaSerialSettings = class(TfrmSettings)
    Label2: TLabel;
    Label3: TLabel;
    edtFrequency1: TEdit;
    Label4: TLabel;
    edtMode1: TEdit;
    cmbPort: TComboBox;
    Label1: TLabel;
    edtPPM1: TEdit;
    chkUpload: TAdvOfficeCheckBox;
    edtOffset: TEdit;
    Label5: TLabel;
    procedure edtPortChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure UpdateOffset;
  protected
    procedure ApplyChanges; override;
    procedure LoadFields; override;
    procedure SaveFields; override;
  public
    { Public declarations }
  end;


implementation

{$R *.dfm}

uses Data, Miscellaneous, Misc;

procedure TfrmLoRaSerialSettings.ApplyChanges;
begin
    // Send settings to source

    SetSettingString(Group, 'Port', cmbPort.Text);

    SetSettingString(Group, 'Frequency', edtFrequency1.Text);
    SetSettingInteger(Group, 'Mode', StrToIntDef(edtMode1.Text, 0));
    SetSettingFloat(Group, 'PPM', MyStrToFloat(edtPPM1.Text, 0.0));

    // Tell source things have changed
    inherited;
end;

procedure TfrmLoRaSerialSettings.edtPortChange(Sender: TObject);
begin
    btnSave.Enabled := True;

    UpdateOffset;
end;

procedure TfrmLoRaSerialSettings.FormCreate(Sender: TObject);
var
    reg: TRegistry;
    i: Integer;
    st: TStringList;
begin
    cmbPort.Items.Clear;

    reg := TRegistry.Create;
    try
        reg.RootKey := HKEY_LOCAL_MACHINE;
        reg.OpenKeyReadOnly('hardware\devicemap\serialcomm');
        st := TstringList.Create;
        try
            reg.GetValueNames(st);
            for i := 0 to st.Count - 1 do begin
                cmbPort.Items.Add(reg.Readstring(st.strings[i]));
            end;
        finally
            st.Free;
        end;
        reg.CloseKey;
    finally
        reg.Free;
    end;
end;

procedure TfrmLoRaSerialSettings.LoadFields;
var
    Settings: String;
begin
    inherited;

    with DataModule1.tblSources do begin
        if cmbPort.Items.IndexOf(FieldByName('Port').AsString) < 0 then begin
            cmbPort.Items.Append(FieldByName('Port').AsString);
        end;

        cmbPort.ItemIndex := cmbPort.Items.IndexOf(FieldByName('Port').AsString);

        Settings := ';' + FieldByName('Settings').AsString;

        edtFrequency1.Text := GetSetting('Frequency', Settings);
        edtMode1.Text      := GetSetting('Mode', Settings);
        edtPPM1.Text       := GetSetting('PPM', Settings);
        chkUpload.Checked  := GetBooleanSetting('Upload', Settings);
    end;
end;

procedure TfrmLoRaSerialSettings.SaveFields;
begin
    inherited;

    with DataModule1.tblSources do begin
        FieldByName('Port').AsString := cmbPort.Text;
        FieldByName('Settings').AsString := 'Frequency=' + edtFrequency1.Text + ';' +
                                            'Mode=' + edtMode1.Text + ';' +
                                            'PPM=' + edtPPM1.Text + ';' +
                                            'Upload=' + BoolToStr(chkUpload.Checked, True);
    end;
end;

procedure TfrmLoRaSerialSettings.UpdateOffset;
begin
    edtOffset.Text := FormatFloat('0.0', MyStrToFloat(edtFrequency1.Text) * MyStrToFloat(edtPPM1.Text) / 1000) + 'kHz';
end;

end.