diff --git a/Signaux_complexes_GL.exe b/Signaux_complexes_GL.exe index 957e025..478df5f 100644 Binary files a/Signaux_complexes_GL.exe and b/Signaux_complexes_GL.exe differ diff --git a/UnitPrinc.dcu b/UnitPrinc.dcu index 804e9d7..ab0600c 100644 Binary files a/UnitPrinc.dcu and b/UnitPrinc.dcu differ diff --git a/UnitPrinc.pas b/UnitPrinc.pas index ed2e300..a47bb84 100644 --- a/UnitPrinc.pas +++ b/UnitPrinc.pas @@ -533,7 +533,7 @@ begin Parent:=Formprinc.ScrollBox1; // dire que l'image est dans la scrollBox1 Top:=(HtImg+espY+20)*((rang-1) div NbreImagePLigne); // détermine les dimensions Left:=10+ (LargImg+5)*((rang-1) mod (NbreImagePLigne)); - s:='Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+ + s:='Signal @'+IntToSTR(Feux[rang].adresse)+' Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+ ' Adresse élement suivant='+intToSTR(feux[rang].Adr_el_suiv1); if feux[rang].Btype_suiv1=2 then s:=s+' (aig)'; if feux[rang].Btype_suiv1=5 then s:=s+' (aig bis)'; @@ -975,6 +975,7 @@ procedure envoi_directionCDF(adr : integer;code : integer); begin if (EtatSignalCplx[adr]<>code) then begin + dessine_feu(adr); if traceSign then Affiche('signal directionnel CDF: '+IntToSTR(adr)+' '+intToSTR(code),ClOrange); case code of @@ -1016,6 +1017,7 @@ begin code:=feux[index].aspect; // aspect du feu; if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(code); if traceSign then affiche('Signal CDF: '+intToSTR(adresse)+' '+intToSTR(code),clOrange); @@ -1058,6 +1060,7 @@ begin if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adr); ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr]; codebin:=EtatSignalCplx[adr]; aspect:=code_to_aspect(codebin); @@ -1099,7 +1102,6 @@ begin if ((Combine=rappel_60) and (aspect=jaune)) then envoi5_LEB($10); if ((Combine=rappel_60) and (aspect=jaune_cli)) then envoi5_LEB($11); if ((Combine=ral_60) and (aspect=jaune_cli)) then envoi5_LEB($12); - dessine_feu(adr); end; end; @@ -1178,6 +1180,7 @@ begin if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE)) begin ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr]; + dessine_feu(adr); //if (tempo_ACC>0) then sleep(100); // les commandes entre 2 feux successives doivent être séparées au minimum de 100 ms if traceSign then affiche('Signal LDT: '+IntToSTR(adr)+' '+intToSTR(mode)+' '+intTOSTR(codebin),clOrange); if (aspect=semaphore) or (aspect=vert) or (aspect=carre) or (aspect=jaune) then mode:=1 else mode:=2; @@ -1223,6 +1226,7 @@ begin code:=etatsignalcplx[adresse]; if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(code); // transforme le motif de bits en numéro "code des aspects des signaux" if (tracesign) then Affiche('Signal virtuel: '+intToSTR(adresse)+' Etat '+etatSign[aspect],clyellow); @@ -1246,10 +1250,10 @@ begin // affiche(s,ClYellow); if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); codebin:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(codebin); // transforme le motifs de bits en numéro "code des aspects des signaux" combineLoc:=combine; // copier dans variable locale - //dessine_feu(adresse); if traceSign then begin s:='Signal bahn: ad'+IntToSTR(adresse)+'='+etatSign[aspect]; @@ -1275,7 +1279,6 @@ begin begin Sleep(40); pilote_acc(adresse+semaphore,2,feu) ; - // dessine_feu(adresse); end; ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; @@ -1291,7 +1294,6 @@ begin sleep(40); pilote_ACC(adresse+CombineLoc,2,feu) ; end; - dessine_feu(adresse); end; end; diff --git a/UnitPrinc.~pas b/UnitPrinc.~pas index f037837..12817f6 100644 --- a/UnitPrinc.~pas +++ b/UnitPrinc.~pas @@ -533,7 +533,7 @@ begin Parent:=Formprinc.ScrollBox1; // dire que l'image est dans la scrollBox1 Top:=(HtImg+espY+20)*((rang-1) div NbreImagePLigne); // détermine les dimensions Left:=10+ (LargImg+5)*((rang-1) mod (NbreImagePLigne)); - s:='Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+ + s:='Feu @'+IntToSTR(Feux[rang].adresse+' Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+ ' Adresse élement suivant='+intToSTR(feux[rang].Adr_el_suiv1); if feux[rang].Btype_suiv1=2 then s:=s+' (aig)'; if feux[rang].Btype_suiv1=5 then s:=s+' (aig bis)'; @@ -975,6 +975,7 @@ procedure envoi_directionCDF(adr : integer;code : integer); begin if (EtatSignalCplx[adr]<>code) then begin + dessine_feu(adr); if traceSign then Affiche('signal directionnel CDF: '+IntToSTR(adr)+' '+intToSTR(code),ClOrange); case code of @@ -1016,6 +1017,7 @@ begin code:=feux[index].aspect; // aspect du feu; if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(code); if traceSign then affiche('Signal CDF: '+intToSTR(adresse)+' '+intToSTR(code),clOrange); @@ -1058,6 +1060,7 @@ begin if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adr); ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr]; codebin:=EtatSignalCplx[adr]; aspect:=code_to_aspect(codebin); @@ -1099,7 +1102,6 @@ begin if ((Combine=rappel_60) and (aspect=jaune)) then envoi5_LEB($10); if ((Combine=rappel_60) and (aspect=jaune_cli)) then envoi5_LEB($11); if ((Combine=ral_60) and (aspect=jaune_cli)) then envoi5_LEB($12); - dessine_feu(adr); end; end; @@ -1178,6 +1180,7 @@ begin if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE)) begin ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr]; + dessine_feu(adr); //if (tempo_ACC>0) then sleep(100); // les commandes entre 2 feux successives doivent être séparées au minimum de 100 ms if traceSign then affiche('Signal LDT: '+IntToSTR(adr)+' '+intToSTR(mode)+' '+intTOSTR(codebin),clOrange); if (aspect=semaphore) or (aspect=vert) or (aspect=carre) or (aspect=jaune) then mode:=1 else mode:=2; @@ -1223,6 +1226,7 @@ begin code:=etatsignalcplx[adresse]; if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(code); // transforme le motif de bits en numéro "code des aspects des signaux" if (tracesign) then Affiche('Signal virtuel: '+intToSTR(adresse)+' Etat '+etatSign[aspect],clyellow); @@ -1246,10 +1250,10 @@ begin // affiche(s,ClYellow); if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE)) begin + dessine_feu(adresse); codebin:=EtatSignalCplx[adresse]; aspect:=code_to_aspect(codebin); // transforme le motifs de bits en numéro "code des aspects des signaux" combineLoc:=combine; // copier dans variable locale - //dessine_feu(adresse); if traceSign then begin s:='Signal bahn: ad'+IntToSTR(adresse)+'='+etatSign[aspect]; @@ -1275,7 +1279,6 @@ begin begin Sleep(40); pilote_acc(adresse+semaphore,2,feu) ; - // dessine_feu(adresse); end; ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse]; @@ -1291,7 +1294,6 @@ begin sleep(40); pilote_ACC(adresse+CombineLoc,2,feu) ; end; - dessine_feu(adresse); end; end; @@ -5178,7 +5180,7 @@ begin s:='Erreur '+IntToSTR(ErrorCode)+' socket IP Lenz'; case ErrorCode of 10053 : s:=s+': Connexion avortée - Timeout'; - 10054 : s:=s+': Connexion avortée par paire'; + 10054 : s:=s+': Connexion avortée par tiers'; 10060 : s:=s+': Timeout'; 10061 : s:=s+': Connexion refusée'; 10065 : s:=s+': Port non connecté'; @@ -5197,7 +5199,7 @@ begin s:='Erreur '+IntToSTR(ErrorCode)+' socket IP CDM Rail'; case ErrorCode of 10053 : s:=s+': Connexion avortée - Timeout'; - 10054 : s:=s+': Connexion avortée par paire'; + 10054 : s:=s+': Connexion avortée par tiers'; 10060 : s:=s+': Timeout'; 10061 : s:=s+': Connexion refusée'; 10065 : s:=s+': Port non connecté'; @@ -5243,7 +5245,7 @@ end; procedure TFormPrinc.ButtonInfoClick(Sender: TObject); begin - Affiche('Ce programme pilote des signaux complexes de façon autonome ',ClYellow); + Affiche('Ce programme pilote des signaux complexes de façon autonome ou avec CDM rail ',ClYellow); Affiche('En fonction des détecteurs mis à 1 ou 0 par des locomotives',ClYellow); Affiche('en circulation sur le réseau',ClYellow); Affiche('Il est nécessaire de renseigner le fichier config.cfg',ClOrange); diff --git a/2feux.bmp b/signaux/2feux.bmp similarity index 100% rename from 2feux.bmp rename to signaux/2feux.bmp diff --git a/3feux.bmp b/signaux/3feux.bmp similarity index 100% rename from 3feux.bmp rename to signaux/3feux.bmp diff --git a/4feux.bmp b/signaux/4feux.bmp similarity index 100% rename from 4feux.bmp rename to signaux/4feux.bmp diff --git a/5feux.bmp b/signaux/5feux.bmp similarity index 100% rename from 5feux.bmp rename to signaux/5feux.bmp diff --git a/7feux.bmp b/signaux/7feux.bmp similarity index 100% rename from 7feux.bmp rename to signaux/7feux.bmp diff --git a/9feux.bmp b/signaux/9feux.bmp similarity index 100% rename from 9feux.bmp rename to signaux/9feux.bmp