V5.2

2022-12-15 20:57:45 +01:00
parent b5b43f25a1
commit 13121a1ae5
43 changed files with 18813 additions and 985 deletions
--- a/UnitConfig.dfm
+++ b/UnitConfig.dfm
@@ -1,6 +1,6 @@
 object FormConfig: TFormConfig
-  Left = 236
-  Top = 124
+  Left = 253
+  Top = 95
  Hint = 'Modifie la configuration selon les s'#233'lections choisies'
  BorderStyle = bsDialog
  Caption = 'Configuration g'#233'n'#233'rale'
@@ -1570,7 +1570,7 @@ object FormConfig: TFormConfig
    Top = 8
    Width = 633
    Height = 505
-    ActivePage = TabSheetAutonome
+    ActivePage = TabSheetAct
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
@@ -1583,7 +1583,7 @@ object FormConfig: TFormConfig
      Caption = 'CDM Rail'
      object Label36: TLabel
        Left = 24
-        Top = 440
+        Top = 456
        Width = 369
        Height = 13
        Caption = 
@@ -1799,13 +1799,13 @@ object FormConfig: TFormConfig
        Left = 312
        Top = 184
        Width = 281
-        Height = 137
+        Height = 113
        Caption = 'Au d'#233'marrage de CDM Rail : interface LENZ'
        TabOrder = 3
        object RadioButton13: TRadioButton
          Left = 8
          Top = 24
-          Width = 209
+          Width = 97
          Height = 17
          Caption = 'Automatique'
          TabOrder = 0
@@ -1843,8 +1843,8 @@ object FormConfig: TFormConfig
          TabOrder = 4
        end
        object RadioButton18: TRadioButton
-          Left = 8
-          Top = 104
+          Left = 152
+          Top = 24
          Width = 113
          Height = 17
          Caption = 'Genli'
@@ -1855,19 +1855,19 @@ object FormConfig: TFormConfig
        Left = 16
        Top = 296
        Width = 273
-        Height = 137
+        Height = 145
        Caption = 'Services CommIP CDM Rail'
        TabOrder = 4
        object Label6: TLabel
          Left = 8
-          Top = 18
+          Top = 26
          Width = 215
          Height = 13
          Caption = 'Liste des '#233'v'#232'nements demand'#233's '#224' CDM Rail:'
        end
        object CheckBoxServAig: TCheckBox
          Left = 8
-          Top = 40
+          Top = 48
          Width = 113
          Height = 17
          Caption = 'Aiguillages'
@@ -1875,7 +1875,7 @@ object FormConfig: TFormConfig
        end
        object CheckBoxServDet: TCheckBox
          Left = 8
-          Top = 56
+          Top = 64
          Width = 89
          Height = 17
          Caption = 'D'#233'tecteurs'
@@ -1883,7 +1883,7 @@ object FormConfig: TFormConfig
        end
        object CheckBoxServAct: TCheckBox
          Left = 8
-          Top = 72
+          Top = 80
          Width = 81
          Height = 17
          Caption = 'Actionneurs'
@@ -1891,15 +1891,15 @@ object FormConfig: TFormConfig
        end
        object CheckServPosTrains: TCheckBox
          Left = 8
-          Top = 88
-          Width = 169
+          Top = 96
+          Width = 145
          Height = 17
-          Caption = 'Position des trains (non utilis'#233')'
+          Caption = 'Position trains (non utilis'#233')'
          TabOrder = 3
        end
        object CheckBoxSrvSig: TCheckBox
          Left = 8
-          Top = 104
+          Top = 112
          Width = 113
          Height = 17
          Caption = 'Signaux (non utilis'#233')'
@@ -1908,9 +1908,9 @@ object FormConfig: TFormConfig
      end
      object GroupBox15: TGroupBox
        Left = 312
-        Top = 328
+        Top = 304
        Width = 281
-        Height = 89
+        Height = 137
        Caption = 'Divers'
        TabOrder = 5
        object Label31: TLabel
@@ -1934,6 +1934,13 @@ object FormConfig: TFormConfig
          Height = 13
          Caption = 'Nombre de cantons pr'#233'sence train avant signal'
        end
+        object Label55: TLabel
+          Left = 8
+          Top = 90
+          Width = 32
+          Height = 13
+          Caption = 'Debug'
+        end
        object EditNbDetDist: TEdit
          Left = 240
          Top = 20
