object saisiefantomes: Tsaisiefantomes
  Left = 200
  Height = 330
  Top = 108
  Width = 818
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Pour cacher des segments de rayon'
  ClientHeight = 330
  ClientWidth = 818
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 10
    Height = 310
    Top = 10
    Width = 609
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Bottom = 10
    Caption = 'Saisie des fantomes'
    ClientHeight = 288
    ClientWidth = 605
    TabOrder = 0
    object StaticText1: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = GroupBox1
      Left = 10
      Height = 17
      Top = 10
      Width = 503
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'Pour des raisons de commodité, la possibilité vous est offerte de "cacher" certaines'
      ParentColor = False
    end
    object StaticText2: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 27
      Width = 537
      BorderSpacing.Left = 10
      Caption = 'parties des rayons lumineux calculés. Pour ce faire, cocher la case "Créer des fantomes",'
      ParentColor = False
    end
    object StaticText3: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 44
      Width = 529
      BorderSpacing.Left = 10
      Caption = 'et donner la liste des segments à cacher. Les numéros des segments sont actuellement'
      ParentColor = False
    end
    object StaticText4: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 61
      Width = 158
      BorderSpacing.Left = 10
      Caption = 'visualisés sur la simulation.'
      ParentColor = False
    end
    object StaticText5: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = cochefantomes
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 119
      Width = 555
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'Liste des fantomes (liste entre parenthéses, numéro des segments séparés par des virgules,'
      ParentColor = False
    end
    object StaticText6: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText5
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 136
      Width = 223
      BorderSpacing.Left = 10
      Caption = 'sans espaces); exemple: (1,5,10,12)'
      ParentColor = False
    end
    object cochefantomes: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrBottom
      Left = 231
      Height = 21
      Top = 88
      Width = 143
      BorderSpacing.Top = 10
      Caption = 'Créer des fantomes'
      TabOrder = 0
    end
    object editfantomes: TEdit
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText6
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GroupBox1
      AnchorSideRight.Side = asrBottom
      Left = 10
      Height = 25
      Top = 163
      Width = 585
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      BorderSpacing.Right = 10
      TabOrder = 1
    end
  end
  object BitBtn1: TBitBtn
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 629
    Height = 310
    Top = 10
    Width = 179
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Right = 10
    BorderSpacing.Bottom = 10
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 1
  end
end
