ufrmoption.pas

来自「a voice guide client ,it is the second p」· PAS 代码 · 共 91 行

unit uFrmOption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TfrmOption = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    leDataSvrHost: TLabeledEdit;
    leDataSvrPort: TLabeledEdit;
    Image1: TImage;
    leGpsSvrHost: TLabeledEdit;
    leGpsSvrPort: TLabeledEdit;
    cbGpsOnLine: TCheckBox;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetData;
    procedure SetData;
  public
    { Public declarations }
    function Execute: Boolean;
  end;

  function ShowOption: Boolean;

var
  frmOption: TfrmOption;

implementation

uses uPubFun, uGPSClientLanguage;

{$R *.dfm}

function ShowOption: Boolean;
begin
  if not Assigned(frmOption) then
    frmOption:= TfrmOption.Create(nil);

  GPSClientLanguageUtils.TranslateLanguage(frmOption);

  Result:= frmOption.Execute;
end;

{ TfrmOption }

function TfrmOption.Execute: Boolean;
begin
  GetData;
  Result:= ShowModal= mrOk;
  if Result then begin
    SetData;
    WriteIni;
  end;
end;

procedure TfrmOption.GetData;
begin
  leDataSvrHost.Text:= gDataHost;
  leDataSvrPort.Text:= IntToStr(gDataPort);
  leGpsSvrHost.Text:= gMtscHost;
  leGpsSvrPort.Text:= IntToStr(gMtscPort);
  cbGpsOnLine.Checked:= not gGpsOnLine;
end;

procedure TfrmOption.SetData;
begin
  gDataHost:= leDataSvrHost.Text;
  gDataPort:= StrToInt(leDataSvrPort.Text);
  gMtscHost:= leGpsSvrHost.Text;
  gMtscPort:= StrToInt(leGpsSvrPort.Text);
  gGpsOnLine:= not cbGpsOnLine.Checked;
end;

procedure TfrmOption.BitBtn2Click(Sender: TObject);
begin
  SetData;
  WriteIni;
end;

end.