V10.2

2025-03-19 15:46:50 +01:00
parent 662da541c0
commit cc07ac603c
20 changed files with 3325 additions and 9903 deletions
@@ -1,11 +1,12 @@
 object FormCompteur: TFormCompteur
-  Left = 555
+  Left = 550
  Top = 218
-  Width = 222
+  Width = 227
  Height = 262
  BorderStyle = bsSizeToolWin
  Caption = 'Compteur'
  Color = clBtnFace
+  TransparentColorValue = clPurple
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
@@ -15,9 +16,8 @@ object FormCompteur: TFormCompteur
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
-  DesignSize = (
-    214
-    231)
+  OnCreate = FormCreate
+  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ImageCompteur: TImage
@@ -27,415 +27,56 @@ object FormCompteur: TFormCompteur
    Height = 128
    PopupMenu = PopupMenu1
  end
-  object LabelTrain: TLabel
-    Left = 0
-    Top = 128
-    Width = 34
-    Height = 19
-    Alignment = taCenter
-    Anchors = [akLeft, akTop, akRight]
-    Caption = 'train'
-    Color = clBtnFace
+  object Labeltrain: TLabel
+    Left = 32
+    Top = 176
+    Width = 10
+    Height = 22
+    Caption = #39#39
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
-    Font.Height = -16
+    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
-    ParentColor = False
    ParentFont = False
  end
-  object ImageTachro: TImage
-    Left = 80
-    Top = 152
-    Width = 106
-    Height = 37
-    Picture.Data = {
-      07544269746D6170762E0000424D762E00000000000036000000280000006A00
-      0000250000000100180000000000402E00000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
-      FFFFFFFF00000000000000000000000000000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000
-      00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
-      FFFFFFFF00000000000000000000000000000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFF00000000000000000000000000000000000000000000000000
-      0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFF
-      FFFFFFFFFFFFFF00000000000000000000000000000000000000000000000000
-      0000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFF
-      FFFFFFFFFFFFFF000000000000000000000000000000000000000000000000FF
-      FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000FFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000FFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
-      00FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
-      FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
-      00FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
-      FFFF000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
-      00000000FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
-      FFFF000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
-      00000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000
-      00000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
-      00000000000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
-      0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
-      0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
-      000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FF000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF00000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
-      0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFF000000000000000000000000000000000000000000FFFFFFFFFFFFFFFF
-      FF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
-      00000000000000000000000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
-      0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000
-      00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
-      00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000FFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
-      00000000000000000000000000FFFFFFFFFFFFFFFFFF00000000000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
-      00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FF000000000000000000000000000000FFFFFF00000000000000000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
-      000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
-      0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
-      FFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000
-      000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFF000000000000000000000000000000000000000000FFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF
-      FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000FFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFF0000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000000000000000000000FF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000}
+  object ImageTprov: TImage
+    Left = 56
+    Top = 88
+    Width = 161
+    Height = 33
    Visible = False
  end
-  object TrackBar1: TTrackBar
+  object ImageTrain: TImage
    Left = 0
-    Top = 40
+    Top = 192
+    Width = 217
+    Height = 33
+  end
+  object TrackBarC: TTrackBar
+    Left = 0
+    Top = 128
    Width = 129
    Height = 21
+    Ctl3D = False
+    Max = 127
+    Min = -128
+    ParentCtl3D = False
    TabOrder = 0
-    Visible = False
+    OnChange = TrackBarCChange
+  end
+  object Button0: TButton
+    Left = 96
+    Top = 160
+    Width = 17
+    Height = 17
+    Caption = '0'
+    TabOrder = 1
+    OnClick = Button0Click
  end
  object PopupMenu1: TPopupMenu
-    Left = 112
-    Top = 8
+    Left = 184
+    Top = 16
    object Verrouillerdevant1: TMenuItem
      Caption = 'Verrouiller devant'
      OnClick = Verrouillerdevant1Click
@@ -459,5 +100,12 @@ object FormCompteur: TFormCompteur
      Caption = 'Compteur tachro'
      OnClick = Compteurtachro1Click
    end
+    object N2: TMenuItem
+      Caption = '-'
+    end
+    object Affichericonedutrain1: TMenuItem
+      Caption = 'Afficher icone du train'
+      OnClick = Affichericonedutrain1Click
+    end
  end
 end
@@ -1,6 +1,6 @@
 object FormConfig: TFormConfig
-  Left = 245
-  Top = 117
+  Left = 240
+  Top = 128
  Hint = 'Modifie la configuration selon les s'#233'lections choisies'
  BorderStyle = bsDialog
  Caption = 'Configuration g'#233'n'#233'rale'
@@ -670,7 +670,7 @@ object FormConfig: TFormConfig
    Top = 8
    Width = 633
    Height = 505
-    ActivePage = TabSheetTrains
+    ActivePage = TabSheetBouton
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
@@ -4149,7 +4149,7 @@ object FormConfig: TFormConfig
        Top = 16
        Width = 337
        Height = 457
-        ActivePage = TabSheetTrGen
+        ActivePage = TtabSheetEt
        TabOrder = 3
        object TabSheetTrGen: TTabSheet
          Caption = 'G'#233'n'#233'ral'
