V3.81

2022-03-06 16:34:25 +01:00
parent cd013d1173
commit 4cc0ffd7ea
20 changed files with 1243 additions and 532 deletions
--- a/Unit_Pilote_aig.pas
+++ b/Unit_Pilote_aig.pas
@@ -0,0 +1,130 @@
+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);
+      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.