AlarmeJT Code

{********************************************************************************
***                               AlarmeJT                                    ***
***    AlarmeJT is designed to work with exellent WSJT -X Joe Taylor, K1JT    ***
***    running on JT65A, JT9 and FT8 modes.                                   ***
***    -------------------------------------------------------------------    ***
***    version : 0.8 UDP beta                                                 ***
***    -------------------------------------------------------------------    ***
***    Copyright 2017 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 urechindic;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ufonction, IniFiles;

type

  { TFRechIndic }

  TFRechIndic = class(TForm)
    BRecherche: TButton;
    ERechIndic: TEdit;
    procedure BRechercheClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FRechIndic: TFRechIndic;
  FConfigLang: TIniFile;

implementation

{$R *.lfm}

{ TFRechIndic }

procedure TFRechIndic.BRechercheClick(Sender: TObject);
begin
   RechSimple('CALL',ERechIndic.Text);
   close;
end;

procedure TFRechIndic.FormActivate(Sender: TObject);
begin
  ERechIndic.Text:='';
end;

procedure TFRechIndic.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  WritePositionFenetre(self, 'RechIndic', 'AFenRechIndic');
  FRechIndic:=nil;
  FRechIndic.Free;
end;

procedure TFRechIndic.FormCreate(Sender: TObject);
begin
  ReadPositionFenetre(self, 'RechIndic', 'AFenRechIndic');

  FConfigLang := TIniFile.Create(ExtractFilePath(Application.ExeName)+'lang/'+langue()+'/lang.jmh');
     Caption:=FConfigLang.ReadString('RechIndic', 'FenCap', '');
     BRecherche.Caption:=FConfigLang.ReadString('RechIndic', 'BRecherche', '');
  FConfigLang.Free;
end;

end.