@@ -4578,6 +4578,148 @@ object FormConfig: TFormConfig
        end
      end
    end
+    object TabSheetCompt: TTabSheet
+      Caption = 'Compteurs'
+      ImageIndex = 8
+      object Label75: TLabel
+        Left = 8
+        Top = 8
+        Width = 122
+        Height = 13
+        Caption = 'Compteurs de vitesse'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clBlack
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label81: TLabel
+        Left = 320
+        Top = 24
+        Width = 263
+        Height = 13
+        Caption = 'Personnalisation des couleurs des compteurs de vitesse'
+      end
+      object GroupBox17: TGroupBox
+        Left = 312
+        Top = 72
+        Width = 249
+        Height = 265
+        Caption = 'Param'#232'tres de couleur'
+        TabOrder = 0
+        object Label76: TLabel
+          Left = 74
+          Top = 88
+          Width = 79
+          Height = 13
+          Caption = 'Couleur d'#39'aiguille'
+        end
+        object Label77: TLabel
+          Left = 39
+          Top = 120
+          Width = 114
+          Height = 13
+          Caption = 'Couleur des graduations'
+        end
+        object Label78: TLabel
+          Left = 54
+          Top = 152
+          Width = 99
+          Height = 13
+          Caption = 'Couleur des num'#233'ros'
+        end
+        object Label79: TLabel
+          Left = 75
+          Top = 184
+          Width = 78
+          Height = 13
+          Caption = 'Couleur  de fond'
+        end
+        object Label80: TLabel
+          Left = 88
+          Top = 214
+          Width = 65
+          Height = 13
+          Caption = 'Couleur  d'#39'arc'
+        end
+        object ComboBoxCompt: TComboBox
+          Left = 48
+          Top = 28
+          Width = 145
+          Height = 21
+          Style = csDropDownList
+          ItemHeight = 13
+          TabOrder = 0
+          OnChange = ComboBoxComptChange
+          Items.Strings = (
+            'Compteur type 1'
+            'Compteur type 2'
+            'Compteur tachro')
+        end
+        object BoutonCoulAig: TButton
+          Left = 182
+          Top = 80
+          Width = 27
+          Height = 25
+          Caption = 'A'
+          TabOrder = 1
+          OnClick = BoutonCoulAigClick
+        end
+        object ButtonCoulGrad: TButton
+          Left = 182
+          Top = 112
+          Width = 27
+          Height = 25
+          Caption = 'G'
+          Enabled = False
+          TabOrder = 2
+          OnClick = ButtonCoulGradClick
+        end
+        object ButtonCoulNum: TButton
+          Left = 182
+          Top = 144
+          Width = 27
+          Height = 25
+          Caption = 'N'
+          TabOrder = 3
+          OnClick = ButtonCoulNumClick
+        end
+        object ButtonCoulFond: TButton
+          Left = 182
+          Top = 176
+          Width = 27
+          Height = 25
+          Caption = 'F'
+          Enabled = False
+          TabOrder = 4
+          OnClick = ButtonCoulFondClick
+        end
+        object ButtonCoulArc: TButton
+          Left = 182
+          Top = 208
+          Width = 27
+          Height = 25
+          Caption = 'Arc'
+          TabOrder = 5
+          OnClick = ButtonCoulArcClick
+        end
+      end
+      object Panel2: TPanel
+        Left = 8
+        Top = 72
+        Width = 281
+        Height = 281
+        Caption = 'Panel2'
+        TabOrder = 1
+        object ImageCtC: TImage
+          Left = 8
+          Top = 8
+          Width = 265
+          Height = 265
+        end
+      end
+    end
    object TabSheetPeriph: TTabSheet
      Caption = 'P'#233'riph'#233'riques'
      ImageIndex = 9
@@ -4894,7 +5036,7 @@ object FormConfig: TFormConfig
          Left = 72
          Top = 80
          Width = 193
-          Height = 201
+          Height = 233
          Brush.Color = clOlive
        end
        object ShapeBR: TShape
@@ -5003,13 +5145,6 @@ object FormConfig: TFormConfig
          Height = 13
          Caption = '-'
        end
-        object Label74: TLabel
-          Left = 312
-          Top = 240
-          Width = 81
-          Height = 13
-          Caption = 'Affecter au train :'
-        end
        object LabelId: TLabel
          Left = 80
          Top = 88
@@ -5025,151 +5160,243 @@ object FormConfig: TFormConfig
          ParentColor = False
          ParentFont = False
        end
