V9.7

2024-12-20 12:17:29 +01:00
parent 087351ecd3
commit 02eccff67e
21 changed files with 2056 additions and 1395 deletions
--- a/UnitConfig.dfm
+++ b/UnitConfig.dfm
@@ -1,6 +1,6 @@
 object FormConfig: TFormConfig
-  Left = 251
-  Top = 102
+  Left = 278
+  Top = 106
  Hint = 'Modifie la configuration selon les s'#233'lections choisies'
  BorderStyle = bsDialog
  Caption = 'Configuration g'#233'n'#233'rale'
@@ -1119,9 +1119,6 @@ object FormConfig: TFormConfig
          Top = 46
          Width = 25
          Height = 21
-          Hint = 
-            'Mode d'#233'bug au d'#233'marrage (0=sans ; 1=Log d'#233'marrage ; 2=D'#233'marrage ' +
-            'par '#233'tape ; 3=Dynamique)'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
@@ -3086,26 +3083,13 @@ object FormConfig: TFormConfig
          OnChange = ComboBoxOperateurChange
          OnDrawItem = ComboBoxOperateurDrawItem
        end
-        object ButtonAjouteOperateur: TButton
-          Left = 504
-          Top = 128
-          Width = 105
-          Height = 25
-          Hint = 'Ajoute un op'#233'rateur au m'#234'me niveau que le parent'
-          Caption = 'Ajouter op'#233'rateur'
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 3
-          Visible = False
-          OnClick = ButtonAjouteOperateurClick
-        end
        object ButtonVoir: TButton
          Left = 480
          Top = 280
          Width = 113
          Height = 25
          Caption = 'Affiche structure'
-          TabOrder = 4
+          TabOrder = 3
          WordWrap = True
          OnClick = ButtonVoirClick
        end
@@ -3117,7 +3101,7 @@ object FormConfig: TFormConfig
          ItemHeight = 13
          ParentShowHint = False
          ShowHint = True
-          TabOrder = 5
+          TabOrder = 4
          OnChange = ComboBoxVarChange
          OnDrawItem = ComboBoxVarDrawItem
        end
@@ -3126,7 +3110,7 @@ object FormConfig: TFormConfig
          Top = 184
          Width = 305
          Height = 73
-          TabOrder = 6
+          TabOrder = 5
          object LabelEtat: TLabel
            Left = 240
            Top = 4
@@ -3183,6 +3167,19 @@ object FormConfig: TFormConfig
            TabOrder = 3
            OnChange = LabeledEditTrainChange
          end
+          object RadioGroupOP: TRadioGroup
+            Left = 208
+            Top = 8
+            Width = 89
+            Height = 57
+            Caption = 'Op'#233'rateur'
+            Items.Strings = (
+              '= '#233'galit'#233
+              '> sup'#233'rieur'
+              '< inf'#233'rieur')
+            TabOrder = 4
+            OnClick = RadioGroupOPClick
+          end
        end
        object ButtonSupLog: TButton
          Left = 288
@@ -3193,7 +3190,7 @@ object FormConfig: TFormConfig
          Caption = 'Supprimer'
          ParentShowHint = False
          ShowHint = True
-          TabOrder = 7
+          TabOrder = 6
          OnClick = ButtonSupLogClick
        end
        object ComboBoxFL: TComboBox
@@ -3203,7 +3200,7 @@ object FormConfig: TFormConfig
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
-          TabOrder = 8
+          TabOrder = 7
          OnChange = ComboBoxFLChange
        end
        object ButtonEvalue: TButton
@@ -3217,7 +3214,7 @@ object FormConfig: TFormConfig
          Caption = 'Evalue'
          ParentShowHint = False
          ShowHint = True
-          TabOrder = 9
+          TabOrder = 8
          OnClick = ButtonEvalueClick
        end
        object LabeledEditNomLog: TLabeledEdit
@@ -3230,7 +3227,7 @@ object FormConfig: TFormConfig
          EditLabel.Caption = 'Nom de la fonction logique'
          LabelPosition = lpRight
          LabelSpacing = 10
-          TabOrder = 10
+          TabOrder = 9
          OnChange = LabeledEditNomLogChange
        end
        object ButtonAjOpEnfant: TButton
@@ -3242,7 +3239,7 @@ object FormConfig: TFormConfig
          Caption = 'Ajouter op'#233'rateur'
          ParentShowHint = False
          ShowHint = True
-          TabOrder = 11
+          TabOrder = 10
          WordWrap = True
          OnClick = ButtonAjOpEnfantClick
        end
@@ -3256,7 +3253,7 @@ object FormConfig: TFormConfig
          EditLabel.Caption = 'Num'#233'ro de fonction'
          LabelPosition = lpRight
          LabelSpacing = 5
-          TabOrder = 12
+          TabOrder = 11
          OnChange = LabeledEditNumFoncChange
        end
      end
@@ -3272,7 +3269,9 @@ object FormConfig: TFormConfig
          
            'conditions. Elles permettent de r'#233'aliser des combinaisons logiqu' +
            'es d'#39#233'lements '
-          'divers comme l'#39#233'tat des aiguillages, d'#233'tecteurs etc...')
+          
+            'divers comme l'#39#233'tat des aiguillages, d'#233'tecteurs, boutons TCO, m'#233 +
+            'moires etc...')
        ReadOnly = True
        TabOrder = 1
      end
