HABBase/SystemSettings.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
unit SystemSettings;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data, Data.DB, Vcl.StdCtrls, Vcl.Mask,
  Vcl.DBCtrls, AdvSmoothButton, Vcl.ExtCtrls, AdvPanel, AdvOfficeButtons,
  DBAdvOfficeButtons;

type
  TfrmSystemSettings = class(TForm)
    pnlCommon: TAdvPanel;
    Label9: TLabel;
    btnSave: TAdvSmoothButton;
    btnCancel: TAdvSmoothButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label2: TLabel;
    DBEdit4: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    DBAdvOfficeCheckBox3: TDBAdvOfficeCheckBox;
    DBAdvOfficeCheckBox4: TDBAdvOfficeCheckBox;
    DBAdvOfficeCheckBox5: TDBAdvOfficeCheckBox;
    DBAdvOfficeCheckBox2: TDBAdvOfficeCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    Latitude, Longitude: Double;
  public
    { Public declarations }
  end;

var
  frmSystemSettings: TfrmSystemSettings;

implementation

{$R *.dfm}

procedure TfrmSystemSettings.btnCancelClick(Sender: TObject);
begin
    DataModule1.tblSettings.Cancel;
    ModalResult := mrCancel;
end;

procedure TfrmSystemSettings.btnSaveClick(Sender: TObject);
begin
    DataModule1.tblSettings.Post;
    DataModule1.tblSettings.SaveToFile(ExtractFilePath(Application.ExeName) + 'settings.json');
    if (Latitude <> DataModule1.tblSettings.FieldByName('Latitude').AsFloat) or
       (Longitude <> DataModule1.tblSettings.FieldByName('Longitude').AsFloat) then begin
        ModalResult := mrOK;
    end else begin
        ModalResult := mrYes;
    end;
end;

procedure TfrmSystemSettings.DBEdit1Change(Sender: TObject);
begin
    btnSave.Enabled := True;
end;

procedure TfrmSystemSettings.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
    if (Key = '.') and (FormatSettings.DecimalSeparator <> '.') then begin
        Key := FormatSettings.DecimalSeparator;
    end;
end;

procedure TfrmSystemSettings.FormCreate(Sender: TObject);
begin
    Latitude := DataModule1.tblSettings.FieldByName('Latitude').AsFloat;
    Longitude := DataModule1.tblSettings.FieldByName('Longitude').AsFloat;
    DataModule1.tblSettings.Edit;
end;

procedure TfrmSystemSettings.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if FormatSettings.DecimalSeparator <> '.' then begin
        if Key = '.' then begin
            Key := FormatSettings.DecimalSeparator;
        end;
    end;
end;

end.