-        object LabeledEditCT: TLabeledEdit
-          Left = 480
-          Top = 80
-          Width = 40
-          Height = 21
-          Hint = 'Code ascii envoy'#233' par le bouton'
-          EditLabel.Width = 76
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Code de touche'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
+        object ShapeB5: TShape
+          Left = 80
+          Top = 264
+          Width = 33
+          Height = 33
+          Hint = 'Clic bouton 5'
+          Brush.Color = clGray
+          ParentShowHint = False
+          Shape = stCircle
+          ShowHint = True
+          OnMouseDown = ShapeB5MousDown
+        end
+        object ShapeB6: TShape
+          Left = 128
+          Top = 264
+          Width = 33
+          Height = 33
+          Hint = 'Clic bouton 6'
+          Brush.Color = clGray
+          ParentShowHint = False
+          Shape = stCircle
+          ShowHint = True
+          OnMouseDown = ShapeB6MouseDown
+        end
+        object ShapeB7: TShape
+          Left = 176
+          Top = 264
+          Width = 33
+          Height = 33
+          Hint = 'Clic bouton 7'
+          Brush.Color = clGray
+          ParentShowHint = False
+          Shape = stCircle
+          ShowHint = True
+          OnMouseDown = ShapeB7MouseDown
+        end
+        object ShapeB8: TShape
+          Left = 224
+          Top = 264
+          Width = 33
+          Height = 33
+          Hint = 'Clic bouton 8'
+          Brush.Color = clGray
+          ParentShowHint = False
+          Shape = stCircle
+          ShowHint = True
+          OnMouseDown = ShapeB8MouseDown
+        end
+        object ButtonHook: TButton
+          Left = 448
+          Top = 328
+          Width = 113
+          Height = 41
+          Hint = 'Relance le gestionnaire d'#39'interception du clavier USB'
+          Caption = 'Relance interception clavier USB'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
-          OnChange = LabeledEditCTChange
+          WordWrap = True
+          OnClick = ButtonHookClick
        end
-        object LabeledEditRm: TLabeledEdit
-          Left = 480
-          Top = 128
-          Width = 40
-          Height = 21
-          Hint = 'Code ascii envoy'#233' par la rotation anti horaire (-)'
-          EditLabel.Width = 99
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Code de rotation en -'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 1
-          OnChange = LabeledEditRmChange
-        end
-        object LabeledEditRp: TLabeledEdit
-          Left = 480
-          Top = 152
-          Width = 40
-          Height = 21
-          Hint = 'Code ascii envoy'#233' par la rotation horaire (+)'
-          EditLabel.Width = 102
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Code de rotation en +'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 2
-          OnChange = LabeledEditRpChange
-        end
-        object LabeledEditClic: TLabeledEdit
-          Left = 480
+        object GroupBoxBR: TGroupBox
+          Left = 312
          Top = 176
-          Width = 40
-          Height = 21
-          Hint = 'Code ascii envoy'#233' par le clic bouton'
-          EditLabel.Width = 59
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Code de clic'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
-          ParentShowHint = False
-          ShowHint = True
+          Width = 260
+          Height = 121
+          Caption = 'Bouton rotatif'
+          TabOrder = 1
+          object LabeledEditRm: TLabeledEdit
+            Left = 193
+            Top = 20
+            Width = 40
+            Height = 21
+            Hint = 'Code ascii envoy'#233' par la rotation anti horaire (-)'
+            EditLabel.Width = 99
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Code de rotation en -'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 0
+            OnChange = LabeledEditRmChange
+          end
+          object LabeledEditRp: TLabeledEdit
+            Left = 193
+            Top = 44
+            Width = 40
+            Height = 21
+            Hint = 'Code ascii envoy'#233' par la rotation horaire (+)'
+            EditLabel.Width = 102
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Code de rotation en +'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 1
+            OnChange = LabeledEditRpChange
+          end
+          object LabeledEditClic: TLabeledEdit
+            Left = 193
+            Top = 68
+            Width = 40
+            Height = 21
+            Hint = 'Code ascii envoy'#233' par le clic bouton'
+            EditLabel.Width = 59
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Code de clic'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 2
+            OnChange = LabeledEditClicChange
+          end
+          object LabeledEditIncr: TLabeledEdit
+            Left = 193
+            Top = 92
+            Width = 40
+            Height = 21
+            Hint = 'Valeur de l'#39'incr'#233'ment sur une rotation'
+            EditLabel.Width = 105
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Incr'#233'ment '#224' la rotation'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 3
+            OnChange = LabeledEditIncrChange
+          end
+        end
+        object GroupBoxBt: TGroupBox
+          Left = 312
+          Top = 176
+          Width = 260
+          Height = 121
+          Caption = 'Bouton'
+          TabOrder = 2
+          object LabeledEditF: TLabeledEdit
+            Left = 185
+            Top = 52
+            Width = 40
+            Height = 21
+            Hint = 'Fonction F associ'#233'e au bouton'
+            EditLabel.Width = 100
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Fonction F '#224' envoyer'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 0
+            OnChange = LabeledEditFChange
+          end
+          object LabeledEditFn: TLabeledEdit
+            Left = 201
+            Top = 76
+            Width = 16
+            Height = 21
+            Hint = '0 ou 1'
+            EditLabel.Width = 6
+            EditLabel.Height = 13
+            EditLabel.Caption = #224
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 5
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 1
+            OnChange = LabeledEditFnChange
+          end
+          object LabeledEditCT: TLabeledEdit
+            Left = 185
+            Top = 20
+            Width = 40
+            Height = 21
+            Hint = 'Code ascii envoy'#233' par le bouton'
+            EditLabel.Width = 76
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Code de touche'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 50
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 2
+            OnChange = LabeledEditCTChange
+          end
+        end
+        object GroupBoxBloc: TGroupBox
+          Left = 312
+          Top = 48
+          Width = 257
+          Height = 113
+          Caption = 'G'#233'n'#233'ral'
          TabOrder = 3
