SignauxComplexes/UnitAnalyseSegCDM.dfm

object FormAnalyseCDM: TFormAnalyseCDM
  Left = 193
  Top = 60
  AutoScroll = False
  Caption = 'Fen'#234'tre r'#233'seau CDM'
  ClientHeight = 596
  ClientWidth = 1041
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnMouseWheel = FormMouseWheel
  OnResize = FormResize
  DesignSize = (
    1041
    596)
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 1001
    Top = 520
    Width = 27
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'Zoom'
  end
  object ImageLoco: TImage
    Left = 688
    Top = 600
    Width = 65
    Height = 25
    Picture.Data = {
      07544269746D61701A020000424D1A0200000000000076000000280000003100
      00000F0000000100040000000000A40100000000000000000000100000000000
      0000000000000000800000800000008080008000000080008000808000008080
      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000FFF77777BBB777777777
      777777777777777777BBB77777FFF0000000FF777777B7B77777777777777777
      7777777777B7B777777FF0000000FF777777BBB7999999999999999999977777
      77BBB777777FF0000000FF777777BBBBBBB7777777777777779777BBBBBBB777
      777FF0000000FF777777BBBBBBBBBB7777777777779BBBBBBBBBB777777FF000
      0000FF777777BBB7BBBB77777777777777977BBBB7BBB777777FF0000000FF77
      7777BBBB7777777777777777779999997BBBB777777FF0000000FF777777B7B7
      77777777777777777777777777B7B777777FF0000000FFF77777BBB777777777
      777777777777777777BBB77777FFF0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFF0000000}
    Transparent = True
    Visible = False
  end
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 16
    Width = 986
    Height = 457
    HorzScrollBar.Tracking = True
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoScroll = False
    Color = clBlack
    ParentColor = False
    TabOrder = 0
    object ImageCDM: TImage
      Left = 24
      Top = 8
      Width = 873
      Height = 465
      ParentShowHint = False
      ShowHint = True
      OnClick = ImageCDMClick
      OnMouseMove = ImageCDMMouseMove
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 484
    Width = 385
    Height = 109
    Anchors = [akLeft, akBottom]
    Caption = 'Affichages '
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 50
      Width = 76
      Height = 26
      Caption = 'Afficher le segment/port n'#176
      WordWrap = True
    end
    object Label3: TLabel
      Left = 8
      Top = 84
      Width = 82
      Height = 13
      Caption = 'Allumer d'#233'tecteur'
    end
    object CheckConnexions: TCheckBox
      Left = 8
      Top = 16
      Width = 97
      Height = 17
      Hint = 'Points de connexions des ports des d'#233'tecteurs et des actionneurs'
      Caption = 'Connexions'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = CheckConnexionsClick
    end
    object CheckAdresses: TCheckBox
      Left = 8
      Top = 32
      Width = 97
      Height = 17
      Hint = 'Adresses des d'#233'tecteurs et actionneurs'
      Caption = 'Adresses'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = CheckAdressesClick
    end
    object CheckSegments: TCheckBox
      Left = 128
      Top = 16
      Width = 81
      Height = 17
      Caption = 'segments'
      TabOrder = 2
      OnClick = CheckSegmentsClick
    end
    object CheckPorts: TCheckBox
      Left = 128
      Top = 32
      Width = 65
      Height = 17
      Hint = 'Affiche le num'#233'ro de segment et le port de CDM'
      Caption = 'Ports'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = CheckPortsClick
    end
    object EditPort: TEdit
      Left = 96
      Top = 56
      Width = 49
      Height = 21
      TabOrder = 4
    end
    object ButtonAffPort: TButton
      Left = 152
      Top = 56
      Width = 73
      Height = 25
      Caption = 'Afficher'
      TabOrder = 5
      OnClick = ButtonAffPortClick
    end
    object EditDetecteur: TEdit
      Left = 96
      Top = 80
      Width = 33
      Height = 21
      TabOrder = 6
    end
    object ButtonAffDet: TButton
      Left = 152
      Top = 80
      Width = 73
      Height = 25
      Caption = 'Allumer'
      TabOrder = 7
      OnClick = ButtonAffDetClick
    end
    object CheckColorationDiff: TCheckBox
      Left = 232
      Top = 16
      Width = 137
      Height = 17
      Caption = 'Coloration diff'#233'renti'#233'e'
      TabOrder = 8
      OnClick = CheckColorationDiffClick
    end
    object ButtonAllumeTs: TButton
      Left = 232
      Top = 80
      Width = 129
      Height = 25
      Caption = 'Allume tous les d'#233'tecteurs'
      TabOrder = 9
      OnClick = ButtonAllumeTsClick
    end
    object ButtonImprime: TButton
      Left = 232
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Imprimer'
      TabOrder = 10
      OnClick = ButtonImprimeClick
    end
  end
  object TrackBar1: TTrackBar
    Left = 1001
    Top = 16
    Width = 37
    Height = 489
    Hint = 'Curseur de Zoom'
    Anchors = [akTop, akRight]
    Max = 90
    Min = 50
    Orientation = trVertical
    ParentShowHint = False
    Position = 90
    ShowHint = True
    TabOrder = 2
    OnChange = TrackBar1Change
  end
  object GroupBoxSegment: TGroupBox
    Left = 400
    Top = 484
    Width = 145
    Height = 109
    Anchors = [akLeft, akBottom]
    Caption = 'Segment'
    TabOrder = 3
    object Label2: TLabel
      Left = 8
      Top = 22
      Width = 42
      Height = 13
      Caption = 'Segment'
    end
    object LabelAdresse: TLabel
      Left = 11
      Top = 48
      Width = 44
      Height = 13
      Caption = 'Adresse :'
    end
    object LabelPorts: TLabel
      Left = 11
      Top = 74
      Width = 33
      Height = 13
      Caption = 'Ports : '
      WordWrap = True
    end
    object EditSegment: TEdit
      Left = 80
      Top = 16
      Width = 41
      Height = 21
      ReadOnly = True
      TabOrder = 0
    end
    object EditAdresse: TEdit
      Left = 64
      Top = 44
      Width = 57
      Height = 21
      Hint = 'Changement de l'#39'adresse de l'#39'aiguillage'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = EditAdresseChange
    end
  end
  object Memo1: TMemo
    Left = 552
    Top = 492
    Width = 105
    Height = 93
    Anchors = [akLeft, akBottom]
    Lines.Strings = (
      'cliquez sur un '
      'segment du r'#233'seau '
      'pour avoir d'#39'autres '
      'informations')
    ReadOnly = True
    TabOrder = 4
  end
  object ButtonAnime: TButton
    Left = 752
    Top = 496
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Test anime'
    TabOrder = 5
    OnClick = ButtonAnimeClick
  end
  object PrintDialog1: TPrintDialog
    Left = 688
    Top = 560
  end
end