V3.83

ConfigGenerale.cfg

@@ -1,6 +1,6 @@
 /******************************************
-/ fichier de configuration de ConfigGenerale.log
-/ Gily - 2022
+/ fichier de configuration 
+/ gily - f1iwq - 2018
 /******************************************
 / ce programme permet de commander les signaux complexes avec ou sans
 / CDM rail. Il a trois modes de fonctionnement:
@@ -18,7 +18,7 @@
 /
 /
 / Taille de la fonte de la fenêtre
-Fonte=16
+Fonte=10
 /
 / Adresse IP V4 du PC sur lequel s'execute CDM : port
 IpV4_PC=127.0.0.1:9999
@@ -38,10 +38,12 @@ IPV4_INTERFACE=192.168.1.23:5550
 / Com:vitesse,parité,nombre de bits,bits de stop,protocole: 0=aucun 1=Xon-Xoff 2=RTS-CTS 3=RTS-Xon-Xoff 4=CTS
 / voir notice page 29
 /
-PROTOCOLE_SERIE=COM3:57600,N,8,1,2
+PROTOCOLE_SERIE=COM9:57600,N,8,1,2
+/COM8:9600,N,8,1,0
 /
 / Temporisation en ms d'envoi entre deux octets de la trame
 INTER_CAR=50
+/
 / Temporisation maximale de contrôle après non réponse de l'interface, en tranches de 100ms
 / à adapter en fonction de l'interface. Ex 7=700ms d'attente maxi
 Tempo_maxi=7
@@ -53,27 +55,31 @@ Tempo_maxi=7
 Entete=1
 / ===============================================================================
 /
-/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage
+/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage selon le tableau ci après
 Init_Aig=1
 /Temporisation entre aiguillages en ms à l'initialisation en mode autonome
 Tempo_Aig=100
 /
-/ Fenêtre d'exécution en plein écran (1) ou réduite (0)
+/ Temporisation entre deux commandes aux décodeurs de feux en ms
 Fenetre=0
 /
-/ Nombre de détecteurs considérés comme trop distants dans la recherche d'un détecteur "suivant"
+/ Fenêtre d'exécution en plein écran (1) ou réduite (0)
 nb_det_dist=3
 /
+/ Nombre de détecteurs considérés comme trop distants dans la recherche d'un détecteur "suivant"
+verif_version=0
+/
 / Vérification des versions au démarrage
-verif_version=1
-/ Notification de nouvelle version
 NOTIF_VERSION=0
+/ Notification de nouvelle version
+TCO=1
 / Avec TCO
-TCO=0
-/ Lancement de CDM Rail au démarrage
 CDM=0
-/ Nom du fichier LAY à ouvrir depuis CDM sans caractères spéciaux ( : / )
+/ Lancement de CDM Rail au démarrage
 Lay=RESEAU_GILY_SIGNAL_AJOUTE.LAY
+/ Nom du fichier LAY à ouvrir depuis CDM sans caractères spéciaux ( : / )
+/reseau_gily_signal_ajoute.lay
+Serveur_interface=1
 /
 / Démarrage du serveur d'interface automatique
 / 0=ne pas démarrer automatiquement le serveur d'interfaces
@@ -85,7 +91,7 @@ Lay=RESEAU_GILY_SIGNAL_AJOUTE.LAY
 / 6=FIS88 FeedBack (S88/S88N)
 / 7=RS2PC (Rs FeedBack interface)
 / 8=DCC++
-Serveur_interface=1
+retro=1
 /
 / Interface de rétrosignalisation pour LENZ/DCC++
 / 1=auto
@@ -94,8 +100,7 @@ Serveur_interface=1
 / 4=LI-100F
 / 5=LI-100
 / 6=GENLI
-retro=1
-RazSignaux=1
+RazSignaux=0
 Tempo_Feu=100
 Alg_Unisemaf=1
 [section_aig]
@@ -116,7 +121,7 @@ Alg_Unisemaf=1
 19,P10P,D22P,S531,V0,I0,INIT(9,5)
 20,P520,D21P,S12D,V0,I0,INIT(9,5)
 21,P20D,D28D,S28D,V0,I0,INIT(9,5)
-22,P19D,D537,S538,V0,I0,INIT(9,5)
+22,P19D,D537,S32P,V0,I0,INIT(9,5)
 23,P18D,D538,S534,V0,I0,INIT(9,5)
 24,P538,D32S,S533,V0,I0,INIT(9,5)
 25,P31S,D529,S27P,V0,I0,INIT(9,5)
@@ -125,7 +130,7 @@ Alg_Unisemaf=1
 28TJD,D(21D,26D),S(21S,26S),V0,I0,INIT(9,5),E4
 29,P10D,D513,S30S,V60,I0,INIT(9,5)
 30,P524,D11D,S29D,V0,I0,INIT(9,5)
-31,P534,D0,S25P,V60,I0,INIT(9,5)
+31,P534,D0,S25P,V0,I0,INIT(9,5)
 32,P22S,D0,S24D,V0,I0,INIT(9,5)
 0
 [section_branches]
@@ -142,7 +147,6 @@ A22,537,A27
 A22,A32,A24
 A6,516,0
 A31,0
-A32,0
 0
 [section_sig]
 176,7,0,1,(520,A20),1
@@ -150,7 +154,7 @@ A32,0
 204,9,0,1,(527,A7),1
 218,7,0,1,(525,A17),0
 232,2,1,1,(516,A6),0
-260,9,1,1,(518,A1),0
+260,9,1,1,(518,A1),1
 274,3,0,1,(524,521),0
 288,7,0,1,(522,A8),1
 302,9,0,1,(526,A9),1
@@ -167,14 +171,14 @@ A32,0
 476,9,0,1,(538,A23),1
 497,9,0,4,(531,A19),1
 600,7,0,0,(521,A8),1
-1000,9,0,0,(530,A26),0
-1001,9,0,0,(529,A26),0
-1002,9,0,0,(534,A31),0
+1000,9,0,0,(530,A26),1
+1001,9,0,0,(529,A26),1,(A21S,A6D)
 0
 [section_act]
-815,1,CC406526,F2,400,CC406526
-813,1,CC406526,A613,2,Z
-830,1,ZZ406526,A613,2,Z
-(815,830),(820,840),PN(121+,121-)
+815,1,CC,F2,0,TGV
+Mem[527,520],1,X,"KLAXON_2.WAV"
+830,1,ZZ406526,"C:\PROGRAM FILES (X86)\BORLAND\DELPHI7\PROJECTS\SIGNAUX_COMPLEXES_GL\TRN.WAV"
+815,1,TGV,F10,0,TGV
+(817,830),(820,840),PN(121+,121-)
 (850,851),PN(12+,12-)
 0

UnitConfig.dfm

@@ -1578,7 +1578,7 @@ object FormConfig: TFormConfig
     Top = 8
     Width = 633
     Height = 497
-    ActivePage = TabSheetAct
+    ActivePage = TabSheetAig
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlack
     Font.Height = -11
@@ -2873,12 +2873,25 @@ object FormConfig: TFormConfig
         end
         object LabelUni: TLabel
           Left = 8
-          Top = 160
-          Width = 75
+          Top = 184
+          Width = 72
           Height = 13
-          Caption = 'Spec Unisemaf:'
+          Caption = 'Spec Unisemaf'
           Visible = False
         end
+        object Label43: TLabel
+          Left = 40
+          Top = 160
+          Width = 38
+          Height = 16
+          Caption = 'Voies:'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clBlack
+          Font.Height = -13
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ParentFont = False
+        end
         object MemoCarre: TMemo
           Left = 8
           Top = 320
@@ -3015,7 +3028,7 @@ object FormConfig: TFormConfig
         end
         object EditSpecUni: TEdit
           Left = 8
-          Top = 176
+          Top = 200
           Width = 33
           Height = 21
           TabOrder = 14
@@ -3024,7 +3037,7 @@ object FormConfig: TFormConfig
         end
         object Buttonrestaure: TButton
           Left = 8
-          Top = 216
+          Top = 224
           Width = 75
           Height = 25
           Hint = 'Restaure la configuration du feu d'#39'avant sa modification'
@@ -3045,7 +3058,7 @@ object FormConfig: TFormConfig
         end
         object ButtonConfigSR: TButton
           Left = 8
-          Top = 248
+          Top = 256
           Width = 75
           Height = 25
           Caption = 'Configuration'
@@ -3459,7 +3472,7 @@ object FormConfig: TFormConfig
             Left = 8
             Top = 160
             Width = 209
-            Height = 96
+            Height = 113
             Caption = 'Action '
             TabOrder = 1
             object LabelTempo: TLabel
@@ -3494,10 +3507,10 @@ object FormConfig: TFormConfig
               Caption = 'Nom du fichier son:'
             end
             object SpeedButtonJoue: TSpeedButton
-              Left = 64
-              Top = 88
-              Width = 25
-              Height = 25
+              Left = 56
+              Top = 80
+              Width = 41
+              Height = 33
               Flat = True
               Glyph.Data = {
                 4E010000424D4E010000000000003E0000002800000022000000220000000100
@@ -3515,9 +3528,9 @@ object FormConfig: TFormConfig
             end
             object SpeedButtonCharger: TSpeedButton
               Left = 120
-              Top = 88
+              Top = 80
               Width = 25
-              Height = 26
+              Height = 34
               Flat = True
               Glyph.Data = {
                 BA060000424DBA06000000000000360400002800000019000000170000000100

UnitConfig.pas

@@ -251,6 +251,7 @@ type
     LabelNumBranche: TLabel;
     EditTrainDest: TEdit;
     Label42: TLabel;
+    Label43: TLabel;
     procedure ButtonAppliquerEtFermerClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -2474,25 +2475,25 @@ var AncAdresse,adresse,erreur : integer;
     s : string;
 begin
   s:=Uppercase(FormConfig.RichSig.Lines[lc]);   // ligne cliquée
-    if s='' then 
-    begin
-      RE_ColorLine(Formconfig.RichSig,ligneclicSig,ClAqua);
-      ligneclicSig:=-1;
-      exit;
-    end;  
+  if s='' then 
+  begin
+    RE_ColorLine(Formconfig.RichSig,ligneclicSig,ClAqua);
+    ligneclicSig:=-1;
+    exit;
+  end;  
     
-    Feu_Sauve:=feux[lc+1];  // sauvegarde
+  Feu_Sauve:=feux[lc+1];  // sauvegarde
 
-    AncLigneClicSig:=ligneclicSig;
-    ligneClicSig:=lc;
+  AncLigneClicSig:=ligneclicSig;
+  ligneClicSig:=lc;
 
-    // Mettre en rouge le signal modifié quand on clique sur un autre signal
-    if AncligneclicSig<>-1 then
-    begin
-      val(FormConfig.RichSig.Lines[AncLigneClicSig],AncAdresse,erreur);
-      if feux[ligneClicSig+1].modifie then RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClWhite) else
-      RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClAqua);
-    end;
+  // Mettre en rouge le signal modifié quand on clique sur un autre signal
+  if AncligneclicSig<>-1 then
+  begin
+    val(FormConfig.RichSig.Lines[AncLigneClicSig],AncAdresse,erreur);
+    if feux[ligneClicSig+1].modifie then RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClWhite) else
+    RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClAqua);
+  end;
 
   Val(s,Adresse,erreur);  // Adresse du signal
   if adresse=0 then exit;
@@ -3130,10 +3131,13 @@ begin
     7 : ComboBoxAsp.ItemIndex:=4;
     9 : ComboBoxAsp.ItemIndex:=5;
     else
-        ComboBoxAsp.ItemIndex:=d-10+4;
+      ComboBoxAsp.ItemIndex:=d-10+4;
     end; 
     
     if ((d=2) or (d>=5)) and (d<10) then checkBoxFB.Visible:=true else checkBoxFB.Visible:=false;
+
+    if (d>3) and (d<10) then CheckVerrouCarre.Visible:=true else CheckVerrouCarre.Visible:=false;
+    
     // signal normal
     if d<10 then
     begin     
@@ -3146,7 +3150,6 @@ begin
       EditDet1.Visible:=true;EditDet2.Visible:=true;EditDet3.Visible:=true;EditDet4.Visible:=true;
       EditSuiv1.Visible:=true;EditSuiv2.Visible:=true;EditSuiv3.Visible:=true;EditSuiv4.Visible:=true;
       Label24.Visible:=true; Label25.Visible:=true;Label26.Visible:=true;Label27.Visible:=true;
-      CheckVerrouCarre.Visible:=true;
       EditDet1.Text:=IntToSTR(feux[i].Adr_det1);
       EditSuiv1.Text:=TypeEl_To_char(feux[i].Btype_suiv1)+IntToSTR(feux[i].Adr_el_suiv1);
     
@@ -4579,7 +4582,7 @@ begin
   if affevt then affiche('Evt CheckRaz Change',clyellow);
   if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
   with Formconfig do
-  begin 
+  begin
     if radioButtonAccess.Checked then
     begin
       tablo_actionneur[ligneClicAct+1].raz:=CheckRAZ.checked;
@@ -4589,7 +4592,7 @@ begin
   end;
 end;
 
-procedure AdrSig;
+procedure TFormConfig.EditAdrSigChange(Sender: TObject);
 var s : string;
     i, erreur : integer;
 begin
@@ -4623,11 +4626,6 @@ begin
 end;
 
 
-procedure TFormConfig.EditAdrSigChange(Sender: TObject);
-begin
-  AdrSig;
-end;
-
 procedure TFormConfig.EditAdrAigChange(Sender: TObject);
   var s : string;
     i,vide,erreur,index,adr2 : integer;
@@ -4698,7 +4696,7 @@ begin
 end;
 
 procedure TFormConfig.ComboBoxAspChange(Sender: TObject);
-var i,index,aspect : integer;
+var x,y,i,index,aspect,adresseFeu : integer;
     s : string;
 begin
   if clicListe then exit;
@@ -4718,20 +4716,35 @@ begin
   if index<1 then exit;
   if NbreFeux<index then exit;
   //Affiche('Ligne cliquée='+IntToSTR(index),clyellow);
-  if ((aspect=2) or (aspect>=5)) and (aspect<10) then 
-    checkBoxFB.Visible:=true else 
+  if ((aspect=2) or (aspect>=5)) and (aspect<10) then
+    checkBoxFB.Visible:=true else
     begin
       checkBoxFB.Visible:=false;
       checkBoxFB.Checked:=false;
-    end;  
+    end;
+  if (aspect>3) and (aspect<10) then CheckVerrouCarre.Visible:=true else CheckVerrouCarre.Visible:=false;
+
   feux[index].aspect:=aspect;
-  s:=encode_sig_feux(index);  
+  s:=encode_sig_feux(index);
   RichSig.Lines[ligneClicSig]:=s;
   aff_champs_sig_feux(index); // redessine les champs et le feu
-  
+
   // change l'image du feu dans la feuille graphique principale
   Feux[index].Img.picture.Bitmap:=Select_dessin_feu(feux[index].aspect);
   dessine_feu_mx(Feux[index].Img.Canvas,0,0,1,1,feux[index].adresse,1);  // dessine les feux du signal
+  // et dans le TCO
+  if avecTCO then
+  begin
+    for y:=1 to NbreCellY do
+    for x:=1 to NbreCellX do
+      begin
+        if TCO[x,y].BImage=30 then
+        begin
+          AdresseFeu:=feux[index].adresse;
+          if tco[x,y].Adresse=AdresseFeu then affiche_tco;
+        end;
+      end;
+  end;
 end;
 
 
@@ -5660,7 +5673,7 @@ begin
       if IndexBranche_trouve=0 then
       begin
         ok:=false;
-        Affiche('Erreur 8.1: Détecteur '+intToSTR(i)+' non existant mais associé au signal '+IntToSTR(feux[j].adresse),clred);
+        Affiche('Erreur 8.1: Détecteur '+intToSTR(i)+' non existant dans les branches mais associé au signal '+IntToSTR(feux[j].adresse),clred);
       end;
     end
     else
@@ -6430,6 +6443,12 @@ begin
   else aiguillage[i].modele:=rien;
   end;
 
+  if (aiguillage[i].modele=tjd) or (aiguillage[i].modele=tjs) then
+  begin
+    if not(radioButtonTJD2.Checked) and not(radioButtonTJD4.Checked) then
+      radioButtonTJD2.Checked:=true;
+  end;
+  
   s:=encode_aig(i);
   formconfig.RichAig.Lines[ligneclicAig]:=s;
   clicliste:=true;

UnitConfigTCO.dfm

@@ -226,6 +226,20 @@ object FormConfigTCO: TFormConfigTCO
       Height = 13
       Caption = 'statiques'
     end
+    object ImageQuai: TImage
+      Left = 296
+      Top = 64
+      Width = 41
+      Height = 41
+      OnClick = ImageQuaiClick
+    end
+    object Label13: TLabel
+      Left = 206
+      Top = 80
+      Width = 74
+      Height = 13
+      Caption = 'Couleur de quai'
+    end
   end
   object Memo1: TMemo
     Left = 8

UnitConfigTCO.pas

@@ -39,6 +39,8 @@ type
     Label12: TLabel;
     LabelMaxX: TLabel;
     LabelMaxY: TLabel;
+    ImageQuai: TImage;
+    Label13: TLabel;
     procedure ButtonOKClick(Sender: TObject);
     procedure ButtonDessineClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
@@ -49,6 +51,7 @@ type
     procedure ImagecantonClick(Sender: TObject);
     procedure ColorDialog1Show(Sender: TObject);
     procedure ImageTexteClick(Sender: TObject);
+    procedure ImageQuaiClick(Sender: TObject);
   private
     { Déclarations privées }
   public
@@ -93,6 +96,7 @@ end;
 
 procedure dessine_icones;
 var r : Trect;
+    x1,y1,x2,jy1,jy2 : integer;
 begin
   // 1
   icone_aig;
@@ -140,7 +144,6 @@ begin
     canvas.Brush.Color:=fond;
     canvas.Rectangle(0,0,Width,Height);
     
-   
     canvas.pen.color:=clAllume;
     canvas.brush.color:=clAllume;
     // bande horizontale
@@ -157,9 +160,23 @@ begin
     canvas.Font.color:=clTexte;
     canvas.Pen.mode:=pmCopy;
     canvas.Textout(5,10,'Voie 1');
-    
   end;
 
+  //Quai
+  with formconfigTCO.ImageQuai do
+  begin
+    canvas.Pen.color:=fond;
+    canvas.Brush.Color:=fond;
+    canvas.Rectangle(0,0,Width,Height);
+    canvas.Brush.Color:=clQuai;
+    canvas.pen.color:=clQuai;
+    x1:=0;
+    x2:=x1+width;
+    jy1:=(HauteurCell div 2)-round(6*frYGlob); // pos Y de la bande sup
+    jy2:=(HauteurCell div 2)+round(6*frYGlob); // pos Y de la bande inf
+    
+    canvas.PolyGon([point(x1,jy1),point(x2,jy1),point(x2,jy2),point(x1,jy2)]);
+  end;
 
 end;
 
@@ -211,7 +228,7 @@ begin
       ImageTCO.Height:=HauteurCell*NbreCellY;
     end;  
     AvecGrille:=checkDessineGrille.Checked;
-    formTCO.affiche_TCO;
+    affiche_TCO;
     LabelErreur.caption:='';
     close;
   end; 
@@ -228,9 +245,9 @@ begin
     begin
       ImageTCO.Width:=LargeurCell*NbreCellX;
       ImageTCO.Height:=HauteurCell*NbreCellY;
-    end;  
-    formTCO.affiche_TCO;
-  end;  
+    end;
+    affiche_TCO;
+  end;
 end;
 
 
@@ -250,17 +267,21 @@ end;
 procedure TFormConfigTCO.ImageAigClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur des voies';
+  ColorDialog1.Color:=clVoies;
+
   if ColorDialog1.execute then
   begin
     clVoies:=ColorDialog1.Color;
     TCO_modifie:=true;
     dessine_icones;
-  end; 
+  end;
 end;
 
 procedure TFormConfigTCO.ImageFondClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur de fond';
+  ColorDialog1.Color:=fond;
+
   if ColorDialog1.execute then
   begin
     fond:=ColorDialog1.Color;
@@ -272,45 +293,64 @@ end;
 procedure TFormConfigTCO.ImageGrilleClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur de la grille';
+  ColorDialog1.Color:=clGrille;
+
   if ColorDialog1.execute then
   begin
     ClGrille:=ColorDialog1.Color;
     TCO_modifie:=true;
     dessine_icones;
-  end; 
+  end;
 end;
 
 procedure TFormConfigTCO.ImageDetActClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur de détecteur activé';
+  ColorDialog1.Color:=clAllume;
+
   if ColorDialog1.execute then
   begin
     ClAllume:=ColorDialog1.Color;
     TCO_modifie:=true;
     dessine_icones;
-  end; 
+  end;
 end;
 
 procedure TFormConfigTCO.ImagecantonClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur de canton activé';
+  ColorDialog1.Color:=clAllume;
+
   if ColorDialog1.execute then
   begin
     ClAllume:=ColorDialog1.Color;
     dessine_icones;
-  end; 
+  end;
 end;
 
 procedure TFormConfigTCO.ImageTexteClick(Sender: TObject);
 begin
   titre_couleur:='Changer la couleur du texte';
+  ColorDialog1.Color:=cltexte;
+
   if ColorDialog1.execute then
   begin
     ClTexte:=ColorDialog1.Color;
     dessine_icones;
-  end; 
+  end;
 end;
 
+procedure TFormConfigTCO.ImageQuaiClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur du quai';
+  ColorDialog1.Color:=clQuai;
+
+  if ColorDialog1.execute then
+  begin
+    ClQuai:=ColorDialog1.Color;
+    dessine_icones;
+  end;
+end;
 
 // change le titre de la fenêtre de choix des couleurs à son ouverture
 procedure TFormConfigTCO.ColorDialog1Show(Sender: TObject);
@@ -321,4 +361,6 @@ end;
 
 
 
+
+
 end.

UnitPrinc.dfm

@@ -1440,8 +1440,8 @@ object FormPrinc: TFormPrinc
     OnMouseDown = FenRichMouseDown
   end
   object GroupBox2: TGroupBox
-    Left = 697
-    Top = 56
+    Left = 633
+    Top = 64
     Width = 265
     Height = 105
     Anchors = [akTop, akRight]

UnitPrinc.pas

@@ -3,7 +3,7 @@ Unit UnitPrinc;
   programme signaux complexes Graphique Lenz
   delphi 7 + activeX Tmscomm + clientSocket
  ********************************************
- 6/3/2022 16h
+ 24/3/2022 15h
  note sur le pilotage des accessoires:
  raquette   octet sortie
     +            2    = aiguillage droit  = sortie 2 de l'adresse d'accessoire
@@ -180,6 +180,7 @@ type
     procedure ComboTrainsChange(Sender: TObject);
     procedure ButtonFonctionClick(Sender: TObject);
     procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
   private
     { Déclarations privées }
     procedure DoHint(Sender : Tobject);
@@ -349,12 +350,12 @@ var
   record
     loco,act,son: boolean;   // type loco actionneur ou son 
     adresse,adresse2,        // adresse: adresse de base ; adresse2=cas d'une Zone
-    etat,fonction,tempo,TempoCourante,  
+    etat,fonction,tempo,TempoCourante,
     accessoire,sortie,
     typActMemZone  : integer;  // 0=actioneur  1=MemZone
     Raz : boolean;
     det : boolean; // désigne un détecteur
-    FichierSon,trainDecl,TrainDest : string;
+    FichierSon,trainDecl,TrainDest,TrainCourant : string;
   end;
   
   KeyInputs: array of TInput;
@@ -1427,7 +1428,7 @@ begin
   else Feux[rang].check:=nil;
 end;
 
-// calcule le checksum d'une trame
+// ajoute en bout de chaine le checksum d'une trame
 Function Checksum(s : string) : string;
 var i : integer;
     check : byte;
@@ -2906,7 +2907,7 @@ begin
          if TCO[x,y].Bimage=30 then
          begin
            adresse:=TCO[x,y].adresse;      // vérifie si le feu existe dans le TCO
-           aspect:=TCO[x,y].aspect;
+           aspect:=feux[index_feu(adresse)].Aspect;
            case aspect of
                  2 :  ImageFeu:=Formprinc.Image2feux;
                  3 :  ImageFeu:=Formprinc.Image3feux;
@@ -5585,11 +5586,14 @@ begin
     if adresseOk and (Tablo_actionneur[i].loco) and ((s=trainDecl) or (s='X') or (trainDecl='X')) and (etatAct=etat) then
     begin
       trainDest:=Tablo_actionneur[i].trainDest;
-      Affiche(st+' TrainDecl='+trainDecl+' TrainDest='+trainDest+' F'+IntToSTR(Tablo_actionneur[i].fonction)+':'+intToSTR(etat),clyellow);
       // exécution de la fonction F vers CDM
+      if (trainDest='X') or (trainDest='') then traindest:=traindecl;
+      if (trainDest='X') then traindest:=s;
+      Affiche(st+' TrainDecl='+trainDecl+' TrainDest='+trainDest+' F'+IntToSTR(Tablo_actionneur[i].fonction)+':'+intToSTR(etat),clyellow);
       envoie_fonction_CDM(Tablo_actionneur[i].fonction,etat,trainDest);
+      tablo_actionneur[i].TrainCourant:=trainDest;  // pour mémoriser le train pour la retombée de la fonction
       tablo_actionneur[i].TempoCourante:=tablo_actionneur[i].Tempo div 100;
-    end;
+    end;                              
 
     // actionneur pour accessoire
     if adresseOk and (Tablo_actionneur[i].act) and ((s=trainDecl) or (s='X') or (trainDecl='X')) and (etatAct=etat) then
@@ -6273,7 +6277,6 @@ begin
     end;
     Affiche('CDM rail déconnecté',Cyan);
     AfficheDebug('CDM rail déconnecté',Cyan);
-
   end;
 end;
 
@@ -6641,7 +6644,7 @@ begin
   Srvc_sig:=false;
 
   config_modifie:=false;
-  AF:='Client TCP-IP CDM Rail ou USB - système XpressNet - Version '+Version+sousVersion;
+  AF:='Client TCP-IP CDM Rail ou USB - système XpressNet - Version '+Version+sousVersion+' BETA';
   Caption:=AF;
   Application.onHint:=doHint;
 
@@ -6765,10 +6768,10 @@ begin
   // TCO
   if avectco then
   begin
-    //créée la fenêtre TCO non modale
-    FormTCO:=TformTCO.Create(nil);
-    FormTCO.show;
-  end;
+      //créée la fenêtre TCO non modale
+      FormTCO:=TformTCO.Create(nil);
+      FormTCO.show;
+  end; 
 
   Affiche('Fin des initialisations',clyellow);
   LabelEtat.Caption:=' ';
@@ -6868,6 +6871,13 @@ begin
   if Tempo_init>0 then dec(Tempo_init);
   if (Tempo_init=1) and AvecInit then
   begin
+    // TCO
+    {if avectco then
+    begin
+      //créée la fenêtre TCO non modale
+      FormTCO:=TformTCO.Create(nil);
+      FormTCO.show;
+    end; }
     if not(ConfigNulle) and not(ferme) and (AvecInitAiguillages) then
     begin
       Affiche('Positionnement des feux',clYellow);
@@ -6922,7 +6932,7 @@ begin
           TestBit(a,rappel_60) or testBit(a,semaphore_cli) or
           testBit(a,vert_cli) or testbit(a,blanc_cli) then
           begin
-            aspect:=TCO[x,y].aspect;
+            aspect:=feux[index_feu(adresse)].Aspect;
             case aspect of
              2 :  ImageFeu:=Formprinc.Image2feux;
              3 :  ImageFeu:=Formprinc.Image3feux;
@@ -6967,7 +6977,7 @@ begin
       if Tablo_actionneur[i].TempoCourante=0 then
       begin
         A:=Tablo_actionneur[i].adresse;
-        s:=Tablo_actionneur[i].trainDest;
+        s:=Tablo_actionneur[i].trainCourant;
         Affiche('Actionneur '+intToSTR(a)+' TrainDest='+s+' F'+IntToSTR(Tablo_actionneur[i].fonction)+':0',clyellow);
         envoie_fonction_CDM(Tablo_actionneur[i].fonction,0,s);
       end;
@@ -8155,6 +8165,7 @@ begin
   s:=editAdrTrain.Text;
   val(s,adr,erreur);
   if (erreur<>0) or (adr<0) then exit;
+  if not(portCommOuvert) and not(parSocketLenz) then exit;
   s:=editVitesse.Text;
   val(s,vit,erreur);
   if (erreur<>0) or (vit<0) then exit;
@@ -8285,6 +8296,7 @@ begin
   if erreur<>0 then exit;
   val(editFonc01.Text,etat,erreur);
   if erreur<>0 then exit;
+  if not(portCommOuvert) and not(parSocketLenz) then exit;
   val(editAdrTrain.Text,loco,erreur);
   s:=trains[combotrains.itemindex+1].nom_train;
   if CDM_connecte then 
@@ -8298,7 +8310,7 @@ begin
     envoie_fonction_CDM(fonction,etat,s);
     Affiche('Train='+s+' F'+IntToSTR(fonction)+':'+intToSTR(etat),clyellow);
   end;
-  if portCommOuvert or parSocketLenz then 
+  
   begin
     if erreur<>0 then begin Affiche('Sélectionnez un train',clOrange);exit;end;
     if fonction>28 then 
@@ -8335,5 +8347,21 @@ begin
   end;  
 end;
 
+
+procedure TFormPrinc.Button2Click(Sender: TObject);
 begin
+  aiguillage[Index_Aig(1)].position:=const_devie; 
+  aiguillage[Index_Aig(3)].position:=const_devie; 
+  aiguillage[Index_Aig(5)].position:=const_droit; 
+ 
+  zone_TCO(518,515,1);
+end;
+
+
+
+
+
+begin
+
+
 end.

UnitTCO.dfm

@@ -1,6 +1,6 @@
 object FormTCO: TFormTCO
-  Left = 139
-  Top = 146
+  Left = 152
+  Top = 41
   Width = 1139
   Height = 694
   VertScrollBar.Visible = False
@@ -122,7 +122,9 @@ object FormTCO: TFormTCO
       Width = 1009
       Height = 353
       Anchors = [akLeft, akTop, akRight, akBottom]
+      ParentShowHint = False
       PopupMenu = PopupMenu1
+      ShowHint = True
       OnClick = ImageTCOClick
       OnContextPopup = ImageTCOContextPopup
       OnDblClick = ImageTCODblClick
@@ -176,22 +178,9 @@ object FormTCO: TFormTCO
       Font.Style = []
       ParentFont = False
     end
-    object Label5: TLabel
-      Left = 8
-      Top = 40
-      Width = 89
-      Height = 16
-      Caption = 'Type de l'#39#233'l'#233'ment: '
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -13
-      Font.Name = 'Arial Narrow'
-      Font.Style = []
-      ParentFont = False
-    end
     object Label15: TLabel
       Left = 8
-      Top = 64
+      Top = 38
       Width = 93
       Height = 16
       Caption = 'Image de l'#39#233'l'#233'ment: '
@@ -266,7 +255,10 @@ object FormTCO: TFormTCO
       Top = 8
       Width = 41
       Height = 41
+      Hint = 'Voie pouvant porter un d'#233'tecteur'
       DragMode = dmAutomatic
+      ParentShowHint = False
+      ShowHint = True
       OnDragOver = ImagePalette1DragOver
       OnEndDrag = ImagePalette1EndDrag
       OnMouseDown = ImagePalette1MouseDown
@@ -455,18 +447,21 @@ object FormTCO: TFormTCO
       ParentFont = False
     end
     object ImagePalette30: TImage
-      Left = 376
+      Left = 440
       Top = 104
       Width = 25
       Height = 41
+      Hint = 'Signal'
       DragMode = dmAutomatic
+      ParentShowHint = False
+      ShowHint = True
       Stretch = True
       OnDragOver = ImagePalette30DragOver
       OnEndDrag = ImagePalette30EndDrag
       OnMouseDown = ImagePalette30MouseDown
     end
     object Label18: TLabel
-      Left = 336
+      Left = 408
       Top = 118
       Width = 18
       Height = 19
@@ -572,7 +567,7 @@ object FormTCO: TFormTCO
     end
     object Label23: TLabel
       Left = 56
-      Top = 88
+      Top = 64
       Width = 27
       Height = 16
       Caption = 'Texte'
@@ -703,7 +698,10 @@ object FormTCO: TFormTCO
       Top = 8
       Width = 41
       Height = 41
+      Hint = 'Croisement ou TJD ou TJS'
       DragMode = dmAutomatic
+      ParentShowHint = False
+      ShowHint = True
       OnDragOver = ImagePalette21DragOver
       OnEndDrag = ImagePalette21EndDrag
       OnMouseDown = ImagePalette21MouseDown
@@ -726,7 +724,10 @@ object FormTCO: TFormTCO
       Top = 8
       Width = 41
       Height = 41
+      Hint = 'Croisement ou TJD ou TJS'
       DragMode = dmAutomatic
+      ParentShowHint = False
+      ShowHint = True
       OnDragOver = ImagePalette22DragOver
       OnEndDrag = ImagePalette22EndDrag
       OnMouseDown = ImagePalette22MouseDown
@@ -746,7 +747,7 @@ object FormTCO: TFormTCO
     end
     object Label1: TLabel
       Left = 8
-      Top = 112
+      Top = 88
       Width = 75
       Height = 16
       Caption = 'position du texte'
@@ -757,47 +758,59 @@ object FormTCO: TFormTCO
       Font.Style = []
       ParentFont = False
     end
+    object ImagePalette23: TImage
+      Left = 360
+      Top = 104
+      Width = 41
+      Height = 41
+      Hint = 'Quai'
+      DragMode = dmAutomatic
+      ParentShowHint = False
+      ShowHint = True
+      OnDragOver = ImagePalette23DragOver
+      OnEndDrag = ImagePalette23EndDrag
+      OnMouseDown = ImagePalette23MouseDown
+    end
+    object Label31: TLabel
+      Left = 336
+      Top = 118
+      Width = 18
+      Height = 19
+      Caption = '23'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object EditAdrElement: TEdit
       Left = 144
       Top = 16
       Width = 33
-      Height = 24
+      Height = 21
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
-      Font.Height = -13
-      Font.Name = 'Arial Narrow'
+      Font.Height = -9
+      Font.Name = 'MS Sans Serif'
       Font.Style = []
       ParentFont = False
       TabOrder = 0
       OnChange = EditAdrElementChange
       OnKeyDown = EditAdrElementKeyDown
     end
-    object EditTypeElement: TEdit
+    object EditTypeImage: TEdit
       Left = 144
       Top = 40
       Width = 33
-      Height = 24
+      Height = 21
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
-      Font.Height = -13
-      Font.Name = 'Arial Narrow'
+      Font.Height = -9
+      Font.Name = 'MS Sans Serif'
       Font.Style = []
       ParentFont = False
-      ReadOnly = True
       TabOrder = 1
-    end
-    object EditTypeImage: TEdit
-      Left = 144
-      Top = 64
-      Width = 33
-      Height = 24
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -13
-      Font.Name = 'Arial Narrow'
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 2
       OnKeyPress = EditTypeImageKeyPress
     end
     object ButtonSauveTCO: TButton
@@ -807,7 +820,7 @@ object FormTCO: TFormTCO
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Sauvegarder TCO'
-      TabOrder = 3
+      TabOrder = 2
       WordWrap = True
       OnClick = ButtonSauveTCOClick
     end
@@ -818,25 +831,25 @@ object FormTCO: TFormTCO
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Redessine'
-      TabOrder = 4
+      TabOrder = 3
       OnClick = ButtonRedessineClick
     end
     object Button1: TButton
-      Left = 440
+      Left = 784
       Top = 112
       Width = 89
       Height = 25
       Caption = 'Simu det 1'
-      TabOrder = 5
+      TabOrder = 4
       OnClick = Button1Click
     end
     object Button2: TButton
-      Left = 536
+      Left = 880
       Top = 112
       Width = 89
       Height = 25
       Caption = 'Simu Det 0'
-      TabOrder = 6
+      TabOrder = 5
       OnClick = Button2Click
     end
     object ButtonConfigTCO: TButton
@@ -846,33 +859,33 @@ object FormTCO: TFormTCO
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Configuration TCO'
-      TabOrder = 7
+      TabOrder = 6
       OnClick = ButtonConfigTCOClick
     end
     object EditTexte: TEdit
       Left = 88
-      Top = 88
+      Top = 64
       Width = 89
       Height = 21
-      TabOrder = 8
+      TabOrder = 7
       OnChange = EditTexteChange
     end
     object ButtonSimu: TButton
-      Left = 632
-      Top = 112
+      Left = 864
+      Top = 80
       Width = 113
       Height = 25
       Caption = 'Simu canton occup'#233
-      TabOrder = 9
+      TabOrder = 8
       OnClick = ButtonSimuClick
     end
     object CheckPinv: TCheckBox
       Left = 16
-      Top = 144
+      Top = 112
       Width = 161
       Height = 17
       Caption = 'aiguillage invers'#233
-      TabOrder = 10
+      TabOrder = 9
       OnClick = CheckPinvClick
     end
     object ButtonMasquer: TButton
@@ -882,17 +895,17 @@ object FormTCO: TFormTCO
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Masquer bandeau'
-      TabOrder = 11
+      TabOrder = 10
       WordWrap = True
       OnClick = ButtonMasquerClick
     end
     object ComboRepr: TComboBox
       Left = 88
-      Top = 112
+      Top = 88
       Width = 89
       Height = 21
       ItemHeight = 13
-      TabOrder = 12
+      TabOrder = 11
       OnChange = ComboReprChange
       Items.Strings = (
         'Sans'
@@ -900,6 +913,15 @@ object FormTCO: TFormTCO
         'Haut'
         'Bas')
     end
+    object ButtonFonte: TButton
+      Left = 8
+      Top = 64
+      Width = 41
+      Height = 17
+      Caption = 'Fonte'
+      TabOrder = 12
+      OnClick = ButtonFonteClick
+    end
   end
   object ButtonAfficheBandeau: TButton
     Left = 1051
@@ -915,7 +937,7 @@ object FormTCO: TFormTCO
   object PopupMenu1: TPopupMenu
     Left = 360
     object MenuCouper: TMenuItem
-      Caption = '-'
+      Caption = 'Couper'
       OnClick = MenuCouperClick
     end
     object MenuCopier: TMenuItem
@@ -949,4 +971,14 @@ object FormTCO: TFormTCO
       OnClick = Pos_vertClick
     end
   end
+  object FontDialog1: TFontDialog
+    OnShow = FontDialog1Show
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    Left = 256
+    Top = 432
+  end
 end

tco.cfg

@@ -1,32 +1,26 @@
-/ Couleurs : fond, voies, détecteur_activé, grille
-000040
+/ Couleurs : fond, voies, détecteur_activé, grille, textes, quai
+202050
 0077FF
 00FFFF
-404040
+4A4A4A
+00FF00
+808080
 / Taille de la matrice x,y
-43,21
+35,13
 / Largeur et hauteur des cellules en pixels
-32,32
+35,35
 /Dalle TCO
-/ type,adresse,image,inversion aiguillage,Orientation du feu, pied du feu , [texte]
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,177,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 1)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,161,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,569,1,0,0,0,)(1,000,1,0,0,0,)(2,023,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,538,1,0,0,0,)(1,000,1,0,0,0,)(2,032,2,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 2)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,021,5,1,0,0,)(2,025,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,570,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,028,2,0,0,0,)(2,030,3,1,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,539,1,0,0,0,)(1,000,1,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,225,30,0,2,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,185,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 3)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,193,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,169,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(2,020,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,547,1,0,0,0,)(1,000,1,0,0,0,)(1,561,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,022,5,0,0,0,)(1,000,1,0,0,0,)(2,024,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,513,1,0,0,0,)(1,513,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,516,1,0,0,0,)(1,000,1,0,0,0,)(2,029,2,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,233,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,209,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 4)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,201,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,6,0,0,0,)(1,000,1,0,0,0,)(1,548,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(0,000,8,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,026,12,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,514,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,517,1,0,0,0,)(1,000,1,0,0,0,)(2,031,2,0,0,0,)(2,027,2,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,241,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,16,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,217,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 5)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,6,0,0,0,)(1,515,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,510,1,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,209,30,0,1,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
-(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+/ type,adresse,image,inversion aiguillage,Orientation du feu, pied du feu , [texte], representation, fonte, taille fonte, couleur fonte, style 
+(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,TCO gare principale,1,Arial,20,00FFFF,GI)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,288,30,0,2,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)
+(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,8,00FF00,)(0,000,0,0,0,0,,2,,8,00FF00,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,9,0,0,0,,2,,0,000000,)(0,000,1,0,0,0,,2,,0,000000,)(0,000,1,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)
+(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(0,000,0,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(2,006,2,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,9,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,232,30,0,3,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,004,15,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,7,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,003,15,0,0,0,,2,,0,000000,)(2,005,2,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,515,1,0,0,0,,2,,0,000000,)(1,515,1,0,0,0,,0,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,7,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,260,30,0,2,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,10,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,316,30,0,3,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,Quai 1,1,Arial,12,FFFFFF,G)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,23,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,190,30,0,2,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,6,0,0,0,,2,,0,000000,)(1,518,1,0,0,0,,0,,0,000000,)(1,518,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(2,001,3,0,0,0,,2,,0,000000,)(2,000,21,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,Voie 2,2,Arial,10,FFFF00,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,523,1,0,0,0,,0,,0,000000,)(1,523,1,0,0,0,,0,,0,000000,)(1,523,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)
+(1,000,0,0,0,0,,2,,0,000000,)(1,000,6,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(2,012,4,0,0,0,,2,,0,000000,)(2,002,3,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,519,1,0,0,0,,2,,0,000000,)(1,519,1,0,0,0,,0,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,Voie 1,2,Arial,10,FFFF00,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,8,00FF00,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(2,007,2,0,0,0,,2,,0,000000,)(1,000,1,0,0,0,,2,,0,000000,)(1,527,1,0,0,0,,2,,8,00FF00,)(1,000,1,0,0,0,,3,,8,00FF00,)(1,000,1,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,2,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)
+(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,1,0,0,0,,0,,0,000000,)(1,000,8,0,0,0,,0,,0,000000,)(1,000,11,0,0,0,,0,,0,000000,)(1,330,30,0,3,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,Quai 2,0,Arial,12,FFFFFF,G)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,23,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,10,0,0,0,,0,,0,000000,)(1,204,30,0,3,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)
+(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,1,0,0,0,,0,,0,000000,)(1,000,1,0,0,0,,0,,0,000000,)(2,021,5,0,0,0,,0,,0,000000,)(2,020,5,0,0,0,,0,,0,000000,)(2,520,1,0,0,0,,2,,8,00FF00,)(2,520,1,0,0,0,,0,,0,000000,)(2,520,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,8,00FF00,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,8,00FF00,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,8,00FF00,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,8,00FF00,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,8,00FF00,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,1,0,0,0,,0,,0,000000,)(2,000,7,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)
+(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,176,30,0,3,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,3,,8,00FF00,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,8,00FF00,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)
+(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)(1,000,0,0,0,0,,0,,0,000000,)

verif_version.pas

@@ -23,7 +23,7 @@ var
   Lance_verif : integer;
   verifVersion,notificationVersion : boolean;
 
-Const  Version='3.82';  // sert à la comparaison de la version publiée
+Const  Version='3.83';  // sert à la comparaison de la version publiée
        SousVersion=' '; // en cas d'absence de sous version mettre un espace
 
 implementation
@@ -200,16 +200,17 @@ begin
         s2:=version;
        // i:=pos('.',s2);if i<>0 then s2[i]:=',';
 
+        s:=AnsiUppercase(s);
         l:=length(s);
         SV_publie:=s[l];
         if Sv_publie in ['0'..'9'] then Sv_Publie:=' ' else s:=copy(s,1,l-1);
-        
-        val(s,V_publie,erreur); 
+
+        val(s,V_publie,erreur);
         if erreur<>0 then exit;
-        val(s2,V_utile,erreur); 
+        val(s2,V_utile,erreur);
         if erreur<>0 then exit;
 
-        if (V_utile<V_publie) or 
+        if (V_utile<V_publie) or
            ((V_utile=V_publie) and (SousVersion<SV_publie)) then
         begin
           FormVersion.Top:=10;

versions.txt

@@ -90,7 +90,9 @@ version 3.8  : Possibilit
 version 3.81 : Pilotage des TJD depuis le TCO.
                Améliorations diverses dans le TCO.
 version 3.82 : Application d'un train destinataire pour les actionneurs de fonctions F.
-   
+version 3.83 : Quais pour le TCO.
+               Fontes, couleurs et styles variables pour les textes des TCO.
+