easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V8.0

Browse Source
This commit is contained in:
f1iwq2
2023-09-09 16:09:49 +02:00
parent 79e9771a3e
commit 4d427e81ff
21 changed files with 5694 additions and 3747 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Unit_Pilote_aig.pas
View File

@@ -92,7 +92,8 @@ end;
procedure TFormAig.ButtonDevClick(Sender: TObject);
var s : string;
begin
efface_entoure;SelectionAffichee:=false;
efface_entoure(indexTCOCourant);
SelectionAffichee[indexTCOCourant]:=false;
pilote_acc(aiguille,const_devie,aigP);
s:='accessoire '+IntToSTR(aiguille)+' dévié';
Affiche(s,clyellow);
@@ -102,7 +103,8 @@ end;
procedure TFormAig.ButtonDroitClick(Sender: TObject);
var s : string;
begin
efface_entoure;SelectionAffichee:=false;
efface_entoure(indexTCOcourant);
SelectionAffichee[indexTCOcourant]:=false;
pilote_acc(aiguille,const_droit,aigP);
s:='accessoire '+IntToSTR(aiguille)+' droit';
Affiche(s,clyellow);
@@ -112,7 +114,8 @@ end;
procedure TFormAig.ButtonDev2Click(Sender: TObject);
var s : string;
begin
efface_entoure;SelectionAffichee:=false;
efface_entoure(indexTCOcourant);
SelectionAffichee[indexTCOcourant]:=false;
pilote_acc(aiguille2,const_devie,aigP);
s:='accessoire '+IntToSTR(aiguille2)+' dévié';
Affiche(s,clyellow);
@@ -121,8 +124,10 @@ end;
procedure TFormAig.ButtonDroit2Click(Sender: TObject);
var s : string;
index : integer;
begin
efface_entoure;SelectionAffichee:=false;
efface_entoure(indexTCOCOurant);
SelectionAffichee[indexTCOcourant]:=false;
pilote_acc(aiguille2,const_droit,aigP);
s:='accessoire '+IntToSTR(aiguille2)+' droit';
Affiche(s,clyellow);