object FormPrinc: TFormPrinc
  Left = 55
  Top = 196
  AutoSize = True
  BorderStyle = bsSingle
  Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
  ClientHeight = 606
  ClientWidth = 1196
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LabelTitre: TLabel
    Left = 8
    Top = 16
    Width = 173
    Height = 18
    Caption = 'Signaux complexes GL'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object LabelEtat: TLabel
    Left = 456
    Top = 16
    Width = 152
    Height = 18
    Caption = 'Initialisations en cours'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Image9feux: TImage
    Left = 384
    Top = 0
    Width = 57
    Height = 105
    Picture.Data = {
[encoded data, 12851 characters]
      FCFCFCFCFCFCFCFCFCFCFC0000000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image7feux: TImage
    Left = 504
    Top = 8
    Width = 57
    Height = 105
    Picture.Data = {
[encoded data, 11289 characters]
      FCFCFCFC0000}
    Visible = False
  end
  object Image5feux: TImage
    Left = 280
    Top = 0
    Width = 41
    Height = 89
    Picture.Data = {
[encoded data, 6461 characters]
      FCFCFCFCFCFCFC0000000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image4feux: TImage
    Left = 240
    Top = 8
    Width = 41
    Height = 97
    Picture.Data = {
[encoded data, 5893 characters]
      0000FCFCFCFCFCFCFCFCFC0000000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image3feux: TImage
    Left = 600
    Top = 8
    Width = 33
    Height = 57
    Picture.Data = {
[encoded data, 5112 characters]
      00000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image2feux: TImage
    Left = 1096
    Top = 136
    Width = 33
    Height = 57
    Picture.Data = {
[encoded data, 4615 characters]
      00000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image2Dir: TImage
    Left = 968
    Top = 48
    Width = 41
    Height = 25
    Picture.Data = {
[encoded data, 4686 characters]
      000000000000000C0C0C0C0C0C0C0C000000}
    Visible = False
  end
  object Image3Dir: TImage
    Left = 1008
    Top = 48
    Width = 49
    Height = 25
    Picture.Data = {
[encoded data, 4899 characters]
      0000000000000000000000000000000000000C0C0C0C0C0C0C0C}
    Visible = False
  end
  object Image4Dir: TImage
    Left = 1056
    Top = 48
    Width = 57
    Height = 25
    Picture.Data = {
[encoded data, 5609 characters]
      0000000000000000000C0C0C0C0C0C0C0C00}
    Visible = False
  end
  object Image5Dir: TImage
    Left = 1112
    Top = 48
    Width = 65
    Height = 25
    Picture.Data = {
[encoded data, 6319 characters]
      0C0C0C0C0C0C0C0C0000}
    Visible = False
  end
  object Image6Dir: TImage
    Left = 1112
    Top = 80
    Width = 81
    Height = 25
    Picture.Data = {
[encoded data, 7029 characters]
      0000}
    Visible = False
  end
  object Label1: TLabel
    Left = 656
    Top = 148
    Width = 89
    Height = 13
    Caption = 'Nombre de trains : '
  end
  object LabelNbTrains: TLabel
    Left = 760
    Top = 144
    Width = 9
    Height = 19
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BoutVersion: TButton
    Left = 1008
    Top = 16
    Width = 83
    Height = 33
    Caption = 'Dem version'
    TabOrder = 0
    OnClick = BoutVersionClick
  end
  object ListBox1: TListBox
    Left = 8
    Top = 48
    Width = 633
    Height = 520
    Style = lbOwnerDrawFixed
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
    OnDrawItem = ListBox1DrawItem
  end
  object BoutonRaf: TButton
    Left = 912
    Top = 16
    Width = 89
    Height = 33
    Caption = 'Rafraichissement'
    TabOrder = 2
    OnClick = BoutonRafClick
  end
  object ScrollBox1: TScrollBox
    Left = 648
    Top = 168
    Width = 537
    Height = 405
    Color = clWhite
    ParentColor = False
    TabOrder = 3
  end
  object GroupBox1: TGroupBox
    Left = 656
    Top = 8
    Width = 249
    Height = 129
    Caption = 'Commande d'#39'accessoires'
    TabOrder = 4
    object Label2: TLabel
      Left = 7
      Top = 16
      Width = 58
      Height = 13
      Caption = 'adresse acc'
    end
    object Label3: TLabel
      Left = 75
      Top = 16
      Width = 30
      Height = 13
      Caption = '1 ou 2'
    end
    object Label4: TLabel
      Left = 133
      Top = 10
      Width = 85
      Height = 13
      Caption = '1=d'#233'vi'#233'     2=droit'
    end
    object EditAdresse: TEdit
      Left = 8
      Top = 32
      Width = 57
      Height = 21
      Hint = 'Adresse accessoire ou de CV'
      TabOrder = 0
      Text = '1'
    end
    object Editval: TEdit
      Left = 72
      Top = 32
      Width = 41
      Height = 21
      Hint = 'Entrez 1 ou 2 pour un accessoire DCC et 1 '#224' 255 pour un CV'
      TabOrder = 1
      Text = '1'
      OnEnter = EditvalEnter
    end
    object ButtonCommande: TButton
      Left = 124
      Top = 24
      Width = 109
      Height = 33
      Hint = 'Ecriture des accessoires DCC'
      Caption = 'Envoi commande'
      TabOrder = 2
      WordWrap = True
      OnClick = ButtonCommandeClick
    end
    object ButtonEcrCV: TButton
      Left = 8
      Top = 64
      Width = 225
      Height = 25
      Hint = 'Ecriture CV en mode direct sur voie de  programmation'
      Caption = 'Ecriture CV - 1 '#224' 255 par bus XpressNet'
      TabOrder = 3
      WordWrap = True
      OnClick = ButtonEcrCVClick
    end
    object ButtonLitCV: TButton
      Left = 8
      Top = 96
      Width = 225
      Height = 25
      Hint = 'Lecture CV en mode direct sur voie de  programmation'
      Caption = 'Lecture CV - 1 '#224' 255 par le bus XpressNet'
      Enabled = False
      TabOrder = 4
      OnClick = ButtonLitCVClick
    end
  end
  object ButtonTest: TButton
    Left = 912
    Top = 96
    Width = 89
    Height = 33
    Caption = 'Demande '#233'tat r'#233'trosignalisation'
    TabOrder = 5
    WordWrap = True
    OnClick = ButtonTestClick
  end
  object ButtonInfo: TButton
    Left = 1008
    Top = 56
    Width = 81
    Height = 33
    Caption = 'Informations'
    TabOrder = 6
    OnClick = ButtonInfoClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 576
    Width = 1196
    Height = 30
    Panels = <>
    SimplePanel = True
  end
  object MSCommUSBLenz: TMSComm
    Left = 1144
    Top = 120
    Width = 32
    Height = 32
    OnComm = MSCommUSBLenzComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000011000000}
  end
  object loco: TButton
    Left = 1096
    Top = 16
    Width = 75
    Height = 33
    Caption = 'loco'
    TabOrder = 9
    OnClick = locoClick
  end
  object ButtonAffDebug: TButton
    Left = 912
    Top = 56
    Width = 89
    Height = 33
    Caption = 'Affiche debug'
    TabOrder = 10
    OnClick = ButtonAffDebugClick
  end
  object ButtonReprise: TButton
    Left = 1096
    Top = 56
    Width = 75
    Height = 33
    Hint = 
      'Relance du bus DCC apr'#232's une '#233'criture d'#39'un CV ou une mise hors t' +
      'ension de la centrale'
    Caption = 'Reprise DCC'
    TabOrder = 11
    OnClick = ButtonRepriseClick
  end
  object Button2: TButton
    Left = 872
    Top = 136
    Width = 97
    Height = 25
    Caption = 'Simu D'#233'tecteur 513'
    TabOrder = 12
    Visible = False
    OnClick = Button2Click
  end
  object ButtonArretSimu: TButton
    Left = 1008
    Top = 96
    Width = 81
    Height = 33
    Caption = 'Arret simulation'
    TabOrder = 13
    Visible = False
    OnClick = ButtonArretSimuClick
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 888
    Top = 80
  end
  object ClientSocketLenz: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketLenzConnect
    OnDisconnect = ClientSocketLenzDisconnect
    OnRead = ClientSocketLenzRead
    OnError = ClientSocketLenzError
    Left = 320
  end
  object MainMenu1: TMainMenu
    Left = 1160
    Top = 8
    object Afficher1: TMenuItem
      Caption = 'Afficher'
      object Etatdesdtecteurs1: TMenuItem
        Caption = 'Etat des d'#233'tecteurs'
        Hint = 'Affiche l'#39#233'tat des d'#233'tecteurs'
        OnClick = AffEtatDetecteurs
      end
      object ChronoDetect: TMenuItem
        Caption = 'Chronologie des d'#233'tecteurs et aiguillages'
        Hint = 'Affiche la chronologie des d'#233'tecteurs'
        OnClick = ChronoDetectClick
      end
      object Etatdesaiguillages1: TMenuItem
        Caption = 'Etat des aiguillages'
        OnClick = Etatdesaiguillages1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Codificationdesaiguillages1: TMenuItem
        Caption = 'Codification des aiguillages'
        OnClick = Codificationdesaiguillages1Click
      end
      object Codificationdesfeux1: TMenuItem
        Caption = 'Codification des feux'
        OnClick = Codificationdesfeux1Click
      end
      object Codificationdesactionneurs1: TMenuItem
        Caption = 'Codification des actionneurs'
        OnClick = Codificationdesactionneurs1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Quitter1: TMenuItem
        Caption = 'Quitter'
        OnClick = Quitter1Click
      end
    end
    object Interface1: TMenuItem
      Caption = 'Interface'
      object MenuConnecterUSB: TMenuItem
        Caption = 'Connecter USB'
        Hint = 'Connecter l'#39'interface en USB'
        OnClick = MenuConnecterUSBClick
      end
      object DeconnecterUSB: TMenuItem
        Caption = 'D'#233'connecter USB'
        Hint = 'D'#233'connecter l'#39'interface USB'
        OnClick = DeconnecterUSBClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuConnecterEthernet: TMenuItem
        Caption = 'Connecter Ethernet'
        Hint = 'Connecter l'#39'interface par Ethernet'
        OnClick = MenuConnecterEthernetClick
      end
      object MenuDeconnecterEthernet: TMenuItem
        Caption = 'D'#233'connecter Ethernet'
        Hint = 'D'#233'connecter l'#39'interface par Ethernet'
        OnClick = MenuDeconnecterEthernetClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object ConnecterCDMrail: TMenuItem
        Caption = 'Connecter CDM rail'
        OnClick = ConnecterCDMrailClick
      end
      object DeconnecterCDMRail: TMenuItem
        Caption = 'D'#233'connecter CDM rail'
        OnClick = DeconnecterCDMRailClick
      end
    end
    object Divers1: TMenuItem
      Caption = 'Divers'
      object Config: TMenuItem
        Caption = 'Configuration'
        Hint = 'Modifie les variables de configuration sans sauvegarde'
        OnClick = ConfigClick
      end
      object FichierSimu: TMenuItem
        Caption = 'Ouvrir un fichier de simulation'
        Hint = 
          'Ouvre un fichier de simulation des d'#233'tecteurs pour simuler un fo' +
          'nctionnement'
        OnClick = FichierSimuClick
      end
      object OuvrirunfichiertramesCDM1: TMenuItem
        Caption = 'Ouvrir un fichier trames CDM'
        OnClick = OuvrirunfichiertramesCDM1Click
      end
      object Versions1: TMenuItem
        Caption = 'Versions'
        Hint = 'Versions'
        OnClick = Versions1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object LireunfichierdeCV1: TMenuItem
        Caption = 'Lire un fichier de CV vers un accessoire'
        Hint = 
          'Ouvre un fichier de CV pour l'#39'envoyer vers un accessoire branch'#233 +
          ' sur la voie de programmation'
        OnClick = LireunfichierdeCV1Click
      end
    end
  end
  object ClientSocketCDM: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketCDMConnect
    OnDisconnect = ClientSocketCDMDisconnect
    OnRead = ClientSocketCDMRead
    OnError = ClientSocketCDMError
    Left = 352
  end
  object OpenDialog: TOpenDialog
    Left = 1104
    Top = 112
  end
  object SaveDialog: TSaveDialog
    Left = 1120
    Top = 88
  end
end
