object saisiesph: Tsaisiesph
  Left = 364
  Height = 531
  Top = 127
  Width = 661
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Propriétés de cette sphère'
  ClientHeight = 531
  ClientWidth = 661
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object radiosortant: TRadioGroup
    AnchorSideTop.Control = radioentrant
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 141
    Top = 347
    Width = 296
    AutoFill = True
    BorderSpacing.Top = 10
    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 = 119
    ClientWidth = 292
    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
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 129
    Top = 208
    Width = 296
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    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 = 107
    ClientWidth = 292
    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
    AnchorSideLeft.Control = GroupBox3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 182
    Height = 184
    Top = 10
    Width = 306
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Indice de réfraction du milieu'
    ClientHeight = 162
    ClientWidth = 302
    TabOrder = 2
    object StaticText2: TLabel
      AnchorSideLeft.Control = GroupBox2
      Left = 10
      Height = 17
      Top = 24
      Width = 87
      BorderSpacing.Left = 10
      Caption = 'Pour le rouge:'
      ParentColor = False
    end
    object StaticText3: TLabel
      AnchorSideLeft.Control = GroupBox2
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 56
      Width = 76
      BorderSpacing.Left = 10
      BorderSpacing.Top = 15
      Caption = 'Pour le vert:'
      ParentColor = False
    end
    object StaticText4: TLabel
      AnchorSideLeft.Control = GroupBox2
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 88
      Width = 76
      BorderSpacing.Left = 10
      BorderSpacing.Top = 15
      Caption = 'Pour le bleu:'
      ParentColor = False
    end
    object StaticText7: TLabel
      AnchorSideLeft.Control = GroupBox2
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 120
      Width = 56
      BorderSpacing.Left = 10
      BorderSpacing.Top = 15
      Caption = 'Matériau:'
      ParentColor = False
    end
    object editnrouge: TEdit
      AnchorSideLeft.Control = StaticText2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrCenter
      Left = 107
      Height = 25
      Top = 20
      Width = 80
      BorderSpacing.Left = 10
      TabOrder = 3
      Text = '1,5'
    end
    object editnvert: TEdit
      AnchorSideLeft.Control = StaticText3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrCenter
      Left = 96
      Height = 25
      Top = 52
      Width = 89
      BorderSpacing.Left = 10
      TabOrder = 0
      Text = '1,6'
    end
    object editnbleu: TEdit
      AnchorSideLeft.Control = StaticText4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrCenter
      Left = 96
      Height = 25
      Top = 84
      Width = 89
      BorderSpacing.Left = 10
      TabOrder = 1
      Text = '1,7'
    end
    object combomateriaux: TComboBox
      AnchorSideLeft.Control = StaticText7
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText7
      AnchorSideTop.Side = asrCenter
      Left = 76
      Height = 25
      Top = 116
      Width = 185
      BorderSpacing.Left = 10
      ItemHeight = 17
      OnChange = combomateriauxChange
      Style = csDropDownList
      TabOrder = 2
    end
  end
  object GroupBox3: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 10
    Height = 113
    Top = 10
    Width = 162
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Coordonnées du centre'
    ClientHeight = 91
    ClientWidth = 158
    TabOrder = 3
    object StaticText5: TLabel
      Left = 8
      Height = 17
      Top = 16
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText6: TLabel
      Left = 8
      Height = 17
      Top = 52
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log1: TLabel
      AnchorSideLeft.Control = editx
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx
      AnchorSideTop.Side = asrCenter
      Left = 123
      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 = 123
      Height = 17
      Top = 52
      Width = 26
      Caption = 'log2'
      ParentColor = False
    end
    object editx: TEdit
      AnchorSideLeft.Control = StaticText5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText5
      AnchorSideTop.Side = asrCenter
      Left = 26
      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 = 26
      Height = 25
      Top = 48
      Width = 97
      TabOrder = 1
    end
  end
  object boutonsup: TBitBtn
    Left = 8
    Height = 25
    Top = 496
    Width = 632
    Caption = 'Supprimer cette sphère'
    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 = 4
  end
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox3
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 65
    Top = 133
    Width = 161
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Rayon de courbure'
    ClientHeight = 43
    ClientWidth = 157
    TabOrder = 5
    object StaticText1: TLabel
      Left = 16
      Height = 17
      Top = 16
      Width = 19
      Caption = 'R='
      ParentColor = False
    end
    object log3: TLabel
      AnchorSideLeft.Control = editrayon
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editrayon
      AnchorSideTop.Side = asrCenter
      Left = 92
      Height = 17
      Top = 16
      Width = 26
      Caption = 'log3'
      ParentColor = False
    end
    object editrayon: TEdit
      AnchorSideLeft.Control = StaticText1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrCenter
      Left = 35
      Height = 25
      Top = 12
      Width = 57
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideLeft.Control = radioentrant
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 316
    Height = 129
    Top = 208
    Width = 209
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Couleur à l''écran'
    ClientHeight = 107
    ClientWidth = 205
    TabOrder = 6
    object Colorgrid1: TColorBox
      AnchorSideLeft.Control = GroupBox4
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox4
      AnchorSideTop.Side = asrCenter
      Left = 36
      Height = 22
      Top = 42
      Width = 133
      ItemHeight = 16
      TabOrder = 0
    end
  end
  object BitBtn2: TBitBtn
    Left = 317
    Height = 54
    Top = 408
    Width = 204
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 7
  end
  object BitBtn1: TBitBtn
    Left = 528
    Height = 425
    Top = 8
    Width = 111
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 8
  end
end
