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

V2.0

Browse Source
This commit is contained in:
f1iwq2
2020-10-11 11:40:24 +02:00
parent 933f55330f
commit 1e91ee0126
21 changed files with 2917 additions and 1362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
UnitTCO.pas
View File

@@ -2366,7 +2366,7 @@ begin
if aiguillage[adresse].Adevie=AdrSuiv then
Bimage:=4; // ou 4
// connecté sur pointe : la pointe est à droite
if aiguillage[adresse].Apointe=AdrSuiv then
if aiguillage[adresse].Apointe=AdrSuiv then
Bimage:=5; // ou 2
TCO[i,ligne].BImage:=Bimage;
end;
@@ -2890,9 +2890,9 @@ begin
// tjd ou tjs
if adresse<>0 then
begin
pos:=aiguillage[adresse].position;
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then
//pos:=aiguillage[adresse].position;
//pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then
begin
inc(x);
end;
@@ -2921,8 +2921,8 @@ begin
if adresse<>0 then
begin
pos:=aiguillage[adresse].position;
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then
//pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then
begin
inc(x);inc(y);
end;