object FormPrinc: TFormPrinc
  Left = 22
  Top = 241
  Width = 1227
  Height = 671
  Caption = 'Signaux complexes'
  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
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    1219
    620)
  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 = 416
    Top = 0
    Width = 57
    Height = 105
    Picture.Data = {
[encoded data, 12851 characters]
      FCFCFCFCFCFCFCFCFCFCFC0000000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image7feux: TImage
    Left = 144
    Top = 0
    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 = 904
    Top = 136
    Width = 33
    Height = 57
    Picture.Data = {
[encoded data, 4615 characters]
      00000000000000FCFCFCFCFCFCFCFCFC0000}
    Visible = False
  end
  object Image2Dir: TImage
    Left = 984
    Top = 120
    Width = 41
    Height = 25
    Picture.Data = {
[encoded data, 4686 characters]
      000000000000000C0C0C0C0C0C0C0C000000}
    Visible = False
  end
  object Image3Dir: TImage
    Left = 928
    Top = 168
    Width = 49
    Height = 25
    Picture.Data = {
[encoded data, 4899 characters]
      0000000000000000000000000000000000000C0C0C0C0C0C0C0C}
    Visible = False
  end
  object Image4Dir: TImage
    Left = 1032
    Top = 120
    Width = 57
    Height = 25
    Picture.Data = {
[encoded data, 5609 characters]
      0000000000000000000C0C0C0C0C0C0C0C00}
    Visible = False
  end
  object Image5Dir: TImage
    Left = 960
    Top = 0
    Width = 65
    Height = 25
    Picture.Data = {
[encoded data, 6319 characters]
      0C0C0C0C0C0C0C0C0000}
    Visible = False
  end
  object Image6Dir: TImage
    Left = 896
    Top = 120
    Width = 81
    Height = 25
    Picture.Data = {
[encoded data, 7029 characters]
      0000}
    Visible = False
  end
  object LabelEtat: TLabel
    Left = 454
    Top = 8
    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 SplitterH: TSplitter
    Left = 0
    Top = 0
    Height = 598
  end
  object ScrollBox1: TScrollBox
    Left = 630
    Top = 200
    Width = 563
    Height = 392
    HorzScrollBar.Increment = 48
    HorzScrollBar.Tracking = True
    VertScrollBar.Smooth = True
    VertScrollBar.Tracking = True
    Anchors = [akTop, akRight, akBottom]
    Color = clSilver
    ParentColor = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 630
    Top = 5
    Width = 265
    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 = 20
      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 = 598
    Width = 1219
    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 = 918
    Top = 5
    Width = 282
    Height = 148
    Anchors = [akTop, akRight]
    TabOrder = 4
    object Label1: TLabel
      Left = 64
      Top = 128
      Width = 89
      Height = 13
      Caption = 'Nombre de trains : '
    end
    object LabelNbTrains: TLabel
      Left = 240
      Top = 124
      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 BoutonRaf: TButton
      Left = 8
      Top = 8
      Width = 89
      Height = 33
      Hint = 
        'Mise '#224' jour des signaux suivant les zones occup'#233'es et les aiguil' +
        'lages'
      Caption = 'Rafraichissement'
      TabOrder = 0
      OnClick = BoutonRafClick
    end
    object ButtonArretSimu: TButton
      Left = 192
      Top = 88
      Width = 81
      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
    object ButtonAffAnalyseCDM: TButton
      Left = 8
      Top = 48
      Width = 89
      Height = 33
      Caption = 'Affiche le r'#233'seau CDM'
      TabOrder = 6
      Visible = False
      WordWrap = True
      OnClick = ButtonAffAnalyseCDMClick
    end
  end
  object StaticText: TStaticText
    Left = 16
    Top = 568
    Width = 14
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'xx'
    TabOrder = 5
  end
  object GroupBox2: TGroupBox
    Left = 647
    Top = 64
    Width = 265
    Height = 105
    Anchors = [akTop, akRight]
    Caption = 'Variables CV'
    TabOrder = 6
    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 interface'
      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 interface'
      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 = 630
    Top = 64
    Width = 265
    Height = 129
    Anchors = [akTop, akRight]
    Caption = 'Commande aux trains'
    TabOrder = 7
    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 SBMarcheArretLoco: TSpeedButton
      Left = 96
      Top = 88
      Width = 73
      Height = 33
      Hint = 'Arr'#234't de tous les trains'
      Glyph.Data = {
[encoded data, 8176 characters]
        0E0EF6000000}
      Layout = blGlyphBottom
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = SBMarcheArretLocoClick
    end
    object loco: TButton
      Left = 6
      Top = 88
      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
      OnChange = EditAdrTrainChange
    end
    object EditVitesse: TEdit
      Left = 80
      Top = 40
      Width = 25
      Height = 21
      TabOrder = 2
      Text = '30'
      OnChange = EditVitesseChange
    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 = 88
      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
    object TrackBarVit: TTrackBar
      Left = 24
      Top = 64
      Width = 233
      Height = 21
      Hint = 'Vitesse loco en %'
      Ctl3D = False
      Max = 100
      ParentCtl3D = False
      TabOrder = 7
      OnChange = TrackBarVitChange
    end
  end
  object ButtonEnv: TButton
    Left = 1078
    Top = 160
    Width = 113
    Height = 33
    Anchors = [akTop, akRight]
    Caption = 'Envoi vers centrale DCC++'
    TabOrder = 8
    WordWrap = True
    OnClick = ButtonEnvClick
  end
  object EditEnvoi: TEdit
    Left = 950
    Top = 168
    Width = 121
    Height = 21
    Anchors = [akTop, akRight]
    TabOrder = 9
    Text = '<1>'
  end
  object Button1: TButton
    Left = 494
    Top = 0
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Button1'
    TabOrder = 10
    Visible = False
    OnClick = Button1Click
  end
  object Panel2: TPanel
    Left = 8
    Top = 32
    Width = 609
    Height = 497
    TabOrder = 11
    object SplitterV: TSplitter
      Left = 1
      Top = 1
      Width = 8
      Height = 495
      Beveled = True
      OnMoved = SplitterVMoved
    end
    object FenRich: TRichEdit
      Left = 8
      Top = 16
      Width = 593
      Height = 505
      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 = 0
      WordWrap = False
      OnChange = FenRichChange
      OnMouseDown = FenRichMouseDown
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 1168
    Top = 224
  end
  object ClientSocketInterface: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketInterfaceConnect
    OnDisconnect = ClientSocketInterfaceDisconnect
    OnRead = ClientSocketInterfaceRead
    OnError = ClientSocketInterfaceError
    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 Evenementsdetecteurspartrain1: TMenuItem
        Caption = 'Evenements detecteurs par train'
        OnClick = Evenementsdetecteurspartrain1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Codificationdesaiguillages1: TMenuItem
        Caption = 'Codification des aiguillages'
        OnClick = Codificationdesaiguillages1Click
      end
      object Codificationdessignaux: TMenuItem
        Caption = 'Codification des signaux'
        OnClick = CodificationdessignauxClick
      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 en USB'
        Hint = 'Connecter l'#39'interface en USB (mode autonome)'
        OnClick = MenuConnecterUSBClick
      end
      object DeconnecterUSB: TMenuItem
        Caption = 'D'#233'connecter l'#39'interface 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 en Ethernet'
        Hint = 'Connecter l'#39'interface par Ethernet'
        OnClick = MenuConnecterEthernetClick
      end
      object MenuDeconnecterEthernet: TMenuItem
        Caption = 'D'#233'connecter l'#39'interface de Ethernet'
        Hint = 'D'#233'connecter l'#39'interface par Ethernet'
        OnClick = MenuDeconnecterEthernetClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Demanderversiondelacentrale1: TMenuItem
        Caption = 'Interface'
        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 Demandetatdtecteurs1: TMenuItem
          Caption = 'Demande '#233'tat d'#233'tecteurs'
          OnClick = Demandetatdtecteurs1Click
        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 LancerCDMrail1: TMenuItem
        Caption = 'Lancer et connecter CDM rail'
        OnClick = LancerCDMrail1Click
      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'
        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'
        Hint = 'Ouvre un fichier trames CDM (protocole COM IP)'
        OnClick = OuvrirunfichiertramesCDM1Click
      end
      object Affichefentredebug1: TMenuItem
        Caption = 'Affiche fen'#234'tre debug'
        OnClick = Affichefentredebug1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Analyser1: TMenuItem
        Caption = 'Importer le r'#233'seau CDM Rail'
        Hint = 
          'Importer le r'#233'seau CDM rail (aiguillages, branches) et cr'#233'e le f' +
          'ichier de segments CDM'
        OnClick = Analyser1Click
      end
      object Affiche_fenetre_CDM: TMenuItem
        Caption = 'Affiche la fen'#234'tre du r'#233'seau CDM'
        OnClick = Affiche_fenetre_CDMClick
      end
      object N9: 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
      object Vrifiernouvelleversion1: TMenuItem
        Caption = 'V'#233'rifier nouvelle version'
        OnClick = Vrifiernouvelleversion1Click
      end
    end
    object Roulage1: TMenuItem
      Caption = 'Roulage'
      object Placerlestrains1: TMenuItem
        Caption = 'Placer les trains'
        OnClick = Placerlestrains1Click
      end
      object RazResa: TMenuItem
        Caption = 'Mise '#224' z'#233'ro des r'#233'servations des aiguillages'
        OnClick = RazResaClick
      end
    end
  end
  object ClientSocketCDM: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketCDMConnect
    OnDisconnect = ClientSocketCDMDisconnect
    OnRead = ClientSocketCDMRead
    OnError = ClientSocketCDMError
    Left = 344
  end
  object OpenDialog: TOpenDialog
    Left = 944
    Top = 65528
  end
  object SaveDialog: TSaveDialog
    Left = 888
    Top = 16
  end
  object PopupMenuFenRich: TPopupMenu
    Left = 208
    Top = 16
    object Copier1: TMenuItem
      Caption = 'Copier'
      OnClick = Copier1Click
    end
    object Coller1: TMenuItem
      Caption = 'Coller, compiler et importer le r'#233'seau CDM rail'
      OnClick = Coller1Click
    end
  end
  object PopupMenuFeu: TPopupMenu
    OnPopup = PopupMenuFeuPopup
    Left = 896
    object Proprits1: TMenuItem
      Caption = 'Propri'#233't'#233's du signal'
      OnClick = Proprits1Click
    end
    object Informationsdusignal1: TMenuItem
      Caption = 'Informations du signal'
      OnClick = Informationsdusignal1Click
    end
  end
end
