AlarmeJT Code

{********************************************************************************
***                               AlarmeJT                                    ***
***    AlarmeJT is designed to work with exellent WSJT -X Joe Taylor, K1JT    ***
***    running on JT65A modes and JT9.                                        ***
***    -------------------------------------------------------------------    ***
***    version : 0.6 UDP beta                                                 ***
***    -------------------------------------------------------------------    ***
***    Copyright 2015 Alain Thébault (F5JMH)                                  ***
***                                                                           ***
***    This file is part of AlarmeJT.                                         ***
***                                                                           ***
***    AlarmeJT is free software: you can redistribute it and/or modify       ***
***    it under the terms of the GNU General Public License as published by   ***
***    the Free Software Foundation, either version 2.0 of the License, or    ***
***    any later version.                                                     ***
***                                                                           ***
***    AlarmeJT is distributed in the hope that it will be useful,            ***
***    but WITHOUT ANY WARRANTY; without even the implied warranty of         ***
***    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          ***
***    GNU General Public License for more details.                           ***
***                                                                           ***
***    You should have received a copy of the GNU General Public License      ***
***    along with AlarmeJT.  If not, see <http://www.gnu.org/licenses/>.      ***
***                                                                           ***
***    -------------------------------------------------------------------    ***
********************************************************************************}

unit unewqso;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DbCtrls,
  StdCtrls, ufonction, Inifiles, ulog;

type

  { Tnewqso }

  Tnewqso = class(TForm)
    BCancel: TButton;
    BValid: TButton;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBEcall: TDBEdit;
    DBEdate: TDBEdit;
    DBEbande: TDBEdit;
    DBEdxcc: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEmode: TDBEdit;
    DBEitu: TDBEdit;
    DBElocator: TDBEdit;
    DBErstsent: TDBEdit;
    DBErstrcvd: TDBEdit;
    DBEheuredeb: TDBEdit;
    DBEheurefin: TDBEdit;
    DBEfreq: TDBEdit;
    DBNavigator1: TDBNavigator;
    LItu: TLabel;
    LCqz: TLabel;
    LCont: TLabel;
    LRegion: TLabel;
    LCountry: TLabel;
    LDxcc: TLabel;
    LLocator: TLabel;
    LRstr: TLabel;
    LRsts: TLabel;
    LMode: TLabel;
    LFreq: TLabel;
    LBande: TLabel;
    LTimeOff: TLabel;
    LTimeOn: TLabel;
    LCall: TLabel;
    LDate: TLabel;
    procedure BCancelClick(Sender: TObject);
    procedure BValidClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  newqso: Tnewqso;

implementation

{$R *.lfm}

{ Tnewqso }

procedure Tnewqso.BValidClick(Sender: TObject);
begin
   DBNavigator1.BtnClick(nbPost);
   log.BLogEntierClick(self);
   Close;
end;

procedure Tnewqso.BCancelClick(Sender: TObject);
begin
     DBNavigator1.BtnClick(nbCancel);
     close;
end;

procedure Tnewqso.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
   WritePositionFenetre(Self, 'NewQSO','AFenNewQSO');
   newqso:=nil;
   newqso.Free;
end;

procedure Tnewqso.FormCreate(Sender: TObject);
begin
   ReadPositionFenetre(self, 'NewQSO','AFenNewQSO');

   FConfigLang := TIniFile.Create(ExtractFilePath(Application.ExeName)+'lang/'+langue()+'/lang.jmh');
   BValid.Caption:=FConfigLang.ReadString('Generale', 'BValid', '');
   Caption:=FConfigLang.ReadString('NewQSO', 'FenCap', '');
   LCall.Caption:=FConfigLang.ReadString('NewQso', 'LCall', '');
   LDate.Caption:=FConfigLang.ReadString('NewQSO', 'LDate', '');
   LTimeON.Caption:=FConfigLang.ReadString('NewQSO', 'LTimeOn', '');
   LTimeOff.Caption:=FConfig.ReadString('NewQSO', 'LTimeOff', '');
   LFreq.Caption:=FConfig.ReadString('NewQSO', 'LFreq', '');
   LMode.Caption:=FConfig.ReadString('NewQSO', 'LMode', '');
   LBande.Caption:=FConfig.ReadString('NewQSO', 'LBande', '');
   LRsts.Caption:=FConfig.ReadString('NewQSO', 'LRsts', '');
   LRstr.Caption:=FConfig.ReadString('NewQSO', 'LRstr', '');
   LLocator.Caption:=FConfig.ReadString('NewQSO', 'LLocator', '');
   LDxcc.Caption:=FConfig.ReadString('NewQSO', 'LDxcc', '');
   LCountry.Caption:=FConfig.ReadString('NewQSO', 'LCountry', '');
   LRegion.Caption:=FConfig.ReadString('NewQSO', 'LRegion', '');
   LCont.Caption:=FConfig.ReadString('NewQSO', 'LCont', '');
   LItu.Caption:=FConfig.ReadString('NewQSO', 'LItu', '');
   LCqz.Caption:=FConfig.ReadString('NewQSO', 'LCqz', '');
   FConfigLang.Free;
end;

procedure Tnewqso.FormShow(Sender: TObject);
begin
  DBNavigator1.BtnClick(nbInsert);
end;

end.