V10.73

UnitConfig.pas

@@ -4913,7 +4913,7 @@ const LessThanValue=-1;
       lit_ligne;
       ligne:=false;
       repeat  // boucle de la fonction
-        if (s<>'0') and (s<>'') then
+        if (s<>'0') and (s<>'') and (s<>'FF') then
         begin
           posv:=pos(',',s);
           // 0,Variables,N0,T0
@@ -4946,7 +4946,7 @@ const LessThanValue=-1;
 
           Fonction[NbreFL+1,i].adresse:=v;
           delete(s,1,erreur-1);
-          if s[1]='-' then     // si adresse 2 pour mémoire de zone
+          if length(s)>0 then if s[1]='-' then     // si adresse 2 pour mémoire de zone
           begin
             delete(s,1,1);
             val(s,v,erreur);
@@ -14238,6 +14238,10 @@ begin
     begin
       //Affiche('Maj_icone_train '+intToSTR(index),clYellow);
       // source
+      if Trains[index].icone=nil then
+      begin
+        result:=0;exit;
+      end;
       l:=Trains[index].Icone.width;
       h:=Trains[index].Icone.Height;
       if h=0 then

UnitPrinc.dfm

@@ -1,11 +1,11 @@
 object FormPrinc: TFormPrinc
-  Left = 148
+  Left = -8
-  Top = 246
+  Top = -8
   Anchors = [akLeft, akTop, akRight]
   BorderStyle = bsNone
   Caption = 'Signaux complexes'
-  ClientHeight = 520
+  ClientHeight = 942
-  ClientWidth = 976
+  ClientWidth = 1280
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -23,8 +23,8 @@ object FormPrinc: TFormPrinc
   OnKeyDown = FormKeyDown
   OnResize = FormResize
   DesignSize = (
-    976
+    1280
-    520)
+    942)
   PixelsPerInch = 96
   TextHeight = 13
   object LabelTitre: TLabel
@@ -1432,7 +1432,7 @@ object FormPrinc: TFormPrinc
     Visible = False
   end
   object LabelClock: TLabel
-    Left = 884
+    Left = 1188
     Top = 0
     Width = 85
     Height = 22
@@ -5443,8 +5443,8 @@ object FormPrinc: TFormPrinc
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Top = 498
+    Top = 920
-    Width = 976
+    Width = 1280
     Height = 22
     Panels = <
       item

UnitPrinc.pas

@@ -860,7 +860,7 @@ TSignal = record
                 EtatSignal  : word  ;       // état du signal
                 AncienEtat  : word  ;       // ancien état du signal
                 AncienAff   : word  ;       // état ancien affichage
-                UniSemaf    : integer ;     // définition supplémentaire de la cible pour les décodeurs UNISEMAF
+                UniSemaf    : integer ;     // définition supplémentaire de la cible pour les décodeurs UNISEMAF ou LEB
                 BinLin      : integer;      // Binaire=0 ou Linéaire décodeur LEB - =1 : mode 2 signaux décodeur CDF
                 AigDirection : array[1..7] of array of record        // pour les signaux directionnels : contient la liste des aiguillages associés
                                   Adresse : integer;     // 6 feux max associés à un tableau dynamique décrivant les aiguillages +1 position 0
@@ -23333,8 +23333,7 @@ begin
             Trains[ntrains].adresse:=Trains_cdm[i].adresse;
             Trains[ntrains].vitmax:=Trains_cdm[i].vitmax;
             FormPrinc.ComboTrains.Items.Add(trains_cdm[i].nom_train);
-            cree_image_Train(ntrains);
+            //cree_GB_compteur(ntrains);
-            cree_GB_compteur(ntrains);
           end;
         end;
 

verif_version.pas

@@ -26,7 +26,7 @@ var
   f : textFile;
 
 Const
-VersionSC = '10.71'; // sert à la comparaison de la version publiée
+VersionSC = '10.73'; // sert à la comparaison de la version publiée
 SousVersion=' ';   // A B C ... en cas d'absence de sous version mettre un espace
 // pour unzip
 SHCONTCH_NOPROGRESSBOX=4;

versions.txt

@@ -343,7 +343,9 @@ version 10.7 : Affichage du compteur de train depuis le menu contextuel des cant
                Correction désaffectation trains sur cantons.
 version 10.71 : Ajout dans les variables des fonctions les mémoires de zone.
                 Correction bug activation mémoires de zone dans le menu du TCO.
-				Correction bug affichage des opérations dans les actions.
+		Correction bug affichage des opérations dans les actions.
+version 10.72 : correction bug dans les fonctions.
+version 10.73 : correction bug téléchargement trains depuis CDM.