-          OnChange = LabeledEditClicChange
-        end
-        object LabeledEditNUM: TLabeledEdit
-          Left = 480
-          Top = 40
-          Width = 25
-          Height = 21
-          Hint = 'Num'#233'ro de contr'#244'leur clavier USB (1 '#224' 10)'
-          EditLabel.Width = 134
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Num'#233'ro de bloc clavier USB'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 30
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 4
-          OnChange = LabeledEditNUMChange
-        end
-        object LabeledEditF: TLabeledEdit
-          Left = 480
-          Top = 104
-          Width = 40
-          Height = 21
-          Hint = 'Fonction F associ'#233'e au bouton'
-          EditLabel.Width = 100
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Fonction F '#224' envoyer'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 5
-          OnChange = LabeledEditFChange
-        end
-        object LabeledEditIncr: TLabeledEdit
-          Left = 480
-          Top = 200
-          Width = 40
-          Height = 21
-          Hint = 'Valeur de l'#39'incr'#233'ment sur une rotation'
-          EditLabel.Width = 105
-          EditLabel.Height = 13
-          EditLabel.Caption = 'Incr'#233'ment '#224' la rotation'
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 50
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 6
-          OnChange = LabeledEditIncrChange
-        end
-        object ComboBoxUSBTr: TComboBox
-          Left = 416
-          Top = 240
-          Width = 153
-          Height = 21
-          Style = csDropDownList
-          ItemHeight = 0
-          TabOrder = 7
-          OnChange = ComboBoxUSBTrChange
-        end
-        object LabeledEditFn: TLabeledEdit
-          Left = 536
-          Top = 104
-          Width = 16
-          Height = 21
-          Hint = '0 ou 1'
-          EditLabel.Width = 6
-          EditLabel.Height = 13
-          EditLabel.Caption = #224
-          EditLabel.Layout = tlBottom
-          LabelPosition = lpLeft
-          LabelSpacing = 5
-          ParentShowHint = False
-          ShowHint = True
-          TabOrder = 8
-          OnChange = LabeledEditFnChange
+          object Label74: TLabel
+            Left = 8
+            Top = 32
+            Width = 81
+            Height = 13
+            Caption = 'Affecter au train :'
+          end
+          object ComboBoxUSBTr: TComboBox
+            Left = 96
+            Top = 28
+            Width = 153
+            Height = 21
+            Style = csDropDownList
+            ItemHeight = 13
+            TabOrder = 0
+            OnChange = ComboBoxUSBTrChange
+          end
+          object LabeledEditNUM: TLabeledEdit
+            Left = 208
+            Top = 72
+            Width = 25
+            Height = 21
+            Hint = 'Num'#233'ro de contr'#244'leur clavier USB (1 '#224' 10)'
+            EditLabel.Width = 134
+            EditLabel.Height = 13
+            EditLabel.Caption = 'Num'#233'ro de bloc clavier USB'
+            EditLabel.Layout = tlBottom
+            LabelPosition = lpLeft
+            LabelSpacing = 30
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 1
+            OnChange = LabeledEditNUMChange
+          end
        end
      end
    end
@@ -662,7 +662,7 @@ object FormConfCellTCO: TFormConfCellTCO
  object ImageListIcones: TImageList
    Left = 160
    Bitmap = {
-      494C010122002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010122002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000A0000000010020000000000000A0
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@@ -1986,6 +1986,7 @@ object FormConfCellTCO: TFormConfCellTCO
      000000000000F56F000000000000F56F000000000000F54F000000000000FB6F
      000000000000FFFF000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000}
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000}
  end
 end
@@ -473,7 +473,7 @@ begin
  if (erreur<>0) or (adr<1) then exit;
  ancdebug:=NivDebug;
  NivDebug:=3;
-  if PresTrainPrec(Adr,Nb_cantons_Sig,true,adrtrain,voie) then AfficheDebug('Présence train @='+intToSTR(AdrTrain),clYellow) else
+  if PresTrainPrec(Adr,Nb_cantons_Sig,FALSE,adrtrain,voie) then AfficheDebug('Présence train @='+intToSTR(AdrTrain),clYellow) else
    AfficheDebug('Absence train',clyellow);
  NivDebug:=AncDebug;
 end;
@@ -516,7 +516,7 @@ object FormModifAction: TFormModifAction
        Top = 32
        Width = 217
        Height = 21
-        ItemHeight = 0
+        ItemHeight = 13
        TabOrder = 0
        OnChange = ComboBoxFamilleChange
      end
@@ -720,7 +720,7 @@ object FormModifAction: TFormModifAction
          Height = 21
          Hint = 'Nom du p'#233'riph'#233'rique d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
          Style = csDropDownList
-          ItemHeight = 0
+          ItemHeight = 13
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
@@ -219,13 +219,18 @@ begin
 end;

 // ajoute à la listbox t une ligne avec son icone opérations[]
