object FormDebug: TFormDebug
  Left = 209
  Top = 192
  Width = 864
  Height = 788
  VertScrollBar.Increment = 67
  VertScrollBar.Tracking = True
  Caption = 'Fen'#234'tre de d'#233'bug'
  Color = clWindow
  TransparentColorValue = clTeal
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWhite
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  DesignSize = (
    831
    749)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 595
    Top = 4
    Width = 108
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'Niveau du Debug (0-3)'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 443
    Top = 2
    Width = 131
    Height = 18
    Anchors = [akTop, akRight]
    Caption = 'Fen'#234'tre de d'#233'bug'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object EditNivDebug: TEdit
    Left = 754
    Top = 2
    Width = 49
    Height = 21
    Anchors = [akTop, akRight]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = 'EditNivDebug'
    OnKeyPress = EditNivDebugKeyPress
  end
  object ButtonEcrLog: TButton
    Left = 442
    Top = 328
    Width = 97
    Height = 29
    Anchors = [akTop, akRight]
    Caption = 'Sauvegarder le log'
    TabOrder = 1
    OnClick = ButtonEcrLogClick
  end
  object ButtonRazTampon: TButton
    Left = 442
    Top = 360
    Width = 97
    Height = 33
    Anchors = [akTop, akRight]
    Caption = 'Raz Tampon Ev'#232'nements ---->'
    TabOrder = 2
    WordWrap = True
    OnClick = ButtonRazTamponClick
  end
  object ButtonCherche: TButton
    Left = 442
    Top = 296
    Width = 97
    Height = 25
    Hint = 'Cherche la cha'#238'ne "erreur"'
    Anchors = [akTop, akRight]
    Caption = 'Chercher erreurs'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ButtonChercheClick
  end
  object ButtonAffEvtChrono: TButton
    Left = 442
    Top = 256
    Width = 97
    Height = 33
    Anchors = [akTop, akRight]
    Caption = 'Affiche Evts d'#233'tecteurs et aig'
    TabOrder = 4
    WordWrap = True
    OnClick = ButtonAffEvtChronoClick
  end
  object ButtonCop: TButton
    Left = 442
    Top = 208
    Width = 97
    Height = 41
    Anchors = [akTop, akRight]
    Caption = 'Copie fen'#234'te principale dans debug'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -9
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    WordWrap = True
    OnClick = ButtonCopClick
  end
  object ButtonRazLog: TButton
    Left = 442
    Top = 400
    Width = 97
    Height = 33
    Anchors = [akTop, akRight]
    Caption = 'Raz Tampon Log <-----'
    TabOrder = 6
    WordWrap = True
    OnClick = ButtonRazLogClick
  end
  object GroupBox1: TGroupBox
    Left = 448
    Top = 600
    Width = 369
    Height = 185
    Anchors = [akTop, akRight]
    Caption = 'Fonctions primitives'
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 7
    object GroupBox3: TGroupBox
      Left = 8
      Top = 16
      Width = 353
      Height = 73
      Caption = 'Signal'
      TabOrder = 0
      object Label4: TLabel
        Left = 313
        Top = 10
        Width = 32
        Height = 13
        Caption = 'Signal:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ButtonSigSuiv: TButton
        Left = 16
        Top = 16
        Width = 57
        Height = 49
        Hint = 'Etat du signal suivant'
        Caption = 'Etat signal suivant'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        WordWrap = True
        OnClick = ButtonSigSuivClick
      end
      object ButtonCanSuivSig: TButton
        Left = 80
        Top = 16
        Width = 65
        Height = 49
        Hint = 'Renvoie l'#39'occupation du canton suivant le signal'
        Caption = 'Etat canton suivant signal'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        WordWrap = True
        OnClick = ButtonCanSuivSigClick
      end
      object EditSigSuiv: TEdit
        Left = 312
        Top = 32
        Width = 33
        Height = 21
        Hint = 'Indiquer l'#39'adresse du signal '
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object ButtonCP: TButton
        Left = 152
        Top = 16
        Width = 81
        Height = 49
        Caption = 'Etat 3 cantons pr'#233'c'#233'dents signal'
        TabOrder = 3
        WordWrap = True
        OnClick = ButtonCPClick
      end
      object Button2: TButton
        Left = 240
        Top = 16
        Width = 65
        Height = 49
        Caption = 'Cond Carr'#233' aiguillages'
        TabOrder = 4
        WordWrap = True
        OnClick = Button2Click
      end
    end
    object GroupBox4: TGroupBox
      Left = 8
      Top = 96
      Width = 353
      Height = 81
      Caption = 'D'#233'tecteur/'#233'l'#233'ment suivant'
      TabOrder = 1
      object ButtonDetSuiv: TButton
        Left = 16
        Top = 16
        Width = 185
        Height = 25
        Hint = 
          'Renvoie le d'#233'tecteur suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou ai' +
          'guillages) '
        Caption = 'D'#233'tecteur suivant aux '#233'l'#233'ments'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = ButtonDetSuivClick
      end
      object EditPrec: TEdit
        Left = 208
        Top = 34
        Width = 49
        Height = 21
        Hint = 'Element pr'#233'c'#233'dent'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object EditActuel: TEdit
        Left = 264
        Top = 34
        Width = 49
        Height = 21
        Hint = 'Element actuel'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object ButtonElSuiv: TButton
        Left = 16
        Top = 48
        Width = 185
        Height = 25
        Hint = 
          'Renvoie l'#39#233'l'#233'ment suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou aigui' +
          'llages) '
        Caption = 'Element suivant aux '#233'l'#233'ments'
        TabOrder = 3
        OnClick = ButtonElSuivClick
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 440
    Top = 20
    Width = 401
    Height = 149
    Anchors = [akTop, akRight]
    Caption = 'S'#233'lections d'#39'affichage'
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 8
    object CheckAffSig: TCheckBox
      Left = 8
      Top = 16
      Width = 161
      Height = 17
      Caption = 'Fonctionnement des signaux'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = CheckAffSigClick
    end
    object CheckBoxEvtDetAig: TCheckBox
      Left = 8
      Top = 32
      Width = 289
      Height = 17
      Caption = 'Ev'#232'nements d'#233'tecteurs, aiguillages et actionneurs'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = CheckBoxEvtDetAigClick
    end
    object CheckBoxTraceLIste: TCheckBox
      Left = 8
      Top = 128
      Width = 185
      Height = 17
      Caption = 'Evaluations des routes des trains'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = CheckBoxTraceLIsteClick
    end
    object CheckTrame: TCheckBox
      Left = 8
      Top = 96
      Width = 233
      Height = 17
      Caption = 'Trames '#233'chang'#233'es avec l'#39'interface ou CDM'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = CheckTrameClick
    end
    object CheckBoxAffFD: TCheckBox
      Left = 8
      Top = 112
      Width = 193
      Height = 17
      Caption = 'Fronts descendants des d'#233'tecteurs'
      Color = cl3DLight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 4
      OnClick = CheckBoxAffFDClick
    end
    object CheckBoxAffDebDecSig: TCheckBox
      Left = 8
      Top = 80
      Width = 193
      Height = 17
      Caption = 'Pilotage des d'#233'codeurs de signaux'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = CheckBoxAffDebDecSigClick
    end
    object EditDebugSignal: TEdit
      Left = 168
      Top = 12
      Width = 33
      Height = 21
      Hint = 
        'Adresse du signal seul '#224' surveiller ou si 0 surveille tous les s' +
        'ignaux'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnChange = EditDebugSignalChange
    end
    object CheckBoxTiers: TCheckBox
      Left = 8
      Top = 64
      Width = 273
      Height = 17
      Hint = 
        'N'#233'cessite d'#39'activer les services "signaux" et "position des trai' +
        'ns" dans la configuration g'#233'n'#233'rale'
      Caption = 'Ev'#232'vements tiers (signaux et position des trains)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = CheckBoxTiersClick
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 48
      Width = 177
      Height = 17
      Caption = 'Duplication Fen'#234'tre evts vers log'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = CheckBox1Click
    end
    object CheckDebugTCO: TCheckBox
      Left = 264
      Top = 128
      Width = 121
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Debug TCO'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = CheckDebugTCOClick
    end
    object CheckDetSIg: TCheckBox
      Left = 264
      Top = 112
      Width = 121
      Height = 17
      Hint = 'Affichage des '#233'v'#232'nements d'#233'tecteurs et signaux avec tick'
      Alignment = taLeftJustify
      Caption = 'Det et signaux'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = CheckDetSIgClick
    end
  end
  object RichDebug: TRichEdit
    Left = 8
    Top = 8
    Width = 425
    Height = 741
    Anchors = [akLeft, akTop, akRight, akBottom]
    Lines.Strings = (
      'RichDebug')
    PopupMenu = PopupMenuRD
    ScrollBars = ssBoth
    TabOrder = 9
    OnChange = RichDebugChange
  end
  object GroupBox5: TGroupBox
    Left = 448
    Top = 488
    Width = 372
    Height = 57
    Anchors = [akTop, akRight]
    Caption = 'Simulation d'#233'tecteur / actionneur'
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 10
    object EditSimuDet: TEdit
      Left = 16
      Top = 24
      Width = 33
      Height = 21
      Hint = 'Adresse d'#39'un d'#233'tecteur'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object ButtonSimuDet0: TButton
      Left = 72
      Top = 16
      Width = 65
      Height = 33
      Caption = 'D'#233'tecteur '#224' 0'
      TabOrder = 1
      WordWrap = True
      OnClick = ButtonSimuDet0Click
    end
    object ButtonSimuDet1: TButton
      Left = 152
      Top = 16
      Width = 65
      Height = 33
      Caption = 'D'#233'tecteur '#224' 1'
      TabOrder = 2
      WordWrap = True
      OnClick = ButtonSimuDet1Click
    end
    object ButtonSimuAct0: TButton
      Left = 224
      Top = 16
      Width = 65
      Height = 33
      Caption = 'Actionneur '#224' 0'
      TabOrder = 3
      WordWrap = True
      OnClick = ButtonSimuAct0Click
    end
    object ButtonSimuAct1: TButton
      Left = 296
      Top = 16
      Width = 65
      Height = 33
      Caption = 'Actionneur '#224' 1'
      TabOrder = 4
      WordWrap = True
      OnClick = ButtonSimuAct1Click
    end
  end
  object ButtonRazTout: TButton
    Left = 443
    Top = 176
    Width = 97
    Height = 25
    Hint = 
      'Supprime les trains d'#233'tect'#233's ou en cas de nouveau RUN, permet de' +
      ' partir de 0'
    Anchors = [akTop, akRight]
    Caption = 'RAZ tous trains'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = ButtonRazToutClick
  end
  object GroupBox6: TGroupBox
    Left = 448
    Top = 552
    Width = 372
    Height = 41
    Anchors = [akTop, akRight]
    Caption = 'Sorties'
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 12
    object Label3: TLabel
      Left = 16
      Top = 16
      Width = 38
      Height = 13
      Caption = 'Adresse'
    end
    object Label5: TLabel
      Left = 104
      Top = 16
      Width = 27
      Height = 13
      Caption = 'Sortie'
    end
    object EditAdresse: TEdit
      Left = 64
      Top = 10
      Width = 33
      Height = 21
      Hint = 'Adresse d'#39'accessoire'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object EditSortie: TEdit
      Left = 136
      Top = 10
      Width = 25
      Height = 21
      Hint = 'Sortie 1 ou 2'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object Button1: TButton
      Left = 224
      Top = 8
      Width = 49
      Height = 25
      Hint = 
        'Mise '#224' 1 de la sortie - attention peut d'#233'truire les moteurs '#224' bo' +
        'bine'
      Caption = 'Mise '#224' 1'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button0: TButton
      Left = 280
      Top = 8
      Width = 49
      Height = 25
      Hint = 'Mise '#224' 0 de la sortie'
      Caption = 'Mise '#224' 0'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = Button0Click
    end
  end
  object MemoEvtDet: TRichEdit
    Left = 544
    Top = 174
    Width = 281
    Height = 307
    Anchors = [akTop, akRight]
    Color = clBlack
    ScrollBars = ssVertical
    TabOrder = 13
    OnChange = MemoEvtDetChange
  end
  object SaveDialog: TSaveDialog
    Left = 760
    Top = 472
  end
  object PopupMenuRE: TPopupMenu
    Left = 768
    Top = 432
    object copier1: TMenuItem
      Caption = 'copier'
    end
  end
  object PopupMenuRD: TPopupMenu
    Left = 808
    Top = 360
    object Copier2: TMenuItem
      Caption = 'Copier'
      OnClick = Copier2Click
    end
  end
end
