V4.71

UnitConfig.dfm

@@ -1580,7 +1580,7 @@ object FormConfig: TFormConfig
     Top = 8
     Width = 633
     Height = 497
-    ActivePage = TabSheetAutonome
+    ActivePage = TabSheetAct
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlack
     Font.Height = -11
@@ -2357,9 +2357,9 @@ object FormConfig: TFormConfig
           Top = 48
           Width = 145
           Height = 21
+          Style = csDropDownList
           ItemHeight = 13
           TabOrder = 3
-          Text = 'Type'
           OnChange = ComboBoxAigChange
           Items.Strings = (
             'Aiguillage simple'
@@ -2626,6 +2626,7 @@ object FormConfig: TFormConfig
             Top = 24
             Width = 97
             Height = 21
+            Style = csDropDownList
             ItemHeight = 13
             TabOrder = 1
             OnChange = ComboBoxDDChange
@@ -3002,7 +3003,8 @@ object FormConfig: TFormConfig
           Top = 48
           Width = 129
           Height = 21
-          ItemHeight = 0
+          Style = csDropDownList
+          ItemHeight = 13
           TabOrder = 1
           OnChange = ComboBoxDecChange
         end
@@ -3105,6 +3107,7 @@ object FormConfig: TFormConfig
           Top = 72
           Width = 129
           Height = 21
+          Style = csDropDownList
           ItemHeight = 13
           TabOrder = 2
           OnChange = ComboBoxAspChange

UnitConfigCellTCO.dfm

@@ -1,6 +1,6 @@
 object FormConfCellTCO: TFormConfCellTCO
-  Left = 211
-  Top = 228
+  Left = 467
+  Top = 112
   BorderStyle = bsDialog
   Caption = 'FormConfCellTCO'
   ClientHeight = 375
@@ -55,6 +55,7 @@ object FormConfCellTCO: TFormConfCellTCO
       Top = 60
       Width = 89
       Height = 24
+      Style = csDropDownList
       ItemHeight = 16
       TabOrder = 0
       OnChange = ComboReprChange
@@ -137,12 +138,15 @@ object FormConfCellTCO: TFormConfCellTCO
       Top = 48
       Width = 33
       Height = 21
+      Hint = 'Num'#233'ro d'#39'image de l'#39#233'l'#233'ment'
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
       Font.Height = -9
       Font.Name = 'MS Sans Serif'
       Font.Style = []
       ParentFont = False
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 0
       OnKeyPress = EditTypeImageKeyPress
     end
@@ -254,6 +258,9 @@ object FormConfCellTCO: TFormConfCellTCO
       Top = 48
       Width = 33
       Height = 24
+      Hint = 'Adresse DCC de l'#39#233'l'#233'ment'
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 3
       OnKeyPress = EditAdrElementKeyPress
     end

UnitPrinc.pas

@@ -6162,6 +6162,7 @@ var i,v,va,etatAct,Af,Ao,Access,sortie,dZ1F,dZ2F,dZ1O,dZ2O : integer;
 begin
   // vérifier si l'actionneur en évènement a été déclaré pour réagir
   if AffAigDet then AfficheDebug('Tick='+IntToSTR(tick)+' Evt Act '+intToSTR(Adr)+'/'+intToSTR(Adr2)+'='+intToSTR(etat),clyellow);
+  if adr=0 then exit;
   //Affiche(intToSTR(adr)+'/'+intToSTR(adr2)+' '+intToSTR(etat),clyellow);
   for i:=1 to maxTablo_act do
   begin
@@ -8628,7 +8629,7 @@ begin
         i:=posEx('AD=',commandeCDM,1);l:=posEx(';',commandeCDM,i);
         if i<>0 then
         begin
-          ss:=copy(commandeCDM,i+6,l-i-6);
+          ss:=copy(commandeCDM,i+3,l-i-3);
           val(ss,adr,erreur);
           Delete(commandeCDM,i,l-i+1);
         end;

UnitTCO.dfm

@@ -915,6 +915,7 @@ object FormTCO: TFormTCO
         Top = 84
         Width = 89
         Height = 21
+        Style = csDropDownList
         ItemHeight = 13
         TabOrder = 4
         OnChange = ComboReprChange

verif_version.pas

@@ -23,7 +23,7 @@ var
   Lance_verif : integer;
   verifVersion,notificationVersion : boolean;
 
-Const  Version='4.7';  // sert à la comparaison de la version publiée
+Const  Version='4.71';  // sert à la comparaison de la version publiée
        SousVersion=' '; // en cas d'absence de sous version mettre un espace
 
 implementation

versions.txt

@@ -121,6 +121,8 @@ version 4.6 :  Correction TJD 2/4
 version 4.7 :  Réorganisation du menu et du panneau de configuration des cellules du TCO.
                Amélioration du séquenceur de connexion à l'interface.
 
+version 4.71 : Correction bug décodage trame actionneur de CDM
+