object saisiepolyhedre: Tsaisiepolyhedre
  Left = 291
  Height = 436
  Top = 191
  Width = 708
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Propriétés de ce polygône'
  ClientHeight = 436
  ClientWidth = 708
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object radiosortant: TRadioGroup
    Left = 8
    Height = 128
    Top = 256
    Width = 362
    AutoFill = True
    Caption = 'Rayon réfléchi (sens sortant)'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 106
    ClientWidth = 358
    ItemIndex = 1
    Items.Strings = (
      'Toujours'
      'Jamais'
      'Seulement si le réfracté existe'
      'Seulement si le réfracté n''existe pas'
    )
    TabOrder = 0
  end
  object radioentrant: TRadioGroup
    Left = 264
    Height = 113
    Top = 104
    Width = 433
    AutoFill = True
    Caption = 'Rayon réfléchi (sens entrant)'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 91
    ClientWidth = 429
    ItemIndex = 1
    Items.Strings = (
      'Toujours'
      'Jamais'
      'Seulement si le réfracté existe'
      'Seulement si le réfracté n''existe pas'
    )
    TabOrder = 1
  end
  object GroupBox2: TGroupBox
    Left = 384
    Height = 161
    Top = 224
    Width = 313
    Caption = 'Indice de réfraction du milieu'
    ClientHeight = 139
    ClientWidth = 309
    TabOrder = 2
    object StaticText2: TLabel
      Left = 8
      Height = 17
      Top = 16
      Width = 87
      Caption = 'Pour le rouge:'
      ParentColor = False
    end
    object StaticText3: TLabel
      Left = 8
      Height = 17
      Top = 48
      Width = 76
      Caption = 'Pour le vert:'
      ParentColor = False
    end
    object StaticText4: TLabel
      Left = 8
      Height = 17
      Top = 80
      Width = 76
      Caption = 'Pour le bleu:'
      ParentColor = False
    end
    object StaticText1: TLabel
      Left = 8
      Height = 17
      Top = 112
      Width = 56
      Caption = 'Matériau:'
      ParentColor = False
    end
    object editnrouge: TEdit
      AnchorSideLeft.Control = StaticText2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrCenter
      Left = 105
      Height = 25
      Top = 12
      Width = 73
      BorderSpacing.Left = 10
      TabOrder = 3
    end
    object editnvert: TEdit
      AnchorSideLeft.Control = StaticText3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrCenter
      Left = 94
      Height = 25
      Top = 44
      Width = 73
      BorderSpacing.Left = 10
      TabOrder = 0
    end
    object editnbleu: TEdit
      AnchorSideLeft.Control = StaticText4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrCenter
      Left = 94
      Height = 25
      Top = 76
      Width = 73
      BorderSpacing.Left = 10
      TabOrder = 1
    end
    object combomateriaux: TComboBox
      AnchorSideLeft.Control = StaticText1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrCenter
      Left = 74
      Height = 25
      Top = 108
      Width = 145
      BorderSpacing.Left = 10
      ItemHeight = 17
      OnChange = combomateriauxChange
      Style = csDropDownList
      TabOrder = 2
    end
  end
  object ComboBox1: TComboBox
    Left = 0
    Height = 25
    Top = 32
    Width = 121
    ItemHeight = 17
    OnChange = ComboBox1Change
    Style = csDropDownList
    TabOrder = 3
  end
  object GroupBox3: TGroupBox
    Left = 144
    Height = 97
    Top = 0
    Width = 257
    Caption = 'Coordonnées de ce sommet'
    ClientHeight = 75
    ClientWidth = 253
    TabOrder = 4
    object StaticText5: TLabel
      Left = 32
      Height = 17
      Top = 16
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText6: TLabel
      Left = 32
      Height = 17
      Top = 48
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log1: TLabel
      AnchorSideLeft.Control = editx
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx
      AnchorSideTop.Side = asrCenter
      Left = 147
      Height = 17
      Top = 16
      Width = 26
      Caption = 'log1'
      ParentColor = False
    end
    object log2: TLabel
      AnchorSideLeft.Control = edity
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edity
      AnchorSideTop.Side = asrCenter
      Left = 147
      Height = 17
      Top = 48
      Width = 26
      Caption = 'log2'
      ParentColor = False
    end
    object editx: TEdit
      AnchorSideLeft.Control = StaticText5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText5
      AnchorSideTop.Side = asrCenter
      Left = 50
      Height = 25
      Top = 12
      Width = 97
      TabOrder = 0
    end
    object edity: TEdit
      AnchorSideLeft.Control = StaticText6
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText6
      AnchorSideTop.Side = asrCenter
      Left = 50
      Height = 25
      Top = 44
      Width = 97
      TabOrder = 1
    end
  end
  object boutonsup: TBitBtn
    Left = 8
    Height = 33
    Top = 392
    Width = 689
    Caption = 'Supprimer ce polygône'
    Enabled = False
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000
    }
    ModalResult = 7
    NumGlyphs = 2
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 8
    Height = 145
    Top = 104
    Width = 240
    Caption = 'Couleur à l''écran'
    ClientHeight = 123
    ClientWidth = 236
    TabOrder = 6
    object Colorgrid1: TColorBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox1
      AnchorSideTop.Side = asrCenter
      Left = 50
      Height = 22
      Top = 50
      Width = 136
      ItemHeight = 16
      TabOrder = 0
    end
  end
  object BitBtn1: TBitBtn
    Left = 440
    Height = 56
    Top = 6
    Width = 259
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 7
  end
  object BitBtn2: TBitBtn
    Left = 440
    Height = 23
    Top = 72
    Width = 260
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 8
  end
end
