SignauxComplexes/UnitRoute.dfm

object FormRoute: TFormRoute
  Left = 201
  Top = 182
  BorderStyle = bsDialog
  Caption = 'Route'
  ClientHeight = 298
  ClientWidth = 634
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    634
    298)
  PixelsPerInch = 96
  TextHeight = 13
  object LabelInfo: TLabel
    Left = 8
    Top = 8
    Width = 324
    Height = 13
    Caption = 
      'Cliquer sur une route pour la visualiser sur le TCO et l'#39'affecte' +
      'r au train'
  end
  object LabelNombre: TLabel
    Left = 19
    Top = 234
    Width = 29
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Route'
  end
  object ImageTrainR: TImage
    Left = 376
    Top = 8
    Width = 241
    Height = 33
    ParentShowHint = False
    ShowHint = False
  end
  object ListBoxRoutes: TListBox
    Left = 16
    Top = 116
    Width = 609
    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
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnDrawItem = ListBoxRoutesDrawItem
    OnKeyDown = ListBoxRoutesKeyDown
    OnMouseDown = ListBoxRoutesMouseDown
  end
  object ButtonEfface: TButton
    Left = 424
    Top = 258
    Width = 97
    Height = 33
    Hint = 'Efface la route du tco'
    Anchors = [akLeft, akBottom]
    Caption = 'Efface route du TCO'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    WordWrap = True
    OnClick = ButtonEffaceClick
  end
  object ButtonQuitte: TButton
    Left = 16
    Top = 259
    Width = 89
    Height = 32
    Anchors = [akLeft, akBottom]
    Caption = 'Quitter'
    TabOrder = 2
    OnClick = ButtonQuitteClick
  end
  object ButtonDetail: TButton
    Left = 320
    Top = 258
    Width = 97
    Height = 33
    Hint = 'D'#233'tail route'
    Anchors = [akLeft, akBottom]
    Caption = 'D'#233'tail route'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ButtonDetailClick
  end
  object ButtonRAZ: TButton
    Left = 528
    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 ButtonFenPil: TButton
    Left = 232
    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 = 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