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

V3.1 B

Browse Source
This commit is contained in:
f1iwq2
2021-08-05 11:48:19 +02:00
parent ba7be100e6
commit ed7a721910
15 changed files with 789 additions and 544 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UnitTCO.pas
View File

@@ -2328,14 +2328,11 @@ begin
AdrSuiv:=BrancheN[IndexMax,i+1].Adresse;
index:=Index_aig(adresse);
// connecté sur position droite : la pointe est à gauche
if aiguillage[Index].Adroit=AdrSuiv then
Bimage:=3; // ou 4
if aiguillage[Index].Adroit=AdrSuiv then Bimage:=3; // ou 4
// connecté sur position déviée : la pointe est à gauche, mais il faut changer de ligne
if aiguillage[Index].Adevie=AdrSuiv then
Bimage:=4; // ou 4
if aiguillage[Index].Adevie=AdrSuiv then Bimage:=4; // ou 4
// connecté sur pointe : la pointe est à droite
if aiguillage[Index].Apointe=AdrSuiv then
Bimage:=5; // ou 2
if aiguillage[Index].Apointe=AdrSuiv then Bimage:=5; // ou 2
TCO[i,ligne].BImage:=Bimage;
end;