@@ -3436,6 +3435,13 @@ object FormConfig: TFormConfig
        Font.Style = [fsBold]
        ParentFont = False
      end
+      object Label65: TLabel
+        Left = 352
+        Top = 32
+        Width = 240
+        Height = 13
+        Caption = 'Description des d'#233'tecteurs pour le mode autonome'
+      end
      object ListBoxDet: TListBox
        Left = 0
        Top = 56
@@ -3493,6 +3499,7 @@ object FormConfig: TFormConfig
          LabelPosition = lpLeft
          LabelSpacing = 80
          ParentShowHint = False
+          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          OnChange = LEAdrDetChange
@@ -4864,9 +4871,6 @@ object FormConfig: TFormConfig
          Top = 118
          Width = 28
          Height = 21
-          Hint = 
-            'Temps de filtrage des d'#233'tecteurs qui passent '#224' 0'#39'+#13+'#39'Mode auto' +
-            'nome uniquement'#39
          EditLabel.Width = 192
          EditLabel.Height = 13
          EditLabel.Caption = 'Utilisation de l'#39#39'anti timeout Lenz Ethernet'
@@ -4881,9 +4885,6 @@ object FormConfig: TFormConfig
          Top = 142
          Width = 28
          Height = 21
-          Hint = 
-            'Temps de filtrage des d'#233'tecteurs qui passent '#224' 0'#39'+#13+'#39'Mode auto' +
-            'nome uniquement'#39
          EditLabel.Width = 230
          EditLabel.Height = 13
          EditLabel.Caption = 'Facteur de temporisation de t'#233'l'#233'commande CDM'
@@ -4898,9 +4899,6 @@ object FormConfig: TFormConfig
          Top = 166
          Width = 28
          Height = 21
-          Hint = 
-            'Temps de filtrage des d'#233'tecteurs qui passent '#224' 0'#39'+#13+'#39'Mode auto' +
-            'nome uniquement'#39
          EditLabel.Width = 177
          EditLabel.Height = 13
          EditLabel.Caption = 'Nombre maximal d'#39#39#233'l'#233'ments par route'
@@ -4915,9 +4913,6 @@ object FormConfig: TFormConfig
          Top = 190
          Width = 44
          Height = 21
-          Hint = 
-            'Temps de filtrage des d'#233'tecteurs qui passent '#224' 0'#39'+#13+'#39'Mode auto' +
-            'nome uniquement'#39
          EditLabel.Width = 124
          EditLabel.Height = 13
          EditLabel.Caption = 'Nombre maximal de routes'
@@ -4965,7 +4960,6 @@ object FormConfig: TFormConfig
          Top = 41
          Width = 28
          Height = 21
-          Hint = 'Algorithme de localisation des trains'
          EditLabel.Width = 335
          EditLabel.Height = 13
          EditLabel.Caption = 
@@ -5033,7 +5027,6 @@ object FormConfig: TFormConfig
          Top = 33
          Width = 164
          Height = 21
-          Hint = 'Algorithme de localisation des trains'
          EditLabel.Width = 99
          EditLabel.Height = 26
          EditLabel.Caption = 'Chemin Win de CDM (Sans \CDM-Rail)'
@@ -5099,6 +5092,22 @@ object FormConfig: TFormConfig
          TabOrder = 3
        end
      end
+      object ValueListEditor: TValueListEditor
+        Left = 312
+        Top = 352
+        Width = 297
+        Height = 105
+        Hint = 'Liste de valeurs'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 6
+        OnDrawCell = ValueListEditorDrawCell
+        OnMouseMove = ValueListEditorMouseMove
+        OnSetEditText = ValueListEditorSetEditText
+        ColWidths = (
+          150
+          141)
+      end
    end
  end
  object ButtonEnregistre: TButton
@@ -5177,8 +5186,7 @@ object FormConfig: TFormConfig
    end
  end
  object PopupMenuFL: TPopupMenu
