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

V3.1D

Browse Source
This commit is contained in:
f1iwq2
2021-08-06 17:49:32 +02:00
parent 4807d9af22
commit 173d5bb84e
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
UnitPrinc.dcu
View File

Binary file not shown.

8
UnitPrinc.pas
View File

@@ -5818,8 +5818,8 @@ var s: string;
prov,i,index : integer; prov,i,index : integer;
begin begin
// vérifier que l'évènement accessoire vient bien d'un aiguillage et pas d'un feu qu'on pilote (et que cdm renvoie) // vérifier que l'évènement accessoire vient bien d'un aiguillage et pas d'un feu qu'on pilote (et que cdm renvoie)
index:=index_aig(adresse); index:=index_aig(adresse);
if index>MaxAiguillage then exit; // non ce n'est pas un aiguillage, on sort if index=0 then exit; // non ce n'est pas un aiguillage, on sort
// si l'aiguillage est inversé dans CDM et qu'on est en mode autonome, inverser sa position // si l'aiguillage est inversé dans CDM et qu'on est en mode autonome, inverser sa position
inv:=false; inv:=false;
@@ -6630,7 +6630,7 @@ begin
Srvc_sig:=false; Srvc_sig:=false;
config_modifie:=false; config_modifie:=false;
AF:='Client TCP-IP CDM Rail ou USB - système XpressNet - Version '+Version; AF:='Client TCP-IP CDM Rail ou USB - système XpressNet - Version '+Version+sousVersion;
Caption:=AF; Caption:=AF;
Application.onHint:=doHint; Application.onHint:=doHint;
@@ -8015,7 +8015,7 @@ end;
procedure TFormPrinc.Apropos1Click(Sender: TObject); procedure TFormPrinc.Apropos1Click(Sender: TObject);
begin begin
Affiche(' ',clyellow); Affiche(' ',clyellow);
Affiche('Signaux complexes GL version '+version+' (C) 2020 F1IWQ Gily TDR',clWhite); Affiche('Signaux complexes GL version '+version+sousVersion+' (C) 2020 F1IWQ Gily TDR',clWhite);
Affiche('http://cdmrail.free.fr/ForumCDR/viewtopic.php?f=77&t=3906',clWhite); Affiche('http://cdmrail.free.fr/ForumCDR/viewtopic.php?f=77&t=3906',clWhite);
Affiche('https://github.com/f1iwq2/Signaux_complexes_GL',clWhite); Affiche('https://github.com/f1iwq2/Signaux_complexes_GL',clWhite);
Affiche(' ',clyellow); Affiche(' ',clyellow);