object FormPrinc: TFormPrinc
  Left = 6
  Top = 246
  Width = 1213
  Height = 664
  Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
  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
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    1197
    606)
  PixelsPerInch = 96
  TextHeight = 13
  object LabelTitre: TLabel
    Left = 8
    Top = 8
    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 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 = 984
    Top = 128
    Width = 33
    Height = 57
    Picture.Data = {
[encoded data, 4615 characters]
      00000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image2Dir: TImage
    Left = 936
    Top = 144
    Width = 41
    Height = 25
    Picture.Data = {
[encoded data, 4686 characters]
      000000000000000C0C0C0C0C0C0C0C000000}
    Visible = False
  end
  object Image3Dir: TImage
    Left = 840
    Top = 136
    Width = 49
    Height = 25
    Picture.Data = {
[encoded data, 4899 characters]
      0000000000000000000000000000000000000C0C0C0C0C0C0C0C}
    Visible = False
  end
  object Image4Dir: TImage
    Left = 1064
    Top = 136
    Width = 57
    Height = 25
    Picture.Data = {
[encoded data, 5609 characters]
      0000000000000000000C0C0C0C0C0C0C0C00}
    Visible = False
  end
  object Image5Dir: TImage
    Left = 464
    Top = 0
    Width = 65
    Height = 25
    Picture.Data = {
[encoded data, 6319 characters]
      0C0C0C0C0C0C0C0C0000}
    Visible = False
  end
  object Image6Dir: TImage
    Left = 872
    Top = 136
    Width = 81
    Height = 25
    Picture.Data = {
[encoded data, 7029 characters]
      0000}
    Visible = False
  end
  object LabelEtat: TLabel
    Left = 440
    Top = 16
    Width = 152
    Height = 18
    Anchors = [akTop, akRight]
    Caption = 'Initialisations en cours'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object ScrollBox1: TScrollBox
    Left = 632
    Top = 176
    Width = 546
    Height = 385
    HorzScrollBar.Smooth = True
    HorzScrollBar.Tracking = True
    VertScrollBar.Smooth = True
    VertScrollBar.Tracking = True
    Anchors = [akTop, akRight, akBottom]
    Color = clWhite
    ParentColor = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 632
    Top = 5
    Width = 266
    Height = 52
    Anchors = [akTop, akRight]
    Caption = 'Commande d'#39'accessoires'
    TabOrder = 1
    object Label2: TLabel
      Left = 7
      Top = 24
      Width = 58
      Height = 13
      Caption = 'adresse acc'
    end
    object EditAdresse: TEdit
      Left = 72
      Top = 24
      Width = 49
      Height = 21
      Hint = 'Adresse accessoire'
      TabOrder = 0
      Text = '1'
    end
    object ButtonDroit: TButton
      Left = 132
      Top = 16
      Width = 53
      Height = 25
      Hint = 'Ecriture des accessoires DCC'
      Caption = 'droit'
      TabOrder = 1
      WordWrap = True
      OnClick = ButtonDroitClick
    end
    object ButtonDevie: TButton
      Left = 192
      Top = 16
      Width = 57
      Height = 25
      Hint = 'Ecriture des accessoires DCC'
      Caption = 'devi'#233
      TabOrder = 2
      WordWrap = True
      OnClick = ButtonDevieClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 584
    Width = 1197
    Height = 22
    Panels = <>
    SimplePanel = True
  end
  object MSCommUSBLenz: TMSComm
    Left = 1160
    Top = 192
    Width = 32
    Height = 32
    OnComm = MSCommUSBLenzComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000011000000}
  end
  object Panel1: TPanel
    Left = 904
    Top = 5
    Width = 282
    Height = 92
    Anchors = [akTop, akRight]
    TabOrder = 4
    object BoutonRaf: TButton
      Left = 8
      Top = 8
      Width = 89
      Height = 33
      Hint = 
        'Mise '#224' jour des feux suivant les zones occup'#233'es et les aiguillag' +
        'es'
      Caption = 'Rafraichissement'
      TabOrder = 0
      OnClick = BoutonRafClick
    end
    object ButtonArretSimu: TButton
      Left = 8
      Top = 48
      Width = 89
      Height = 33
      Caption = 'Arret simulation'
      TabOrder = 1
      Visible = False
      WordWrap = True
      OnClick = ButtonArretSimuClick
    end
    object ButtonAffTCO: TButton
      Left = 104
      Top = 48
      Width = 81
      Height = 33
      Caption = 'Affiche TCO'
      TabOrder = 2
      OnClick = ButtonAffTCOClick
    end
    object ButtonLanceCDM: TButton
      Left = 192
      Top = 8
      Width = 81
      Height = 33
      Hint = 'Lance CDM Rail'
      Caption = 'Lance CDM rail'
      TabOrder = 3
      OnClick = ButtonLanceCDMClick
    end
    object ButtonLocCV: TButton
      Left = 104
      Top = 8
      Width = 83
      Height = 33
      Hint = 'Affichage du panneau de contr'#244'le des trains ou des CV'
      Caption = 'Trains / CVs'
      TabOrder = 4
      OnClick = ButtonLocCVClick
    end
    object BoutonRazTrains: TButton
      Left = 192
      Top = 48
      Width = 81
      Height = 33
      Hint = 
        'Supprime les trains d'#233'tect'#233's ou en cas de nouveau RUN, permet de' +
        ' partir de 0'
      Caption = 'Raz trains ou nouveau RUN'
      TabOrder = 5
      WordWrap = True
      OnClick = BoutonRazTrainsClick
    end
  end
  object Panel2: TPanel
    Left = 905
    Top = 104
    Width = 281
    Height = 25
    Anchors = [akTop, akRight]
    TabOrder = 5
    object Label1: TLabel
      Left = 16
      Top = 4
      Width = 89
      Height = 13
      Caption = 'Nombre de trains : '
    end
    object LabelNbTrains: TLabel
      Left = 248
      Top = 2
      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
  end
  object StaticText: TStaticText
    Left = 16
    Top = 565
    Width = 14
    Height = 17
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'xx'
    TabOrder = 6
  end
  object FenRich: TRichEdit
    Left = 8
    Top = 32
    Width = 601
    Height = 529
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenuFenRich
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 7
    WordWrap = False
    OnChange = FenRichChange
    OnMouseDown = FenRichMouseDown
  end
  object GroupBox2: TGroupBox
    Left = 633
    Top = 64
    Width = 265
    Height = 105
    Anchors = [akTop, akRight]
    Caption = 'Variables CV'
    TabOrder = 8
    object Label3: TLabel
      Left = 208
      Top = 34
      Width = 14
      Height = 13
      Caption = 'CV'
      WordWrap = True
    end
    object LabelVCV: TLabel
      Left = 208
      Top = 55
      Width = 47
      Height = 13
      Caption = 'Valeur CV'
      WordWrap = True
    end
    object ButtonEcrCV: TButton
      Left = 8
      Top = 16
      Width = 153
      Height = 33
      Hint = 'Ecriture CV en mode direct sur voie de  programmation'
      Caption = 'Ecriture CV - 1 '#224' 255 par bus XpressNet'
      TabOrder = 0
      WordWrap = True
      OnClick = ButtonEcrCVClick
    end
    object ButtonLitCV: TButton
      Left = 8
      Top = 64
      Width = 153
      Height = 33
      Hint = 'Lecture CV en mode direct sur voie de  programmation'
      Caption = 'Lecture CV - 1 '#224' 255 par le bus XpressNet'
      Enabled = False
      TabOrder = 1
      WordWrap = True
      OnClick = ButtonLitCVClick
    end
    object EditCV: TEdit
      Left = 168
      Top = 32
      Width = 33
      Height = 21
      TabOrder = 2
    end
    object EditVal: TEdit
      Left = 168
      Top = 52
      Width = 33
      Height = 21
      TabOrder = 3
    end
  end
  object GroupBox3: TGroupBox
    Left = 632
    Top = 64
    Width = 265
    Height = 105
    Anchors = [akTop, akRight]
    Caption = 'Commande aux trains'
    TabOrder = 9
    object Label4: TLabel
      Left = 8
      Top = 22
      Width = 67
      Height = 13
      Caption = 'Adresse train :'
    end
    object Label5: TLabel
      Left = 8
      Top = 44
      Width = 74
      Height = 13
      Caption = 'Vitesse train % :'
    end
    object LabelFonction: TLabel
      Left = 144
      Top = 44
      Width = 47
      Height = 13
      Caption = 'Fonction: '
    end
    object Label6: TLabel
      Left = 224
      Top = 44
      Width = 9
      Height = 13
      Caption = #224' '
    end
    object loco: TButton
      Left = 6
      Top = 64
      Width = 83
      Height = 33
      Caption = 'Envoi vitesse '#224' loco'
      TabOrder = 0
      WordWrap = True
      OnClick = locoClick
    end
    object EditAdrTrain: TEdit
      Left = 80
      Top = 16
      Width = 25
      Height = 21
      TabOrder = 1
    end
    object EditVitesse: TEdit
      Left = 80
      Top = 40
      Width = 25
      Height = 21
      TabOrder = 2
      Text = '30'
    end
    object ComboTrains: TComboBox
      Left = 112
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      OnChange = ComboTrainsChange
    end
    object EditNumFonction: TEdit
      Left = 192
      Top = 40
      Width = 25
      Height = 21
      Hint = 'Fonction de 0 '#224' 12 ou 28'
      TabOrder = 4
    end
    object ButtonFonction: TButton
      Left = 176
      Top = 64
      Width = 81
      Height = 33
      Caption = 'Envoi fonction '#224' loco'
      TabOrder = 6
      WordWrap = True
      OnClick = ButtonFonctionClick
    end
    object EditFonc01: TEdit
      Left = 240
      Top = 40
      Width = 17
      Height = 21
      TabOrder = 5
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 1168
    Top = 224
  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 = 560
    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 Etatdesaiguillages1: TMenuItem
        Caption = 'Etat des aiguillages'
        OnClick = Etatdesaiguillages1Click
      end
      object Etatdessignaux1: TMenuItem
        Caption = 'Etat des signaux'
        OnClick = Etatdessignaux1Click
      end
      object Etatdeszonespartrain1: TMenuItem
        Caption = 'Etat des zones par train'
        OnClick = Etatdeszonespartrain1Click
      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 l'#39'interface XpressNet en USB'
        Hint = 'Connecter l'#39'interface en USB (mode autonome)'
        OnClick = MenuConnecterUSBClick
      end
      object DeconnecterUSB: TMenuItem
        Caption = 'D'#233'connecter l'#39'interface XpressNet de l'#39'USB'
        Hint = 'D'#233'connecter l'#39'interface USB'
        OnClick = DeconnecterUSBClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuConnecterEthernet: TMenuItem
        Caption = 'Connecter l'#39'interface XpressNet en Ethernet'
        Hint = 'Connecter l'#39'interface par Ethernet'
        OnClick = MenuConnecterEthernetClick
      end
      object MenuDeconnecterEthernet: TMenuItem
        Caption = 'D'#233'connecter l'#39'interface XpressNet de Ethernet'
        Hint = 'D'#233'connecter l'#39'interface par Ethernet'
        OnClick = MenuDeconnecterEthernetClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Demanderversiondelacentrale1: TMenuItem
        Caption = 'Interface XpressNet:'
        object Demanderlaversiondelacentrale1: TMenuItem
          Caption = 'Demander la version de la centrale'
          OnClick = Demanderlaversiondelacentrale1Click
        end
        object Demandetataccessoires1: TMenuItem
          Caption = 'Demande '#233'tat accessoires'
          OnClick = Demandetataccessoires1Click
        end
        object RepriseDCC1: TMenuItem
          Caption = 'Reprise DCC'
          Hint = 
            'Relance du bus DCC apr'#232's une '#233'criture d'#39'un CV ou une mise hors t' +
            'ension de la centrale'
          OnClick = RepriseDCC1Click
        end
      end
      object N7: 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 Vrifierlacohrence: TMenuItem
        Caption = 'V'#233'rifier la coh'#233'rence'
        Hint = 'V'#233'rifie la coh'#233'rence de la configuration'
        OnClick = VrifierlacohrenceClick
      end
      object N8: TMenuItem
        Caption = '-'
      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 Affichefentredebug1: TMenuItem
        Caption = 'Affiche fen'#234'tre debug'
        OnClick = Affichefentredebug1Click
      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
      object N6: TMenuItem
        Caption = '-'
      end
      object Apropos1: TMenuItem
        Caption = 'A propos'
        OnClick = Apropos1Click
      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 = 888
    Top = 152
  end
  object SaveDialog: TSaveDialog
    Left = 888
    Top = 16
  end
  object PopupMenuFenRich: TPopupMenu
    Left = 208
    Top = 24
    object Copier1: TMenuItem
      Caption = 'Copier'
      OnClick = Copier1Click
    end
  end
  object PopupMenuFeu: TPopupMenu
    Left = 800
    Top = 144
    object Proprits1: TMenuItem
      Caption = 'Propri'#233't'#233's'
      OnClick = Proprits1Click
    end
  end
end