-    Left = 588
-    Top = 224
+    Left = 804
    object M1: TMenuItem
      Caption = 'Monter'
      OnClick = M1Click
@@ -5360,24 +5368,24 @@ object FormConfig: TFormConfig
      0000000080000000000000008000000000000000800000000000000000000000
      8000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF000000FF000000FF00
+      0000FF0000000000000000000000000000000000000000000000000000000000
+      0000FF000000FF000000FF000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000080000000000000008000000000000000800000000000000000000000
      80000000000000000000000000000000000000000000000000000000FF000000
      FF000000FF000000FF000000FF000000FF000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF000000FF000000FF00
+      0000FF0000000000000000000000000000000000000000000000000000000000
+      0000FF000000FF000000FF000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000080000000000000008000000000000000800000000000000080000000
      80000000000000000000000000000000000000000000000000000000FF000000
      FF000000FF000000FF000000FF000000FF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      0000FF000000FF00000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@@ -5385,6 +5393,7 @@ object FormConfig: TFormConfig
      8000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FF000000FF000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@@ -5392,8 +5401,7 @@ object FormConfig: TFormConfig
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FF000000FF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000008080000080800000808000008080
@@ -5401,7 +5409,7 @@ object FormConfig: TFormConfig
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FF000000FF000000FF00000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000008080000080800000808000008080
@@ -5409,67 +5417,67 @@ object FormConfig: TFormConfig
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000000000000000000000000
+      00000000000000000000FF000000FF000000FF000000FF000000000000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF008080000000000000000000000000
      0000808000008080000080800000000000000000000000000000808000008080
      0000000000000000000000000000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000000000000808000008080
+      00000000000000000000FF000000FF00000000000000FF000000FF0000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF008080000000000000808000008080
      0000000000008080000000000000808000008080000080800000808000000000
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FF000000FF0000000000000000000000FF000000FF00
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000000000000808000008080
+      00000000000000FFFF0000FFFF0000FFFF008080000000000000808000008080
      0000000000008080000000000000808000008080000080800000808000000000
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FF000000FF0000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000000000000808000008080
+      00000000000000FFFF0000FFFF0000FFFF008080000000000000808000008080
      0000000000008080000000000000808000008080000080800000808000000000
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000000000000000000000000
+      00000000000000000000FF000000FF0000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF008080000000000000000000000000
      0000808000008080000080800000000000000000000000000000808000008080
      0000000000000000000000000000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FF00
+      00000000000000000000FF000000FF0000000000000000000000FF0000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000080800000808000008080
+      00000000000000FFFF0000FFFF0000FFFF008080000080800000808000008080
      0000808000008080000080800000808000008080000080800000808000008080
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FF00
+      0000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000
+      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008080000080800000808000008080
+      00000000000000FFFF0000FFFF0000FFFF008080000080800000808000008080
      0000808000008080000080800000808000008080000080800000808000008080
      0000808000008080000080800000808000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FF
      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
      FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@@ -5602,11 +5610,11 @@ object FormConfig: TFormConfig
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000FFFFFFFFFE7FFE7FFB47FFFFFE7FFE7F
-      F56FFFFFFE7FFE7FF56FC0FFFE7FFE7FF54FC0FFFE7FFE7FFB6FFFFFFE7FFE7F
-      FFFFFFFFFE7FFE7F0000B6DBFE7FFE0000000000FE7FFE000000B6DBFE7FFE7F
-      00000000FE7FFE7F0000B6DBFE7FFE7F0000FFFFFE7FFE7F0000FFFFFE7FFE7F
-      0000FFFFFE7FFE7F0000FFFFFE7FFE7F0000FFFFFFFFFFFF0000F837F9FFFFFF
+      00000000000000000000000000000000FFFFFFFFFFFFFFFFFB47FFFFFFFF742E
+      F56FFFFF87F175EEF56FC0FF87F1546AF54FC0FFF3FF25E4FB6FFFFFF9FF742E
+      FFFFFFFFFCFFFFFF0000B6DBFC7FFFFF00000000FC3F00000000B6DBFC9F0000
+      00000000FCCF00000000B6DBFCFF00000000FFFFFCFF00000000FFFFECDF0000
+      0000FFFFE01F00000000FFFFFFFF00000000FFFFFFFFFFFF0000F837F9FFFFFF
      0000F387FCFFFC3F0000E7CFF27FF00F0000E78FF93FE3870000F327FC9FE7E7
      0000F87FFE7FCFF30000FE7FFF3FCFF30000FC3FFE7FCFF30000F99FFCFFCFF3
      0000F99FF9FFE7E70000F99FF3FFE3C70000FC3FFFFFF00F0000FFFFFFFFFC3F