unit Unit_Pilote_aig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UnitPrinc, UnitTCO;

type
  TFormAig = class(TForm)
    ButtonOK: TButton;
    Label1: TLabel;
    ButtonDev: TButton;
    ButtonDroit: TButton;
    ButtonDev2: TButton;
    ButtonDroit2: TButton;
    LabelAdr1: TLabel;
    LabelAdr2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ButtonDevClick(Sender: TObject);
    procedure ButtonDroitClick(Sender: TObject);
    procedure ButtonDev2Click(Sender: TObject);
    procedure ButtonDroit2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FormAig: TFormAig;
  aiguille,aiguille2 : integer;
  tjdC,aigC : boolean;
implementation

{$R *.dfm}

procedure commande_simple;
begin
  with formAig do
  begin
    LabelAdr2.Visible:=false;
    LabelAdr1.Visible:=false;
    ButtonDev2.Visible:=false;
    ButtonDroit2.Visible:=false;
    ButtonOk.Visible:=false;
    ButtonDev.Left:=48;
    ButtonDroit.Left:=216;
  end;
end;

procedure TFormAig.FormActivate(Sender: TObject);
var i : integer;
    s : string;
begin
  i:=Index_aig(Aiguille);
  aigC:=(aiguillage[i].modele=aig);
  tjdC:=(aiguillage[i].modele=tjd) or (aiguillage[i].modele=tjs);
  if aigC then
  begin
    s:='Pilotage de l''aiguillage '+intToSTR(aiguille);
    commande_simple;
  end;
  if tjdC then
  begin
    s:='Pilotage de la TJD '+intToSTR(aiguille);

    if aiguillage[i].EtatTJD=4 then
    begin
      LabelAdr1.Caption:='Adresse1: '+intToSTR(aiguille);
      aiguille2:=aiguillage[i].DDevie;
      LabelAdr2.Caption:='Adresse2: '+intToSTR(aiguille2);
      s:=s+'/'+intToSTR(aiguille2);
      LabelAdr2.Visible:=true;
      LabelAdr1.Visible:=true;
      ButtonDev2.Visible:=true;
      ButtonOk.Visible:=true;
      ButtonDroit2.Visible:=true;
      ButtonDev.Left:=8;
      ButtonDroit.Left:=88;
    end;
  end;
  if aiguillage[i].EtatTJD=2 then
  begin
    commande_simple;
  end;

  Label1.Caption:=s;
end;

procedure TFormAig.ButtonDevClick(Sender: TObject);
var s : string;
begin
  efface_entoure;SelectionAffichee:=false;
  pilote_acc(aiguille,const_devie,aigP);
  s:='accessoire '+IntToSTR(aiguille)+' dévié';
  Affiche(s,clyellow);
  if AigC then close;
end;

procedure TFormAig.ButtonDroitClick(Sender: TObject);
var s : string;
begin
  efface_entoure;SelectionAffichee:=false;
  pilote_acc(aiguille,const_droit,aigP);
  s:='accessoire '+IntToSTR(aiguille)+' droit';
  Affiche(s,clyellow);
  if AigC then close;
end;

procedure TFormAig.ButtonDev2Click(Sender: TObject);
var s : string;
begin
  efface_entoure;SelectionAffichee:=false;
  pilote_acc(aiguille2,const_devie,aigP);
  s:='accessoire '+IntToSTR(aiguille2)+' dévié';
  Affiche(s,clyellow);
  if AigC then close;
end;

procedure TFormAig.ButtonDroit2Click(Sender: TObject);
var s : string;
begin
  efface_entoure;SelectionAffichee:=false;
  pilote_acc(aiguille2,const_droit,aigP);
  s:='accessoire '+IntToSTR(aiguille2)+' droit';
  Affiche(s,clyellow);
  if AigC then close;
end;

end.