@@ -1966,14 +1973,26 @@ object FormConfig: TFormConfig
          TabOrder = 2
          Text = 'EditNbCantons'
        end
+        object EditDebug: TEdit
+          Left = 240
+          Top = 88
+          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)'
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 3
+        end
      end
    end
    object TabSheetAutonome: TTabSheet
      Caption = 'Mode autonome'
      ImageIndex = 1
      object Label9: TLabel
-        Left = 0
-        Top = 448
+        Left = 16
+        Top = 456
        Width = 294
        Height = 13
        Caption = 'Ces param'#232'tres sont utilis'#233's en fonctionnement sans CDM Rail'
@@ -1996,7 +2015,7 @@ object FormConfig: TFormConfig
        object Label4: TLabel
          Left = 16
          Top = 45
-          Width = 126
+          Width = 138
          Height = 26
          Caption = '2. Temporisation d'#39'envoi des octets de la trame (ms)'
          WordWrap = True
@@ -2141,7 +2160,7 @@ object FormConfig: TFormConfig
      end
      object Memo3: TMemo
        Left = 312
-        Top = 208
+        Top = 200
        Width = 297
        Height = 89
        BevelInner = bvLowered
@@ -2159,7 +2178,7 @@ object FormConfig: TFormConfig
      end
      object Memo4: TMemo
        Left = 312
-        Top = 312
+        Top = 296
        Width = 297
        Height = 57
        BevelInner = bvLowered
@@ -2176,7 +2195,7 @@ object FormConfig: TFormConfig
        Left = 8
        Top = 280
        Width = 297
-        Height = 121
+        Height = 161
        Caption = 'Au d'#233'marrage de signaux complexes en mode autonome'
        TabOrder = 7
        object Label32: TLabel
@@ -2239,6 +2258,14 @@ object FormConfig: TFormConfig
          ShowHint = True
          TabOrder = 4
        end
+        object CheckRoulage: TCheckBox
+          Left = 16
+          Top = 120
+          Width = 169
+          Height = 17
+          Caption = 'Option roulage des trains'
+          TabOrder = 5
+        end
      end
      object GroupBox22: TGroupBox
        Left = 312
@@ -3017,7 +3044,7 @@ object FormConfig: TFormConfig
          Width = 129
          Height = 21
          Style = csDropDownList
-          ItemHeight = 0
+          ItemHeight = 13
          TabOrder = 1
          OnChange = ComboBoxDecChange
        end
@@ -4143,6 +4170,364 @@ object FormConfig: TFormConfig
        end
      end
    end
