V3.4

2022-01-30 11:16:37 +01:00
parent 86979f40ea
commit c85bf9564d
26 changed files with 2873 additions and 2006 deletions
--- a/UnitConfig.dfm
+++ b/UnitConfig.dfm
@@ -1230,8 +1230,8 @@ object FormConfig: TFormConfig
    Visible = False
  end
  object ImageTJD: TImage
-    Left = 744
-    Top = 416
+    Left = 736
+    Top = 400
    Width = 137
    Height = 57
    Picture.Data = {
@@ -1366,9 +1366,9 @@ object FormConfig: TFormConfig
    Visible = False
  end
  object ImageTri: TImage
-    Left = 744
-    Top = 432
-    Width = 145
+    Left = 736
+    Top = 360
+    Width = 137
    Height = 65
    Picture.Data = {
      07544269746D617076120000424D761200000000000076000000280000008900
@@ -1536,208 +1536,6 @@ object FormConfig: TFormConfig
    Height = 13
    Caption = 'Verrouillable au carr'#233' :'
  end
-  object Image2: TImage
-    Left = 768
-    Top = 440
-    Width = 129
-    Height = 41
-    Picture.Data = {
-      07544269746D617006180000424D06180000000000007600000028000000CA00
-      00003A000000010004000000000090170000120B0000120B0000100000000000
-      0000000000000000800000800000008080008000000080008000808000008080
-      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
-      FF00CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCC8888887
-      7CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC00
-      0000CCCCC88888888888888887CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCC88887CCCCC000000CCCC48888888888888888888888777CCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCC777888888888887CCCCC000000CCCCC88888888888888888888888
-      8888888888C7777CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCC7C77788888888888888888888887CCCCC000000CCCCC8888888
-      8888888888888888888888888888888888888887CCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCC7C7888888888888888888888888888888888888CCCCC00
-      0000CCCC78888888888888888888888888888888888888888888888888888888
-      88877877C77CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCC7C77777777888888888888888888888888888888888888888
-      888888888CCCCC000000CCCC4000077888888888888888888888888888888888
-      8888888888888888888888888888888888888888888788888C77CC8CCCC8CC8C
-      C7C8778C78788787888888888888888888888888888888888888888888888888
-      88888888888888888888888884CCCC000000CCCC788877700000000777888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888888887774CCCC000000CCCC88888888
-      8878877000000008788888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888888888888877770000000070CCCCC00
-      0000CCCC88888888888888888888777000000007778878888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888887770000000077
-      7888888887CCCC000000CCC48888888888888888888888888888888707000000
-      0077077788888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888877777770000
-      00000777888888888888888887CCCC000000CCC4888888888888888888888888
-      8888888888888888770770000000077077777788888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888787707
-      000000000007777788888888888888888888888888CCCC000000CCC788888888
-      8888888888888888888888888888888888888888878887787700700000000000
-      7007707777777787787788788888888887888878778888787787777777700000
-      0000000000000777778888888888888888888888888888888888888887CCCC00
-      0000CCC788888888888888888888888888888888888888888888888888888888
-      8888888888877887777007007000000000000000000000000000000000000000
-      0000000707777777878788888888888888888888888888888888888888888888
-      8888888887CCCC000000CCC78888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888878
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888888888888888888CCCC000000CC48888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888888888888CCCC000000CC4888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888888888888888888888888888888888888888888888888887CCC00
-      0000CC7888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888887CCC000000CC788888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888887CCC000000CC40377788888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888887CCC000000CCCCCC440040
-      7778888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888888888888888888888888888888888888888888888888887CCC00
-      0000CCCCCCCCCCCCCC4400737888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88877303000CCC000000CCCCCCCCCCCCCCCCCCC4440400777888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888887777000004444CCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCC4
-      4400307778888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888887773300000444CCCCCCCCCCCCCCC000000CCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCC4404400777888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888877730004404C4CCCCCCCCCCCCCCCCCCCCCCC00
-      0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC44400003777888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888887730300444CCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCC0000078888888888888888888888888888888888888888888888888888888
-      88888888888888888888888888888888888888888887770044444CCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCC4C40400377788888888888888888888888888888888888888888888
-      888888888888888888888888888888888888888888888888888888888000000C
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCC44440003777788888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888887770C44CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC00
-      0000CCCCCCCCCCCCCCCCCCCC4440040037778888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888888877744444CCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCC000000CCCCCCCCCCCCC4440003078788888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888773
-      0444CCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCC444000300778788888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888888888887730400444CCCCCCCCCCCCCCCCC000000CC0377778888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888888888888888888877300444444CCCCCCCC00
-      0000CC7888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88887707044CCC000000CC788888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888888CCC000000CC48888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888887CCC000000CCC888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888888888888888888888888888888888888888888888888887CCC00
-      0000CC4788888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888887CCC000000CCC88888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      888888888888888888888888887CCC000000CCC8888888888888888888888888
-      8888888888888888888888888888888888888878787777777770770700707707
-      0000000000700770770777777778778878888888888888888888888888888888
-      888888888888888888888888888888888888888888CCCC000000CCC788888888
-      8888888888888888888888888888888887777770700000000000000000777777
-      7777777777787777777877878877777777770077077070000000000070077777
-      8878888888888888888888888888888888888888888888888888888888CCCC00
-      0000CCC488888888888888888888888888888877077700000000070777777778
-      8888888888888888888888888888888888888888888888888888888888888888
-      8887887777770700000000000707877888888888888888888888888888888888
-      8888888888CCCC000000CCC78888888888888888887777000000000707778788
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888878777700000000700777888888
-      88888888888888888888888887CCCC000000CCC4888888887777000000000077
-      7888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      887707700000000007778888888888888888888887CCCC000000CCCC78777000
-      0000777788888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888788777000007778888888888888887CCCC00
-      0000CCCC00077778888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888888888888888887770000007
-      778888888CCCCC000000CCCC7888888888888888888888888888888888888888
-      8888888888888888888888888888888888888888878888788787887877887888
-      8888888888888888888888888888888888888888888888888888888888888888
-      88888888888887700000070784CCCC000000CCCC788888888888888888888888
-      8888888888888888888888888888888878C7CCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC88888888888888888888888888
-      888888888888888888888888888888888888777004CCCC000000CCCC78888888
-      8888888888888888888888888888888777C7CCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCC7777C888888888888888888888888888888888888888888888888CCCCC00
-      0000CCCC4888888888888888888888888777CCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC7788788888888888888888888888888
-      888888888CCCCC000000CCCCC8888888888888887CCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC77CC8
-      8888888888888888888888887CCCCC000000CCCCC88887C7CCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCC777888888888888888887CCCCC000000CCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC7888888888887CCCCC00
-      0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CC777888CCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000}
-    Proportional = True
-    Visible = False
-  end
  object Label29: TLabel
    Left = 144
    Top = 68
@@ -1748,8 +1546,8 @@ object FormConfig: TFormConfig
  object Label20: TLabel
    Left = 648
    Top = 312
-    Width = 170
-    Height = 52
+    Width = 221
+    Height = 39
    Caption = 
      'Les param'#232'tres en vert doivent '#234'tre valid'#233's en appuyant sur la t' +
      'ouche ENTREE apr'#232's leur introduction/modification'
@@ -1788,6 +1586,7 @@ object FormConfig: TFormConfig
    Font.Style = []
    ParentFont = False
    TabOrder = 2
+    OnChange = PageControlChange
    object TabSheetCDM: TTabSheet
      Caption = 'CDM Rail'
      object GroupBox1: TGroupBox
@@ -2436,7 +2235,7 @@ object FormConfig: TFormConfig
        object GroupBox10: TGroupBox
          Left = 8
          Top = 80
-          Width = 273
+          Width = 177
          Height = 73
          Caption = 'Vitesse de franchissement d'#233'vi'#233' :'
          TabOrder = 0
@@ -2770,6 +2569,32 @@ object FormConfig: TFormConfig
              'Non positionn'#233)
          end
        end
+        object GroupBoxEtatTJD: TGroupBox
+          Left = 192
+          Top = 80
+          Width = 89
+          Height = 73
+          Caption = 'Type TJD'
+          TabOrder = 8
+          object RadioButtonTJD2: TRadioButton
+            Left = 8
+            Top = 24
+            Width = 65
+            Height = 17
+            Caption = '2 '#233'tats'
+            TabOrder = 0
+            OnClick = RadioButtonTJD2Click
+          end
+          object RadioButtonTJD4: TRadioButton
+            Left = 8
+            Top = 40
+            Width = 65
+            Height = 17
+            Caption = '4 '#233'tats'
+            TabOrder = 1
+            OnClick = RadioButtonTJD4Click
+          end
+        end
      end
      object RichAig: TRichEdit
        Left = 0
@@ -3051,7 +2876,7 @@ object FormConfig: TFormConfig
          Top = 48
          Width = 129
          Height = 21
-          ItemHeight = 13
+          ItemHeight = 0
          TabOrder = 1
          OnChange = ComboBoxDecChange
        end
@@ -3062,7 +2887,6 @@ object FormConfig: TFormConfig
          Height = 21
          TabOrder = 3
          OnChange = EditDet1Change
-          OnKeyPress = EditDet1KeyPress
        end
        object EditSuiv1: TEdit
          Left = 184
@@ -3073,7 +2897,6 @@ object FormConfig: TFormConfig
          ShowHint = True
          TabOrder = 4
          OnChange = EditSuiv1Change
-          OnKeyPress = EditSuiv1KeyPress
        end
        object EditDet2: TEdit
          Left = 120
@@ -3082,7 +2905,6 @@ object FormConfig: TFormConfig
          Height = 21
          TabOrder = 5
          OnChange = EditDet2Change
-          OnKeyPress = EditDet2KeyPress
        end
        object EditSuiv2: TEdit
          Left = 184
@@ -3093,7 +2915,6 @@ object FormConfig: TFormConfig
          ShowHint = True
          TabOrder = 6
          OnChange = EditSuiv2Change
-          OnKeyPress = EditSuiv2KeyPress
        end
        object EditDet3: TEdit
          Left = 120
@@ -3102,7 +2923,6 @@ object FormConfig: TFormConfig
          Height = 21
          TabOrder = 7
          OnChange = EditDet3Change
-          OnKeyPress = EditDet3KeyPress
        end
        object EditSuiv3: TEdit
          Left = 184
@@ -3113,7 +2933,6 @@ object FormConfig: TFormConfig
          ShowHint = True
          TabOrder = 8
          OnChange = EditSuiv3Change
-          OnKeyPress = EditSuiv3KeyPress
        end
        object EditDet4: TEdit
          Left = 120
@@ -3122,7 +2941,6 @@ object FormConfig: TFormConfig
          Height = 21
          TabOrder = 9
          OnChange = EditDet4Change
-          OnKeyPress = EditDet4KeyPress
        end
        object EditSuiv4: TEdit
          Left = 184
@@ -3133,7 +2951,6 @@ object FormConfig: TFormConfig
          ShowHint = True
          TabOrder = 10
          OnChange = EditSuiv4Change
-          OnKeyPress = EditSuiv4KeyPress
        end
        object CheckVerrouCarre: TCheckBox
          Left = 120
@@ -3157,7 +2974,6 @@ object FormConfig: TFormConfig
          TabOrder = 0
          Text = ' '
          OnChange = EditAdrSigChange
-          OnKeyPress = EditAdrSigKeyPress
        end
        object ComboBoxAsp: TComboBox
          Left = 144
@@ -3188,7 +3004,6 @@ object FormConfig: TFormConfig
          TabOrder = 14
          Visible = False
          OnChange = EditSpecUniChange
-          OnKeyPress = EditSpecUniKeyPress
        end
        object Buttonrestaure: TButton
          Left = 8
@@ -3290,11 +3105,11 @@ object FormConfig: TFormConfig
        TabOrder = 0
        object Label40: TLabel
          Left = 16
-          Top = 328
-          Width = 191
+          Top = 344
+          Width = 222
          Height = 26
          Caption = 
-            'Les accessoires ne sont utilisables qu'#39'en mode connect'#233' avec CDM' +
+            'Les actionneurs ne sont utilisables qu'#39'en mode connect'#233' avec CDM' +
            ' Rail'
          WordWrap = True
        end
@@ -3493,8 +3308,8 @@ object FormConfig: TFormConfig
          end
        end
        object GroupBoxAct: TGroupBox
-          Left = 40
-          Top = 248
+          Left = 64
+          Top = 112
          Width = 225
          Height = 225
          Caption = 'Actionneur fonction de locomotive '