+// i numéro d'opération
 procedure affecte_operation(i : integer;t : tListBox);
+var s : string;
 begin
-  if i<ActionBoutonTCO then t.Items.Add(Format('%d%s', [i-1, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
-  if i=ActionBoutonTCO then t.Items.Add(Format('%d%s', [IconeBouton, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
-  if i=ActionAffecteMemoire then t.Items.Add(Format('%d%s', [IconeActionAffecteMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
-  if i=ActionIncMemoire then t.Items.Add(Format('%d%s', [IconeActionIncMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
-  if i=ActionDecMemoire then t.Items.Add(Format('%d%s', [IconeActionDecMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
+  if ligneclicAct<0 then exit;
+  s:=operations[i].nom;
+  if not(Tablo_Action[ligneclicact+1].tabloOp[i].valide) then s:=s+sd;
+  if i<ActionBoutonTCO then t.Items.Add(Format('%d%s', [i-1, s])); // valeur d'index de l'icone dans la ImagelistIcones
+  if i=ActionBoutonTCO then t.Items.Add(Format('%d%s', [IconeBouton, s])); // valeur d'index de l'icone dans la ImagelistIcones
+  if i=ActionAffecteMemoire then t.Items.Add(Format('%d%s', [IconeActionAffecteMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
+  if i=ActionIncMemoire then t.Items.Add(Format('%d%s', [IconeActionIncMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
+  if i=ActionDecMemoire then t.Items.Add(Format('%d%s', [IconeActionDecMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
 end;

 procedure TFormModifAction.FormCreate(Sender: TObject);
@@ -966,6 +971,7 @@ begin
   begin
     LabelAdresse.Visible:=true; // numéro de fonction
     LabelAdresse.caption:='Code de touche';
+     EditAdr.Hint:='Code de touche';
     ButtonFonction.Visible:=false;
     EditAdr.Text:=IntToSTR(tablo_action[index].adresse);
     EditAdr.Visible:=true;
@@ -1516,9 +1522,23 @@ begin
 end;

 procedure TFormModifAction.ListBoxOperationsDblClick(Sender: TObject);
+var s : string;
+    i : integer;
 begin
  if (clicAction<0) or (ligneclicAct<0) or clicliste then exit;
  Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide:=not(Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide);
+
+//  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
+
+  s:=ListBoxOperations.Items[clicaction];
+  i:=pos(sd,s);
+  if i<>0 then delete(s,i,length(sd));
+
+  if not(Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].valide) then s:=s+sd;
+
+  listBoxOperations.Items[clicaction]:=s;
+  formconfig.ListBoxOperations.items[clicaction]:=s; //encode_actions(ligneclicAct+1);
+
  maj_combocactions(ligneclicAct);
 end;

@@ -1,6 +1,6 @@
 object FormRoute: TFormRoute
-  Left = 201
-  Top = 182
+  Left = 338
+  Top = 290
  BorderStyle = bsDialog
  Caption = 'Route'
  ClientHeight = 298
@@ -61,8 +61,10 @@ object FormRoute: TFormRoute
    ItemHeight = 13
    ParentFont = False
    ParentShowHint = False
+    PopupMenu = PopupMenuR
    ShowHint = True
    TabOrder = 0
+    OnDblClick = ListBoxRoutesDblClick
    OnDrawItem = ListBoxRoutesDrawItem
    OnKeyDown = ListBoxRoutesKeyDown
    OnMouseDown = ListBoxRoutesMouseDown
@@ -118,13 +120,13 @@ object FormRoute: TFormRoute
    OnClick = ButtonRAZClick
  end
  object ButtonFenPil: TButton
-    Left = 232
+    Left = 224
    Top = 258
    Width = 83
    Height = 33
    Hint = 'Ouvre la fen'#234'tre de pilotage des trains'
    Anchors = [akLeft, akBottom]
-    Caption = 'Fen'#234'tre de pilotage'
+    Caption = 'Choisir cette route'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
@@ -234,4 +236,13 @@ object FormRoute: TFormRoute
    Caption = 'Debug'
    TabOrder = 11
  end
+  object PopupMenuR: TPopupMenu
+    OnPopup = PopupMenuRPopup
+    Left = 344
+    Top = 8
+    object Choisircetteroute1: TMenuItem
+      Caption = 'Choisir cette route'
+      OnClick = Choisircetteroute1Click
+    end
+  end
 end
@@ -6,7 +6,7 @@ interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ComCtrls, ShellCtrls, StdCtrls, ExtCtrls , UnitPrinc;
+  Dialogs, ComCtrls, ShellCtrls, StdCtrls, ExtCtrls , UnitPrinc, Menus;

 type
  TFormRoute = class(TForm)
@@ -29,6 +29,8 @@ type
    ButtonTrouver: TButton;
    CheckBoxRoutesLongues: TCheckBox;
    CheckBoxDebugRoutes: TCheckBox;
+    PopupMenuR: TPopupMenu;
+    Choisircetteroute1: TMenuItem;
    procedure FormActivate(Sender: TObject);
    procedure ListBoxRoutesMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
@@ -49,6 +51,9 @@ type
    procedure ListBoxRoutesDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure CheckBoxRoutesLonguesClick(Sender: TObject);
+    procedure Choisircetteroute1Click(Sender: TObject);
+    procedure ListBoxRoutesDblClick(Sender: TObject);
+    procedure PopupMenuRPopup(Sender: TObject);
  private
    { Déclarations privées }
  public
@@ -330,7 +335,13 @@ begin
  formRoute.ButtonDetail.caption:='Détail route ';
  formRoute.ButtonEfface.caption:='Efface route ';

-  if idcantonRoute<>0 then formRoute.ListBoxRoutes.Hint:='Sélectionne une route pour l''affecter au train '+canton[idcantonRoute].NomTrain;
+  if idcantonRoute<>0 then
+  begin
+    formRoute.ListBoxRoutes.Hint:='Sélectionne une route pour l''affecter au train '+canton[idcantonRoute].NomTrain+' par '+#13+
+                                  'double clic ou'+#13+
+                                  'clic droit "choisir cette route" ou'+#13+
+                                  'bouton "choisir cette route"';
+  end;

  IdCantonClic:=Idcantonroute;
  IdTrainCourant:=canton[idcantonRoute].indexTrain;
@@ -525,6 +536,8 @@ begin
    begin
      trains[idt].route[0].adresse:=0;
    end;
+    canton[i].numcantonorg:=0;
+    canton[i].numcantonDest:=0;
  end;

  i:=index_canton_numero(cantonDest);
@@ -532,6 +545,9 @@ begin
  begin
    canton[i].bouton:=0;
    dessin_canton(i,0);   // remet le bouton jaune du canton dest
+    canton[i].numcantonorg:=0;
+    canton[i].numcantonDest:=0;
+
  end;

  // efface icone train
@@ -589,6 +605,7 @@ begin
  EditObligeCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune obligation';
  EditInterditCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune interdiction';

+
  ListBoxRoutes.Style:=lbOwnerDrawFixed;    //pour déclencher l'evt on drawitem
  // fenêtre toujours devant
  SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize);
@@ -615,7 +632,7 @@ begin
  efface_route_tco(false);
 end;

-procedure TFormRoute.ButtonFenPilClick(Sender: TObject);
+procedure choisir_cette_route;
 begin
  if idcantonRoute<1 then exit;
  indexTrainFR:=canton[idcantonRoute].indexTrain;
@@ -624,7 +641,12 @@ begin
    TabSheetRA.Enabled:=true;
    show;
  end;
-  close;
+  formroute.close;
+end;
+
+procedure TFormRoute.ButtonFenPilClick(Sender: TObject);
+begin
+  choisir_cette_route;
 end;

 procedure TFormRoute.ButtonParcours(Sender: TObject);
@@ -768,4 +790,20 @@ begin
  Maj_fenetre;
 end;

+procedure TFormRoute.Choisircetteroute1Click(Sender: TObject);
+begin
+  choisir_cette_route;
+end;
+
+procedure TFormRoute.ListBoxRoutesDblClick(Sender: TObject);
+begin
+  choisir_cette_route;
+end;
+
+procedure TFormRoute.PopupMenuRPopup(Sender: TObject);
+begin
+  if IndexLigneRoute<0 then choisirCetteRoute1.Caption:='Pas de route'
+  else choisirCetteRoute1.Caption:='Choisir cette route';
+end;
+
 end.
@@ -53,7 +53,7 @@ object FormRouteTrain: TFormRouteTrain
    Top = 8
    Width = 585
    Height = 177
-    ActivePage = TabSheetRM
+    ActivePage = TabSheetRA
    TabOrder = 1
    object TabSheetRA: TTabSheet
      Caption = 'Route affect'#233'e'
@@ -113,7 +113,7 @@ begin
  begin
    detect:=0;
    Affiche('Le train '+train+' n''est pas déclaré sur le détecteur d''un canton',clOrange);
-    Affiche('ou le décteur du train n''est pas activé',clOrange);
+    Affiche('ou le détecteur du train n''est pas activé',clOrange);
    exit;
  end;

@@ -24,8 +24,8 @@ object FormTCO: TFormTCO
  OnKeyPress = FormKeyPress
  OnMouseWheel = FormMouseWheel
  DesignSize = (
-    997
-    548)
+    1005
+    556)
  PixelsPerInch = 96
  TextHeight = 13
  object LabelZoom: TLabel
@@ -345,15 +345,22 @@ type
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    procedure ButtonCalibrageClick(Sender: TObject);
    procedure ButtonCoulFondClick(Sender: TObject);
-    procedure ColorDialog1Show(Sender: TObject);    procedure ImagePalette24DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);    procedure ImagePalette24EndDrag(Sender, Target: TObject; X,      Y: Integer);
+    procedure ColorDialog1Show(Sender: TObject);
+     procedure ImagePalette24DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);
+    procedure ImagePalette24EndDrag(Sender, Target: TObject; X,      Y: Integer);
    procedure ImagePalette24MouseDown(Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ImagePalette25DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure ImagePalette25EndDrag(Sender, Target: TObject; X,      Y: Integer);
    procedure ImagePalette25MouseDown(Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);   procedure ImagePalette1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
+    procedure ImagePalette1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);
    procedure ImagePalette4DragOver(Sender, Source: TObject; X, Y: Integer;      State: TDragState; var Accept: Boolean);
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;      State: TDragState; var Accept: Boolean);
-    procedure EditTypeImageChange(Sender: TObject);   procedure Toutslectionner1Click(Sender: TObject);    procedure ButtonDessinerClick(Sender: TObject);    procedure ImagePalette26DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);    procedure ImagePalette26EndDrag(Sender, Target: TObject; X,      Y: Integer);
+    procedure EditTypeImageChange(Sender: TObject);
+    procedure Toutslectionner1Click(Sender: TObject);
+    procedure ButtonDessinerClick(Sender: TObject);
+    procedure ImagePalette26DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);
+    procedure ImagePalette26EndDrag(Sender, Target: TObject; X,      Y: Integer);
    procedure ImagePalette26MouseDown(Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ImagePalette23EndDrag(Sender, Target: TObject; X,      Y: Integer);
    procedure ImagePalette23DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);
@@ -377,8 +384,8 @@ type
    procedure ImagePalette34EndDrag(Sender, Target: TObject; X,      Y: Integer);
    procedure ImagePalette34MouseDown(Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure EditAdrElementClick(Sender: TObject);
-    procedure ImagePalette53DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);
-     procedure ImagePalette52EndDrag(Sender, Target: TObject; X,      Y: Integer);
+    procedure ImagePalette53DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
+     procedure ImagePalette52EndDrag(Sender, Target: TObject; X, Y: Integer);
     procedure ImagePalette53MouseDown(Sender: TObject;      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ButtonAffSCClick(Sender: TObject);
    procedure RadioGroupSelClick(Sender: TObject);
@@ -484,7 +491,7 @@ type
           Adresse     : integer;     // adresse du détecteur ou de l'aiguillage ou du feu OU si action sortie : adresse
           BImage      : integer;     // icone: 0=rien 1=voie 2=aiguillage gauche  ... 50=feu
           mode        : integer;     // couleur de voie 0=éteint 1=ClVoies 2=couleur dans le champ train
-           train       : integer;     // numéro du train
+           train       : integer;     // index du train
           trajet      : integer;     // décrit le trajet ouvert sur la voie (cas d'un croisement ou d'une tjd/S)
           inverse     : boolean;     // aiguillage piloté inversé
           repr        : integer;     // position de la représentation texte 0 = rien 1=centré 2=Haut  3=Bas 4=réparti 5=double centré
@@ -699,6 +706,7 @@ procedure renseigne_TJDs_TCO;
 procedure Affiche_temps_arret(IdTrain,tps : integer);
 procedure titre_fenetre(indexTCO : integer);
 function IsVoieDroite(i : integer) : boolean;
+function trouve_canton(el1 : integer;tel1 : tequipement;el2 : integer;tel2 : tequipement) : integer;

 implementation

@@ -804,6 +812,26 @@ begin
  else result:=0;
 end;

+// renvoie l'index de canton encadré par les 2 éléments el1 et el2
+function trouve_canton(el1 : integer;tel1 : tequipement;el2 : integer;tel2 : tequipement) : integer;
+var i,eLc1,eLc2 : integer;
+    teLc1,teLc2 : tequipement;
+    trouve : boolean;
+begin
+  i:=1;
+  result:=0;
+  repeat
+    eLc1:=canton[i].el1; teLc1:=canton[i].typ1;
+    eLc2:=canton[i].el2; teLc2:=canton[i].typ2;
+
+    trouve:=((elc1=el1) and (teLc1=tel1) and (elc2=el2) and (teLc2=tel2)) or
+            ((elc2=el1) and (teLc2=tel1) and (elc1=el2) and (teLc1=tel2)) ;
+    inc(i);
+  until (trouve) or (i>nCantons);
+  if trouve then result:=i-1;
+end;
+
+
 // le tampon est aussi grand que le x/y du plus grand TCO
 procedure init_tampon_copiercoller;
 begin
@@ -1490,6 +1518,7 @@ begin
  end
  else
  begin
+    // canton vertical
    zone_tco(t,i,SensTCO_N,0,0,11,false,false); // demande éléments contigus en haut (7) du canton, résultats dans var globales xCanton et tel1
    if xCanton=0 then tel1:=buttoir;
    canton[i].el1:=xCanton;
@@ -6981,6 +7010,11 @@ begin
    if i=0 then begin Affiche('Erreur 19H : index canton nul en TCO'+intToSTR(indexTCO)+' x='+intToSTR(x)+' y='+intToSTR(y),clred);exit;end;

    indexTrain:=TCO[IndexTCO,x,y].train;
+    if (indexTrain<0) or (indexTrain>NTrains) then
+    begin
+      Affiche('Anomalie 670',clred);
+      exit;
+    end;
    AdrTrain:=canton[i].adresseTrain;
    //Affiche('Canton '+intToSTR(canton[i].numero)+' adrTrain='+intToSTR(AdrTrain),clLime);

@@ -7101,6 +7135,7 @@ begin
    if (sens<>SensGauche) and (sens<>SensDroit) and (sens<>0) then
    begin
      Sens:=SensGauche;
+      canton[i].SensLoco:=sens;
      Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné à gauche',clOrange);
    end;
    case sens of
@@ -7207,6 +7242,12 @@ begin
    textOUT(x0-length(s)*8,y0+1,s);}

    indexTrain:=TCO[IndexTCO,x,y].train;
+    if (indexTrain<0) or (indexTrain>NTrains) then
+    begin
+      Affiche('Anomalie 671',clred);
+      exit;
+    end;
+
    AdrTrain:=canton[i].adresseTrain;
    if AdrTrain<>0 then indexTrain:=index_train_adresse(adrTrain);

@@ -7335,6 +7376,7 @@ begin
    if (sens<>SensHaut) and (sens<>SensBas) and (sens<>0) then
    begin
      Sens:=SensHaut;
+      canton[i].SensLoco:=sens;
      Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné en haut',clOrange);
    end;
    case sens of
@@ -19138,7 +19180,6 @@ begin

  // affectation train canton destination
  affecte_Train_canton(trains[idTrain].adresse,IdCantonDest,sens);
-  //application.processMessages;

  // si le canton destination était occupé au déplacement d'un train de canton
  if (TrainDest<>0) and (cantonDest<>CantonOrg) then
@@ -19167,7 +19208,7 @@ begin
    detecteur[adresse].AdrTrain:=canton[idCantonDest].adresseTrain;
    detecteur[adresse].Train:=canton[idCantonDest].NomTrain;
  end;
-  maj_signaux(true);
+  maj_signaux(false);
 end;


@@ -19199,6 +19240,7 @@ var GMode,l2,h2 : integer;
    angle,Zoom : single;
    recta : trect;
 begin
+ formRoute.Show;
 { angle:=5;
  Zoom:=2;
  l2:=trains[1].icone.picture.width div 2;
@@ -188,6 +188,7 @@ var i,t,idTCO,x,y,detect : integer;
 begin
  if (AdrTrain=0) then exit;
  if procPrinc then AfficheDebug('Raz_cantons_train @='+intToSTR(AdrTrain),clyellow);
+  //Affiche('Raz_cantons_train @='+intToSTR(AdrTrain),clyellow);
  if adrTrain<>0 then
  begin
    for i:=1 to Ncantons do
@@ -253,8 +254,10 @@ var idTrain,t,el1,el2 : integer;
    t1,t2 : tequipement;
 begin
  if ProcPrinc then AfficheDebug('Affecte_train_canton: @='+intToSTR(AdrTrain)+' Idcanton='+intToSTR(idcanton),clorange);
+  //Affiche('Affecte_train_canton: @='+intToSTR(AdrTrain)+' Idcanton='+intToSTR(idcanton),clyellow);
  if (IdCanton>0) and (idCanton<=nCantons) then
  begin
+    idTrain:=0;
    if (AdrTrain<>0) and (adrTrain<>9999) then
    begin
      idTrain:=Index_train_adresse(adrTrain);
@@ -308,6 +311,9 @@ begin
      Maj_detecteurs_canton(idCanton,AdrTrain,el2);
    end;
  end;
+
+  maj_signaux(false);
+
  //affiche('Det du canton '+intToSTR(canton[Idcanton].numero)+' det1='+intToSTR(canton[Idcanton].det1)+' det2='+intToSTR(canton[Idcanton].det2),clyellow);
 end;

@@ -26,7 +26,7 @@ var
  f : text;

 Const
-VersionSC = '10.0'; // sert à la comparaison de la version publiée
+VersionSC = '10.2'; // 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;
@@ -284,6 +284,8 @@ begin
  else
  begin
    Affiche('Erreur '+intToSTR(i)+' au lancement de installeur.exe ',clred);
+    Affiche(SysErrorMessage(GetLastError),clred);
+    Affiche('Exécutez le manuellement',clred);
  end;

 end;
@@ -312,11 +312,16 @@ version 9.77 : Am
 version 9.78 : Correction du déclencheur "démarrage train"
 version 9.79 : Corrections et améliorations diverses.
 version 9.8  : Intégration des claviers et boutons rotatifs USB
-version 9.9  : Correction évalution fonctions logiques sur opérateur NONET NONOU
+version 9.9  : Correction évaluation fonctions logiques sur opérateur NONET NONOU
 version 10.0 : Création de 3 compteurs de vitesse de trains utilisables en mode autonome ou CDM.
               Création de déclencheurs depuis appui sur touches de clavier ou blocs USB.
-
-
+version 10.1 : Correction d'un bug sur l'évolution des trains dans le TCO.
+version 10.2 : Ajout de 4 boutons aux claviers USB
+               Compteurs de vitesses pour chaque train dans un nouvel onglet "compteurs".
+	       Les couleurs des compteurs sont personnalisables.
+               Pilotage des accessoires en mode asynchrone.
+               Correction bug fonction F bloc USB et pilotage train affecté au bloc
+