V9.3

UnitRoute.dfm

@@ -3,7 +3,7 @@ object FormRoute: TFormRoute
   Top = 182
   BorderStyle = bsDialog
   Caption = 'Route'
-  ClientHeight = 257
+  ClientHeight = 298
   ClientWidth = 634
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -15,11 +15,14 @@ object FormRoute: TFormRoute
   OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate
+  DesignSize = (
+    634
+    298)
   PixelsPerInch = 96
   TextHeight = 13
   object LabelInfo: TLabel
-    Left = 16
-    Top = 16
+    Left = 8
+    Top = 8
     Width = 324
     Height = 13
     Caption = 
@@ -28,9 +31,10 @@ object FormRoute: TFormRoute
   end
   object LabelNombre: TLabel
     Left = 19
-    Top = 192
+    Top = 234
     Width = 29
     Height = 13
+    Anchors = [akLeft, akBottom]
     Caption = 'Route'
   end
   object ImageTrainR: TImage
@@ -43,10 +47,11 @@ object FormRoute: TFormRoute
   end
   object ListBoxRoutes: TListBox
     Left = 16
-    Top = 80
+    Top = 116
     Width = 609
-    Height = 105
+    Height = 114
     Hint = 'S'#233'lectionne une route pour l'#39'affecter au train courant'
+    Anchors = [akLeft, akBottom]
     Color = clBlack
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clYellow
@@ -58,15 +63,17 @@ object FormRoute: TFormRoute
     ParentShowHint = False
     ShowHint = True
     TabOrder = 0
+    OnDrawItem = ListBoxRoutesDrawItem
     OnKeyDown = ListBoxRoutesKeyDown
     OnMouseDown = ListBoxRoutesMouseDown
   end
   object ButtonEfface: TButton
     Left = 424
-    Top = 216
+    Top = 258
     Width = 97
     Height = 33
     Hint = 'Efface la route du tco'
+    Anchors = [akLeft, akBottom]
     Caption = 'Efface route du TCO'
     ParentShowHint = False
     ShowHint = True
@@ -76,19 +83,21 @@ object FormRoute: TFormRoute
   end
   object ButtonQuitte: TButton
     Left = 16
-    Top = 216
+    Top = 259
     Width = 89
-    Height = 33
+    Height = 32
+    Anchors = [akLeft, akBottom]
     Caption = 'Quitter'
     TabOrder = 2
     OnClick = ButtonQuitteClick
   end
   object ButtonDetail: TButton
     Left = 320
-    Top = 216
+    Top = 258
     Width = 97
     Height = 33
     Hint = 'D'#233'tail route'
+    Anchors = [akLeft, akBottom]
     Caption = 'D'#233'tail route'
     ParentShowHint = False
     ShowHint = True
@@ -97,37 +106,132 @@ object FormRoute: TFormRoute
   end
   object ButtonRAZ: TButton
     Left = 528
-    Top = 216
+    Top = 258
     Width = 97
     Height = 33
     Hint = 'Annule toutes les routes pour ce train'
+    Anchors = [akLeft, akBottom]
     Caption = 'D'#233'valider routes'
     ParentShowHint = False
     ShowHint = True
     TabOrder = 4
     OnClick = ButtonRAZClick
   end
-  object ComboBoxTrains: TComboBox
-    Left = 16
-    Top = 48
-    Width = 601
-    Height = 21
-    Style = csDropDownList
-    ItemHeight = 13
-    TabOrder = 5
-    Visible = False
-  end
   object ButtonFenPil: TButton
     Left = 232
-    Top = 216
+    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'
     ParentShowHint = False
     ShowHint = True
+    TabOrder = 5
+    WordWrap = True
+    OnClick = ButtonFenPilClick
+  end
+  object Button1: TButton
+    Left = 128
+    Top = 258
+    Width = 75
+    Height = 33
+    Hint = 
+      'Affiche la route sous forme d'#39'une progression du train sur cette' +
+      ' route'
+    Anchors = [akLeft, akBottom]
+    Caption = 'Parcours route'
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 6
     WordWrap = True
-    OnClick = ButtonFenPilClick
+    OnClick = ButtonParcours
+  end
+  object ButtonRaf: TButton
+    Left = 384
+    Top = 78
+    Width = 89
+    Height = 25
+    Hint = 
+      'R'#233'affiche la liste des routes en fonction des filtres, d'#39'apr'#232's l' +
+      'a liste des routes trouv'#233'es'
+    Caption = 'Rafra'#238'chir la liste'
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 7
+    OnClick = ButtonRafClick
+  end
+  object GroupBox1: TGroupBox
+    Left = 16
+    Top = 32
+    Width = 321
+    Height = 65
+    Caption = 'Filtrage des routes'
+    TabOrder = 8
+    object Label1: TLabel
+      Left = 8
+      Top = 24
+      Width = 189
+      Height = 13
+      Caption = 'Obligation de passer par le(s) canton(s) :'
+    end
+    object Label2: TLabel
+      Left = 8
+      Top = 40
+      Width = 194
+      Height = 13
+      Caption = 'Interdiction de passer par le(s) canton(s) :'
+    end
+    object EditObligeCanton: TEdit
+      Left = 216
+      Top = 20
+      Width = 81
+      Height = 21
+      Hint = 'Num'#233'ro de cantons s'#233'par'#233's par des virgules (10 maxi)'
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 0
+      OnChange = EditObligeCantonChange
+    end
+    object EditInterditCanton: TEdit
+      Left = 216
+      Top = 38
+      Width = 81
+      Height = 21
+      Hint = 'Num'#233'ro de cantons s'#233'par'#233's par des virgules (10 maxi)'
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 1
+      OnChange = EditInterditCantonChange
+    end
+  end
+  object ButtonTrouver: TButton
+    Left = 496
+    Top = 78
+    Width = 97
+    Height = 25
+    Hint = 'Recalcule les routes en fonction des filtres'
+    Caption = 'Trouver les routes'
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 9
+    OnClick = ButtonTrouverClick
+  end
+  object CheckBoxRoutesLongues: TCheckBox
+    Left = 384
+    Top = 54
+    Width = 209
+    Height = 17
+    Caption = 'Afficher les routes longues (en orange)'
+    TabOrder = 10
+    OnClick = CheckBoxRoutesLonguesClick
+  end
+  object CheckBoxDebugRoutes: TCheckBox
+    Left = 552
+    Top = 232
+    Width = 65
+    Height = 17
+    Caption = 'Debug'
+    TabOrder = 11
   end
 end