+    object TabSheetDccpp: TTabSheet
+      Caption = 'DCC++'
+      ImageIndex = 6
+      ParentShowHint = False
+      ShowHint = False
+      object Label10: TLabel
+        Left = 16
+        Top = 33
+        Width = 317
+        Height = 13
+        Caption = 'Liste des commandes envoy'#233'es '#224' l'#39'interface DCC++ '#224' la connexion'
+      end
+      object Image2: TImage
+        Left = 248
+        Top = 408
+        Width = 105
+        Height = 65
+        Picture.Data = {
+          0A544A504547496D6167654A0F0000FFD8FFE000104A46494600010101006000
+          600000FFDB004300020101020101020202020202020203050303030303060404
+          0305070607070706070708090B0908080A0807070A0D0A0A0B0C0C0C0C07090E
+          0F0D0C0E0B0C0C0CFFDB004301020202030303060303060C0807080C0C0C0C0C
+          0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+          0C0C0C0C0C0C0C0C0C0C0C0C0CFFC00011080041006203012200021101031101
+          FFC4001F0000010501010101010100000000000000000102030405060708090A
+          0BFFC400B5100002010303020403050504040000017D01020300041105122131
+          410613516107227114328191A1082342B1C11552D1F02433627282090A161718
+          191A25262728292A3435363738393A434445464748494A535455565758595A63
+          6465666768696A737475767778797A838485868788898A92939495969798999A
+          A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
+          D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
+          01010101010101010000000000000102030405060708090A0BFFC400B5110002
+          0102040403040705040400010277000102031104052131061241510761711322
+          328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
+          292A35363738393A434445464748494A535455565758595A636465666768696A
+          737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
+          A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
+          E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00FDFC
+          A28A2800A28A2800AF857F6B1FF828BEB7F137C69E22F87BF0375DBBD3E7F0CC
+          7729ABF8BB4FD1ADB5363776FB44F6D60D7D245A704B47921FB6DD5CCA6384CD
+          0DBA4724F316B7F60F1778B755FDB87C55A9F837C1BA9EA1A37C28D16EA5D3BC
+          5DE2ED3AE1EDEEBC457113949F45D2674219151D5A3BCBF8C83110F6D6EC2E44
+          D358F8F7FC14CBE01E8DF0D6C3C1FAFE929359E83E19D3A0B1D37C3963A4D9CF
+          A6F872CF498AEAEE7B9B3B7B97FB140574E3720446CEE4BDC59E92E1156CC86D
+          E945735A471E32A4D53728EDD7BDBCBF4F331BF63AFF008299789BC3DE22D4AC
+          BE27EA2FE29F86F04F6B6CBF10927B3BE8742B8B8792287EDF7B616D6B653D94
+          F244DE5DE416F12C01E049C6E91DE2FD04AFCA1F881E14D2BE265CBEA12F8834
+          DF187883489BCBBCB5F0A6A1A9FC4FD66E143EC981BA6B73A7584D146F3BC36E
+          F6296C6666865916D2F2FA3B8F7CFD9BFF006A8D2BF6559DB487D4B53D47F67A
+          6BCB7B2D1B58D5096BBF86DF6A4492C6DAF252CC27D0EE629626B3BF0EC2DF78
+          B69D86CCC5A55A6A5AC159F6FEBFA7EA7261B17283E5AB2BAEFF00E7E5F97F87
+          6FB8A8A28AE43D70A28A2800A28A2800A28A2800AF08FDB6F57D435CD5FE14FC
+          398B56D43C3FA27C57F154BA0EBBA8D85C3DADF3D943A4EA1A83D9DB5C210F6F
+          2DC9B2589A542B22C26E3CA78A6314A9EEF5CBFC65F837E1FF008F9F0EEFBC2F
+          E26B496EF4CBE31CA1A09E4B6BAB39E2916582EADE78CAC905C432A24B14D1B2
+          BC72468EAC1941AA8BB3D48A89B8D93FEBFE0EC6C7847C25A57803C2BA6683A1
+          69B61A2E89A2DAC563A7E9F636E96F6B636F12048E18A34015234450AAAA0000
+          000002BE50FF0082BAF8B67BDF8596DE0AB6F095AEB53EB9A5EAB776FAA6A7E0
+          DBCD72CACEF3ECA6CAD2CADEE21C4763A95E4F7C2382E257DAAAB32EC769115B
+          D37E0F7C6ED7BE16FC40B2F857F16B508AE3C4579BD7C25E2E68A3B5B4F1EC08
+          A58C4EA816383578A352D35B20549D15AE6D94462E2DECBE797BCF883FB4778D
+          EF75CD5F4FF1FF008B7C0F6FAEDDCF03F8135DB0FECAB89ADAE17FB364B45BF9
+          AD0BDBDAC48933CD1C73BCFA907689A386DA359B6A31B4B99F43931B3E6A7ECE
+          2B591D1EAFE2DF15F8A7549EE2CFC57FB49DD86959E18B4BF00695A2C2A85895
+          03FB62C3CE040C0DC6407BF06B3BF646B7F0CF83FE28CBE15F10FC38F891737F
+          AE5DDDFC3692F758D5AC2EB42B4D35ACA7D76C747BAD3E3BF6888834E9162568
+          ADA545F39D448A269D46EBEBBE14D24B0D63E227ED19E10110FDF4DAF6937F67
+          656C7D1EF65D38D9FE22623DF835E53E05BFD53E347C60BDD23E10F8D35CD7BC
+          723C5D79AD5D6B17AF697BA27826D21B07F0F43AC5F7970AFDAEFAEAD2DE496C
+          AD124549524867915624667D22B46B65F71C952A2538CAF777DAF7D3AD936F5F
+          EB63E98FD896C64F849F127E28FC20D3B54BDD6FC17F0DAE74D7F0EC97539B99
+          B4082F6D4CC743799B2F20B50892C7E612E96D7D6B192422B37D0F5C3FECF5FB
+          3E7877F667F86F0F86BC3A97B323CF25FEA3A96A139BAD4B5CBE94EE9EFAF273
+          CCD712B72CE700615542A2AA2F715CD5249CAE8F4E841C29A8BFF86F2F96C145
+          14541B051451400515CE78D754F17585E40BE1DD13C39AADBB21333EA5ADCDA7
+          BA36780AB1DA4E1863B965FA77AC5FF848BE287FD09FE02FFC2C2EFF00F95940
+          1DED15C17FC245F143FE84FF00017FE16177FF00CACA3FE122F8A1FF00427F80
+          BFF0B0BBFF00E565005BFDA03F67FF00097ED43F09358F03F8E347835CF0E6B7
+          1849EDE4255E37560F1CD13AE1A29A3755749108647556520806BE63F86FF0B5
+          BE0AFC44B5F86DE26F1B78BFE1EF8A751629E14F13E89A8C51685E39B74CB35B
+          A697771CFA5D96AC8A0B4F6F6F6D109D435CDB6D413DBD97D23FF0917C50FF00
+          A13FC05FF8585DFF00F2B2B0FE24784BC57F193C197BE1BF17FC2EF84DE2BF0F
+          6A4AAB77A5EB1E219AFACAE82B06024865D2991C06008C838201AB8CDAD3A18D
+          4A3193E6B6A789FC4DF899F18FC4FF0011F58F81BE09F14F8335EF17DFE9E3FB
+          67C61A6E9171A749F0C2CA60152E6EE23713C373A8CD1177B6851E02640B2B42
+          2DD59ABE82FD96BF65CF07FEC77F0634AF02F822C25B4D274D40649EE2533DEE
+          A53EC546B9B994F32CCC11416380AA888A15111170BE157C3EF117C08F0743E1
+          DF03FC25F83FE0DF0FDBBB491699A1EBB2E9D671331CB32C30E94A8093C92073
+          5D1FFC245F143FE84FF017FE16177FFCACA73A97565B134A872CB9E4EEFA792E
+          CBF57D7D2C8EF68AE0BFE122F8A1FF00427F80BFF0B0BBFF00E5651FF0917C50
+          FF00A13FC05FF8585DFF00F2B2B33A0EF68AE0BFE122F8A1FF00427F80BFF0B0
+          BBFF00E5656CF82F54F185F6A132F88B43F0DE976AB1E62934ED767BF91DF23E
+          56492D200AB8C9C86273C63B800E928A28A00FC46FF82747FC11F3E13FFC14D3
+          C53FB4878DFE275F78EA6F10691F1A3C43A3452E9DAD9B747815A29C170C8E59
+          F7CF27CD9E9B4638E7D5FC33F012EBFE0891FF000549FD9EBC09F0DFC75E38D7
+          3E0FFED0A756D2B54F09F8835017B1697796B1C256EED982AAC64BDCDBE7E42E
+          5639833B078C4597FB32F83BF6EAFF00827778D3E35687E02FD99FC37E3FF0DF
+          8E7E25EB3E2FB4D5EF3C6BA65A19E2B991123291B5DA3AA3470A381222B82E41
+          03181EADF007F64DFDA67F6DAFDBE7E1D7C72FDA73C37E0FF863E1DF82B05F7F
+          C225E0BD1F508F51BAB8BEBA8D524B9B89A29254DBF2C6F9120F9ADA15F280F3
+          1E4F4E751DDF34938DB6BF91F3B4684128FB3A6D54BEF66BAEB77DAC7837EC9D
+          FF0004D2F057FC1623F68AFDA83C73F1B3C49F10F56D67C1FF0016757F0968F1
+          D8EB7F66B6D3F4DB59310411A18DB6AAAB05C038C2838DC5D9BEACF827FF0004
+          63F841FF0004C6B9F16FC5EF86775E356F17E85E14D522B5FED8D596F6D4030F
+          99931F96B921A24EFEB5E2BE00F849FB69FF00C1357F680F8E767F093E07F837
+          E32F823E2A78F2FF00C7565ABCBE29B4D327B4FB6396FB3491CF71136E45D8A4
+          842A486218860ABEF5FB38FC5DFDAFFF00699F156BBE08F8E3FB3E7877E13F80
+          FC41E1DD42D24F10E9FE29B1D56782E248C471A0822BA918821DCE76E06C1923
+          3515273E925CBDAEBF235A1428A779537ED2EF5B3DEEF5B9F197FC129FFE0889
+          F09BFE0A4BFB097837E37FC58F11FC53D7BE2178FAE755B9D62FBFE1243FE912
+          43AA5DDAAB65E36624A408496624B16E83007DABF05FF64FFD9D3FE0801F07FE
+          227C487F11F8AF40F08F881B4AB7D76FF5996E359103453CD0DA88E2B781A51B
+          A4BE656215872A4E02935F31FEC61A6FFC140FFE09ADFB3A68BF04BC37FB3478
+          0BE23683E07B9BE8EC7C470F8DEC6D63D512E2F67BA322A4D7314A177CEE177C
+          51B6D0B9504127EDCFD80FE31FED1DF1B5BC630FED11F04F40F84F6FA7AD89D0
+          058EBF69AC0D5CB9B8FB4EF10CF2F97E56CB62376DDDE71C6769C4E227377BCA
+          F1BED75B1781A3463CAE34DA9DB7717BDB5D4F977FE09EBFF070AFC39F8EFF00
+          B4578F3C17E3BF889A6893C4DF107FB13E13C169E19D4627D634C9E5115A195D
+          61658DDDD90137062233960A39153F689FF8390BE0FF00843F6D8F849A2F85BE
+          2769F27C2BB3B8F105A7C54B99BC29AA1B8D2E586D42E9AB16EB71236EBB122B
+          18124181962AB863F63FEC7DFB05E93FB237C45F8C7E23B6D6EE35F9FE2F78CE
+          E3C6334573671C4349925CFEE236049655CF0C706A5F8E1FB0A68FF1B3F6C5F8
+          21F17A6D5A4D3AEBE0B7F6EF93A545651BC1ACFF006A59ADAB79AE4829E505DE
+          B80724F6EB50E7479DBB3B5BF4F437853C62A29392E6BAE9D2FF00E2EDFE47C7
+          9FB6AFC77F83FF00B557C7EF82DE32D57C53AADCFC18F13F852E7508352B3B7B
+          BB791D5A4B858DD2178BCD42D2C71A9CC60E1467819117813E11FEC5BF12BC6B
+          A4787747F1978F6E756D72F22B1B3848BB8C4B348E1517735B055CB10324802B
+          E94FDB47F67BF8807F688F87FF00157E1BF87745F18DD7856C6E74ABAF0FDEDC
+          C768AE92AC8165569195081E6BE41604154C0605B6E241F15FF69EB49D258BF6
+          6CF05C72C6C195D7C4160ACA477044FC1AFB6C363BFD8A94685571B46D6F6B08
+          59DDEF192BBE9ADECCFC2734C86D9DE32AE61845514EAA926F095AB3943920BD
+          DA94E6A295D34A2D37177BDEF61FFB6BFC10D67F669F88CFFB457C2F548B51D3
+          173E33D0DA5F2AD75DB2E3CC9BD1640002DC1C955900DE8C25E67E0EE9BA87FC
+          156BE372FC40F1459BD8FC18F02DE35BE83E1D9DD59B58BC50ACD2DDAA921B01
+          94B29CA60AC6378F399FBCFDA83E077C4DFDB3BE3AE9DE0BD5B4DB9F097C0DD1
+          655BDD4AED750B76B9F154B1B2958C24523491C793F2870A06D691B2E2255A43
+          F65FF19FEC69FB4E45E2AF837E1D7D7FE1D78C182789FC2505F5BDA9D35D7A5D
+          5A1B89113232488F7633B93E54643171D0C5535858C25523F58E57CB2BAF763F
+          CAE57B29DAF66FE14F96E9B56F6B1D9557966D3AD4F0D53FB3BDAC5D4A767EFD
+          5D6F5634F979A5494B95CD2D2725CEA3249F37D73451457C51FB785145140051
+          4514005145140051451400514514005145140051451401FFD9}
+        Transparent = True
+      end
+      object Label19: TLabel
+        Left = 8
+        Top = 8
+        Width = 276
+        Height = 13
+        Caption = 'Configuration de l'#39'interface DCC++ pour le mode autonome'
+      end
+      object RichCdeDccpp: TRichEdit
+        Left = 8
+        Top = 48
+        Width = 577
+        Height = 241
+        Color = clBlack
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clAqua
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        OnChange = RichCdeDccppChange
+      end
+      object GroupBox23: TGroupBox
+        Left = 8
+        Top = 328
+        Width = 577
+        Height = 81
+        Caption = 'Options'
+        TabOrder = 1
+        object Label29: TLabel
+          Left = 72
+          Top = 44
+          Width = 312
+          Height = 13
+          Caption = 
+            'Adresse de base '#224' ajouter aux d'#233'tecteurs renvoy'#233's par la central' +
+            'e'
+        end
+        object CheckEnvAigDccpp: TCheckBox
+          Left = 8
+          Top = 16
+          Width = 369
+          Height = 25
+          Caption = 
+            'Envoyer la liste des aiguillages '#224' l'#39'interface DCC++ '#224' la connex' +
+            'ion'
+          TabOrder = 0
+          OnClick = CheckEnvAigDccppClick
+        end
+        object EditBase: TEdit
+          Left = 8
+          Top = 40
+          Width = 57
+          Height = 21
+          TabOrder = 1
+          Text = '513'
+          OnChange = EditBaseChange
+        end
+      end
+      object ButtonEnv: TButton
+        Left = 8
+        Top = 296
+        Width = 129
+        Height = 25
+        Hint = 'Envoi les commandes si l'#39'interface DCC++ est connect'#233'e'
+        Caption = 'Envoyer les commandes'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 2
+        OnClick = ButtonEnvClick
+      end
+    end
+    object TabSheetTrains: TTabSheet
+      Caption = 'Trains'
+      ImageIndex = 7
+      object Label54: TLabel
+        Left = 16
+        Top = 8
+        Width = 392
+        Height = 13
+        Caption = 
+          'Liste des trains d'#233'clar'#233's du r'#233'seau - Pour utilisation en mode a' +
+          'utonome uniquement'
+      end
+      object LabelInfVitesse: TLabel
+        Left = 320
+        Top = 240
+        Width = 256
+        Height = 26
+        Caption = 
+          'Les param'#232'tres de vitesse ne sont utilis'#233's que dans le mode roul' +
+          'age'
+        WordWrap = True
+      end
+      object RichEditTrains: TRichEdit
+        Left = 8
+        Top = 64
+        Width = 289
+        Height = 385
+        Color = clBlack
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clAqua
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = []
+        ParentFont = False
+        ReadOnly = True
+        TabOrder = 0
+        OnMouseDown = RichEditTrainsMouseDown
+      end
+      object GroupBox24: TGroupBox
+        Left = 312
+        Top = 64
+        Width = 297
+        Height = 161
+        Caption = 'Trains'
+        TabOrder = 1
+        object Label51: TLabel
+          Left = 16
+          Top = 48
+          Width = 38
+          Height = 13
+          Caption = 'Adresse'
+        end
+        object Label52: TLabel
+          Left = 16
+          Top = 120
+          Width = 80
+          Height = 13
+          Caption = 'Vitesse maximale'
+        end
+        object Label53: TLabel
+          Left = 16
+          Top = 24
+          Width = 22
+          Height = 13
+          Caption = 'Nom'
+        end
+        object Label56: TLabel
+          Left = 16
+          Top = 72
+          Width = 115
+          Height = 13
+          Caption = 'Vitesse '#224' l'#39'avertissement'
+        end
+        object Label57: TLabel
+          Left = 16
+          Top = 96
+          Width = 79
+          Height = 13
+          Caption = 'Vitesse nominale'
+        end
+        object EditNomTrain: TEdit
+          Left = 136
+          Top = 24
+          Width = 145
+          Height = 21
+          TabOrder = 0
+          OnChange = EditNomTrainChange
+        end
+        object EditAdresseTrain: TEdit
+          Left = 136
+          Top = 48
+          Width = 65
+          Height = 21
+          Hint = 'Adresse du d'#233'codeur du train'
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 1
+          OnChange = EditAdresseTrainChange
+        end
+        object EditVitesseMaxi: TEdit
+          Left = 136
+          Top = 120
+          Width = 65
+          Height = 21
+          TabOrder = 2
+          OnChange = EditVitesseMaxiChange
+        end
+        object EditVitRalenti: TEdit
+          Left = 136
+          Top = 72
+          Width = 65
+          Height = 21
+          TabOrder = 3
+          OnChange = EditVitRalentiChange
+        end
+        object EditVitNom: TEdit
+          Left = 136
+          Top = 96
+          Width = 65
+          Height = 21
+          TabOrder = 4
+          OnChange = EditVitNomChange
+        end
+      end
+      object ButtonNT: TButton
+        Left = 0
+        Top = 32
+        Width = 73
+        Height = 17
+        Caption = 'Nouveau'
+        TabOrder = 2
+        OnClick = ButtonNTClick
+      end
+      object ButtonSupprime: TButton
+        Left = 88
+        Top = 32
+        Width = 75
+        Height = 17
+        Caption = 'Supprime'
+        TabOrder = 3
+        OnClick = ButtonSupprimeClick
+      end
+    end
  end
  object ButtonEnregistre: TButton
    Left = 472