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

V1.11

Browse Source
This commit is contained in:
f1iwq2
2020-01-29 16:17:26 +01:00
parent 5dd476e10a
commit 27e0df602e
12 changed files with 72 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UnitPrinc.pas
View File

@@ -4672,11 +4672,12 @@ end;
if not(trouve) then inc(i);
until trouve or (i>1024);
if trouve then Test_mem_origine:=i else Test_mem_origine:=0;
end;
end;
// mise à jour de l'état d'un feu en fontion de son environnement et affiche le feu
procedure Maj_Feu(Adrfeu : integer);
var i,j,k1,k2,BtypeSuiv,Adr_det,etat,Adr,Aig,DetPrec1,DetPrec2,Detprec3,Detprec4,Adr_El_Suiv,
procedure Maj_Feu(Adrfeu : integer);
var i,j,k1,k2,BtypeSuiv,Adr_det,etat,Adr,Aig,DetPrec1,DetPrec2,Detprec3,Detprec4,Adr_El_Suiv,
Btype_el_suivant,det_initial,bt,el_suiv,modele : integer ;
bisSuiv,PresTrain,Aff_semaphore,car : boolean;
s : string;
begin
@@ -4845,7 +4846,6 @@ begin
if TestBit(etat,jaune) then Maj_Etat_Signal(AdrFeu,jaune_cli)
else Maj_Etat_Signal(AdrFeu,vert)
end;
end;
end;
end;
end;