object saisieprisme: Tsaisieprisme
  Left = 528
  Height = 548
  Top = 147
  Width = 668
  ActiveControl = Edit_gx
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Ajout d''un prisme'
  ClientHeight = 548
  ClientWidth = 668
  Color = clAqua
  DesignTimePPI = 120
  OnCreate = FormCreate
  OnShow = FormShow
  ParentFont = True
  LCLVersion = '1.8.0.6'
  object Image1: TImage
    Left = 0
    Height = 100
    Top = 0
    Width = 100
    Picture.Data = {
      1754506F727461626C654E6574776F726B477261706869631602000089504E47
      0D0A1A0A0000000D49484452000000640000006401030000004A2C0717000000
      017352474200AECE1CE900000006504C5445000000FFFFFFA5D99FDD00000009
      7048597300000B1300000B1301009A9C180000000774494D4507DA011111102B
      512EAEF5000001964944415438CB55D3316EE330100550035BA474B1C5962A73
      001F4047D8C3A408B6098B142A75041E618F904285BAF5110CC141545A5A1796
      609A3F43911CCEB0111E288D385FA31D785D31ED8A3AA577A52729FF2CB5FC96
      9A8E5267A5DE4AEDA57C550B392335416AF046A8576A1C8ADC2FA5C3BA142DAB
      D4ECD6FF86D5F98350834EA8C238B15C8DB1EC2D06E35867CD06C7A233D096B3
      34802DDA4BF91AD46C96335213A406BAD9B07A252AE990E52BDC8AA8E4A56801
      4E2B6B50EA808F2B8B8E6F8A2A78B028068F318B62789C583370B7C72C2A796B
      5914C3CDDAAC0AB8B0420C27169584B5755288E12F8B92C5EB3F931462B8FB2C
      8AE1F1C8A218480E5121D9BBCF0A256F7E4D1AC82DFE24F5F8324F78496AF1F5
      F6238B4A8E7EB72D12C5F0497B63DCA364C3734973508B63541784AC26B69454
      C5A1B0517BA526AA8E3A2BCD4A21B13811882713C2F60A07EE48AA0BD7159C84
      D4A2B415BD6685748BB6A223AB571A94B8F54DCE488529B0ACF4A388E9A98BCE
      4A93D26262EB51BE9642E520D428754AF32AB528B98394FF2985F4D9A66F42F6
      A86D8437660D0000000049454E44AE426082
    }
  end
  object GroupBox1: TGroupBox
    Left = 104
    Height = 99
    Top = 1
    Width = 184
    Caption = 'Centre d''inertie'
    ClientHeight = 74
    ClientWidth = 180
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Height = 20
      Top = 5
      Width = 17
      Caption = 'x='
      ParentColor = False
    end
    object Label2: TLabel
      Left = 8
      Height = 20
      Top = 41
      Width = 17
      Caption = 'y='
      ParentColor = False
    end
    object log1: TLabel
      Left = 145
      Height = 20
      Top = 5
      Width = 30
      Caption = 'log1'
      ParentColor = False
    end
    object log2: TLabel
      Left = 144
      Height = 20
      Top = 46
      Width = 30
      Caption = 'log2'
      ParentColor = False
    end
    object Edit_gx: TEdit
      Left = 32
      Height = 28
      Top = 0
      Width = 101
      TabOrder = 0
    end
    object Edit_gy: TEdit
      Left = 31
      Height = 28
      Top = 39
      Width = 102
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Height = 61
    Top = 232
    Width = 282
    Caption = 'Angle au sommet'
    ClientHeight = 36
    ClientWidth = 278
    TabOrder = 1
    object Label4: TLabel
      Left = 14
      Height = 20
      Top = 11
      Width = 20
      Caption = 'A='
      ParentColor = False
    end
    object Label7: TLabel
      AnchorSideLeft.Control = Edit_angleausommet
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Edit_angleausommet
      AnchorSideTop.Side = asrCenter
      Left = 148
      Height = 20
      Top = 11
      Width = 22
      Caption = 'rad'
      ParentColor = False
    end
    object Edit_angleausommet: TEdit
      AnchorSideLeft.Control = Label4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label4
      AnchorSideTop.Side = asrCenter
      Left = 34
      Height = 28
      Top = 7
      Width = 114
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 10
    Height = 56
    Top = 296
    Width = 280
    Caption = 'Angle polaire de la hauteur principale'
    ClientHeight = 31
    ClientWidth = 276
    TabOrder = 2
    object Label5: TLabel
      Left = 12
      Height = 20
      Top = 7
      Width = 15
      Caption = 't='
      ParentColor = False
    end
    object Label8: TLabel
      AnchorSideLeft.Control = Edit_anglepolaire
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Edit_anglepolaire
      AnchorSideTop.Side = asrCenter
      Left = 136
      Height = 20
      Top = 7
      Width = 22
      Caption = 'rad'
      ParentColor = False
    end
    object Edit_anglepolaire: TEdit
      AnchorSideLeft.Control = Label5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label5
      AnchorSideTop.Side = asrCenter
      Left = 27
      Height = 28
      Top = 3
      Width = 109
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 13
    Height = 58
    Top = 360
    Width = 275
    Caption = 'Hauteur'
    ClientHeight = 33
    ClientWidth = 271
    TabOrder = 3
    object Label6: TLabel
      Left = 5
      Height = 20
      Top = 8
      Width = 63
      Caption = 'Hauteur='
      ParentColor = False
    end
    object log3: TLabel
      AnchorSideLeft.Control = Edit_hauteur
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label6
      AnchorSideTop.Side = asrCenter
      Left = 177
      Height = 20
      Top = 8
      Width = 30
      Caption = 'log3'
      ParentColor = False
    end
    object Edit_hauteur: TEdit
      AnchorSideLeft.Control = Label6
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label6
      AnchorSideTop.Side = asrCenter
      Left = 68
      Height = 28
      Top = 4
      Width = 109
      TabOrder = 0
    end
  end
  object BitBtn1: TBitBtn
    Left = 13
    Height = 112
    Top = 112
    Width = 275
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 4
  end
  object BitBtn2: TBitBtn
    Left = 424
    Height = 40
    Top = 496
    Width = 232
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 5
  end
  object boutonsup: TBitBtn
    Left = 9
    Height = 40
    Top = 496
    Width = 408
    Caption = 'Supprimer ce prisme'
    TabOrder = 6
  end
  object GroupBox5: TGroupBox
    Left = 13
    Height = 63
    Top = 424
    Width = 271
    Caption = 'Couleur du prisme'
    ClientHeight = 38
    ClientWidth = 267
    TabOrder = 7
    object Label9: TLabel
      Left = 7
      Height = 20
      Top = 13
      Width = 54
      Caption = 'Couleur:'
      ParentColor = False
    end
    object colorgrid1: TColorBox
      AnchorSideLeft.Control = Label9
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label9
      AnchorSideTop.Side = asrCenter
      Left = 71
      Height = 22
      Top = 12
      Width = 129
      BorderSpacing.Left = 10
      ItemHeight = 16
      TabOrder = 0
    end
  end
  object GroupBox6: TGroupBox
    Left = 304
    Height = 175
    Top = 312
    Width = 352
    Caption = 'Indice de réfraction du milieu'
    ClientHeight = 150
    ClientWidth = 348
    TabOrder = 8
    object StaticText2: TLabel
      Left = 8
      Height = 20
      Top = 15
      Width = 91
      Caption = 'Pour le rouge:'
      ParentColor = False
    end
    object StaticText3: TLabel
      Left = 8
      Height = 20
      Top = 42
      Width = 77
      Caption = 'Pour le vert:'
      ParentColor = False
    end
    object StaticText4: TLabel
      Left = 8
      Height = 20
      Top = 71
      Width = 81
      Caption = 'Pour le bleu:'
      ParentColor = False
    end
    object StaticText7: TLabel
      Left = 8
      Height = 20
      Top = 113
      Width = 62
      Caption = 'Matériau:'
      ParentColor = False
    end
    object editnrouge: TEdit
      AnchorSideLeft.Control = StaticText2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrCenter
      Left = 109
      Height = 28
      Top = 11
      Width = 81
      BorderSpacing.Left = 10
      TabOrder = 0
      Text = '1,5'
    end
    object editnvert: TEdit
      AnchorSideLeft.Control = StaticText3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrCenter
      Left = 95
      Height = 28
      Top = 38
      Width = 91
      BorderSpacing.Left = 10
      TabOrder = 1
      Text = '1,6'
    end
    object editnbleu: TEdit
      AnchorSideLeft.Control = StaticText4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrCenter
      Left = 99
      Height = 28
      Top = 67
      Width = 91
      BorderSpacing.Left = 10
      TabOrder = 2
      Text = '1,7'
    end
    object combomateriaux: TComboBox
      AnchorSideLeft.Control = StaticText7
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText7
      AnchorSideTop.Side = asrCenter
      Left = 80
      Height = 28
      Top = 109
      Width = 185
      BorderSpacing.Left = 10
      ItemHeight = 20
      OnChange = combomateriauxChange
      Style = csDropDownList
      TabOrder = 3
    end
  end
  object radioentrant: TRadioGroup
    Left = 304
    Height = 137
    Top = 168
    Width = 352
    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 = 112
    ClientWidth = 348
    ItemIndex = 1
    Items.Strings = (
      'Toujours'
      'Jamais'
      'Seulement si le réfracté existe'
      'Seulement si le réfracté n''existe pas'
    )
    TabOrder = 9
  end
  object radiosortant: TRadioGroup
    Left = 304
    Height = 161
    Top = 3
    Width = 344
    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 = 136
    ClientWidth = 340
    ItemIndex = 1
    Items.Strings = (
      'Toujours'
      'Jamais'
      'Seulement si le réfracté existe'
      'Seulement si le réfracté n''existe pas'
    )
    TabOrder = 10
  end
end
