object saisiesp: Tsaisiesp
  Left = 422
  Height = 754
  Top = 182
  Width = 781
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Saisie d''une source ponctuelle'
  ClientHeight = 754
  ClientWidth = 781
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object Image1: TImage
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 10
    Height = 100
    Top = 10
    Width = 100
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Picture.Data = {
[encoded data, 11786 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
    }
  end
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = GroupBox5
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 291
    Height = 105
    Top = 10
    Width = 161
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Point 1'
    ClientHeight = 83
    ClientWidth = 157
    TabOrder = 0
    object StaticText1: TLabel
      Left = 8
      Height = 17
      Top = 21
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText2: TLabel
      Left = 8
      Height = 17
      Top = 61
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log3: TLabel
      AnchorSideLeft.Control = editx1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx1
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 21
      Width = 26
      Caption = 'log3'
      ParentColor = False
    end
    object log4: TLabel
      AnchorSideLeft.Control = edity1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edity1
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 61
      Width = 26
      Caption = 'log4'
      ParentColor = False
    end
    object editx1: TEdit
      AnchorSideLeft.Control = StaticText1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 17
      Width = 97
      TabOrder = 0
    end
    object edity1: TEdit
      AnchorSideLeft.Control = StaticText2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 57
      Width = 97
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 462
    Height = 105
    Top = 10
    Width = 161
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Point 2'
    ClientHeight = 83
    ClientWidth = 157
    TabOrder = 1
    object StaticText3: TLabel
      Left = 8
      Height = 17
      Top = 21
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText4: TLabel
      Left = 8
      Height = 17
      Top = 61
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log5: TLabel
      AnchorSideLeft.Control = editx2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx2
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 21
      Width = 26
      Caption = 'log5'
      ParentColor = False
    end
    object log6: TLabel
      AnchorSideLeft.Control = edity2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edity2
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 61
      Width = 26
      Caption = 'log6'
      ParentColor = False
    end
    object editx2: TEdit
      AnchorSideLeft.Control = StaticText3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 17
      Width = 97
      TabOrder = 0
    end
    object edity2: TEdit
      AnchorSideLeft.Control = StaticText4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 57
      Width = 97
      TabOrder = 1
    end
  end
  object radiocouleur: TRadioGroup
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox5
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 136
    Top = 125
    Width = 153
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Couleur de la source'
    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 = 114
    ClientWidth = 149
    ItemIndex = 0
    Items.Strings = (
      'Rouge'
      'Vert'
      'Bleu'
      'Lumière blanche'
    )
    TabOrder = 2
  end
  object GroupBox3: TGroupBox
    AnchorSideLeft.Control = radiocouleur
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox5
    AnchorSideTop.Side = asrBottom
    Left = 173
    Height = 57
    Top = 125
    Width = 145
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Epaisseur à l''écran'
    ClientHeight = 35
    ClientWidth = 141
    TabOrder = 3
    object editepaisseur: TSpinEdit
      AnchorSideLeft.Control = GroupBox3
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox3
      AnchorSideTop.Side = asrCenter
      Left = 50
      Height = 25
      Top = 5
      Width = 41
      MaxValue = 20
      MinValue = 1
      TabOrder = 0
      Value = 1
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideTop.Control = GroupBox9
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 105
    Top = 430
    Width = 760
    BorderSpacing.Top = 10
    Caption = 'Tracer en pointillé le prolongement des différents segments des rayons'
    ClientHeight = 83
    ClientWidth = 756
    TabOrder = 4
    object StaticText8: TLabel
      Left = 16
      Height = 17
      Top = 24
      Width = 75
      Caption = 'Vers l''avant:'
      ParentColor = False
    end
    object StaticText9: TLabel
      Left = 16
      Height = 17
      Top = 56
      Width = 78
      Caption = 'Vers l''arrière:'
      ParentColor = False
    end
    object StaticText10: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editvav
      Left = 368
      Height = 17
      Top = 20
      Width = 182
      BorderSpacing.Left = 10
      Caption = 'Liste des segments concernés'
      ParentColor = False
    end
    object StaticText11: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText10
      AnchorSideTop.Side = asrBottom
      Left = 368
      Height = 17
      Top = 37
      Width = 280
      BorderSpacing.Left = 10
      Caption = '(entre parenthéses et séparés par des virgules'
      ParentColor = False
    end
    object StaticText12: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText11
      AnchorSideTop.Side = asrBottom
      Left = 368
      Height = 17
      Top = 54
      Width = 219
      BorderSpacing.Left = 10
      Caption = 'et sans espaces); exemple: (1,4,10)'
      ParentColor = False
    end
    object editvav: TEdit
      AnchorSideLeft.Control = StaticText8
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText8
      AnchorSideTop.Side = asrCenter
      Left = 101
      Height = 25
      Top = 20
      Width = 257
      BorderSpacing.Left = 10
      TabOrder = 0
    end
    object editvaa: TEdit
      AnchorSideLeft.Control = StaticText9
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText9
      AnchorSideTop.Side = asrCenter
      Left = 104
      Height = 25
      Top = 52
      Width = 257
      BorderSpacing.Left = 10
      TabOrder = 1
    end
  end
  object GroupBox5: TGroupBox
    AnchorSideLeft.Control = Image1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 120
    Height = 105
    Top = 10
    Width = 161
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Source'
    ClientHeight = 83
    ClientWidth = 157
    TabOrder = 5
    object StaticText5: TLabel
      Left = 8
      Height = 17
      Top = 17
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText6: TLabel
      Left = 8
      Height = 17
      Top = 57
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log1: TLabel
      AnchorSideLeft.Control = editsx
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editsx
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 17
      Width = 26
      Caption = 'log1'
      ParentColor = False
    end
    object log2: TLabel
      AnchorSideLeft.Control = editsy
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editsy
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 57
      Width = 26
      Caption = 'log2'
      ParentColor = False
    end
    object editsx: TEdit
      AnchorSideLeft.Control = StaticText5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText5
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 13
      Width = 97
      TabOrder = 0
    end
    object editsy: TEdit
      AnchorSideLeft.Control = StaticText6
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText6
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 53
      Width = 97
      TabOrder = 1
    end
  end
  object GroupBox6: TGroupBox
    AnchorSideLeft.Control = radiocouleur
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox3
    AnchorSideTop.Side = asrBottom
    Left = 173
    Height = 57
    Top = 192
    Width = 145
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Nombre de rayons'
    ClientHeight = 35
    ClientWidth = 141
    TabOrder = 6
    object spinnombrerayons: TSpinEdit
      AnchorSideLeft.Control = GroupBox6
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox6
      AnchorSideTop.Side = asrCenter
      Left = 42
      Height = 25
      Top = 5
      Width = 57
      MaxValue = 500
      MinValue = 2
      TabOrder = 0
      Value = 5
    end
  end
  object boutonsup: TBitBtn
    Left = 270
    Height = 48
    Top = 368
    Width = 498
    Caption = 'Supprimer cette source ponctuelle'
    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 = 7
  end
  object GroupBox7: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = radiocouleur
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 65
    Top = 271
    Width = 304
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Pour chaque rayon, rayons enfants:'
    ClientHeight = 43
    ClientWidth = 300
    TabOrder = 8
    object StaticText7: TLabel
      AnchorSideLeft.Control = GroupBox7
      AnchorSideTop.Control = GroupBox7
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 17
      Top = 13
      Width = 108
      BorderSpacing.Left = 10
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinmaxenfant: TSpinEdit
      AnchorSideLeft.Control = StaticText7
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox7
      AnchorSideTop.Side = asrCenter
      Left = 128
      Height = 25
      Top = 9
      Width = 57
      BorderSpacing.Left = 10
      MaxValue = 50
      TabOrder = 0
      Value = 10
    end
  end
  object radiovirtuelle: TRadioGroup
    AnchorSideLeft.Control = GroupBox3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox5
    AnchorSideTop.Side = asrBottom
    Left = 328
    Height = 107
    Top = 125
    Width = 145
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Type de source'
    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 = 85
    ClientWidth = 141
    ItemIndex = 0
    Items.Strings = (
      'Réelle'
      'Virtuelle'
    )
    OnClick = radiovirtuelleClick
    TabOrder = 9
  end
  object GroupBox8: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox4
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 191
    Top = 545
    Width = 762
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Tracer des surfaces d''onde issues de cette source ponctuelle'
    ClientHeight = 169
    ClientWidth = 758
    TabOrder = 10
    object StaticText13: TLabel
      AnchorSideLeft.Control = cochesurfacesonde
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cochesurfacesonde
      Left = 83
      Height = 17
      Top = 20
      Width = 595
      BorderSpacing.Left = 10
      Caption = 'Donner les valeurs de chemins optiques pour lesquels vous voulez que soient tracées des surfaces'
      ParentColor = False
    end
    object StaticText14: TLabel
      AnchorSideLeft.Control = cochesurfacesonde
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText13
      AnchorSideTop.Side = asrBottom
      Left = 83
      Height = 17
      Top = 37
      Width = 614
      BorderSpacing.Left = 10
      Caption = 'd''onde (séparez ces valeurs par un unique espace; ne mettez ni parenthèses ni virgule de séparation)'
      ParentColor = False
    end
    object StaticText15: TLabel
      AnchorSideLeft.Control = cochesurfacesonde
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText14
      AnchorSideTop.Side = asrBottom
      Left = 83
      Height = 17
      Top = 54
      Width = 154
      BorderSpacing.Left = 10
      Caption = '(exemple: 120 145  276)'
      ParentColor = False
    end
    object StaticText16: TLabel
      AnchorSideLeft.Control = GroupBox8
      AnchorSideTop.Control = editlistechemins
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 116
      Width = 693
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'Remarque: si la simulation comprend au moins une lentille mince et/ou un miroir paraxial, le tracé  des ces surfaces'
      Font.Color = clRed
      ParentColor = False
      ParentFont = False
    end
    object StaticText17: TLabel
      AnchorSideLeft.Control = GroupBox8
      AnchorSideTop.Control = StaticText16
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 133
      Width = 190
      BorderSpacing.Left = 10
      Caption = 'ne peut être et ne sera pas fait.'
      Font.Color = clRed
      ParentColor = False
      ParentFont = False
    end
    object cochesurfacesonde: TCheckBox
      AnchorSideLeft.Control = GroupBox8
      AnchorSideTop.Control = GroupBox8
      Left = 10
      Height = 21
      Top = 20
      Width = 63
      BorderSpacing.Left = 10
      BorderSpacing.Top = 20
      Caption = 'Tracer'
      TabOrder = 0
    end
    object editlistechemins: TEdit
      AnchorSideLeft.Control = GroupBox8
      AnchorSideTop.Control = StaticText15
      AnchorSideTop.Side = asrBottom
      Left = 40
      Height = 25
      Top = 81
      Width = 465
      BorderSpacing.Left = 40
      BorderSpacing.Top = 10
      TabOrder = 1
    end
  end
  object BitBtn2: TBitBtn
    Left = 320
    Height = 104
    Top = 256
    Width = 144
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 11
  end
  object BitBtn1: TBitBtn
    Left = 480
    Height = 198
    Top = 130
    Width = 288
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 12
  end
  object GroupBox9: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox7
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 74
    Top = 346
    Width = 254
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Nombre max. de segment par rayon'
    ClientHeight = 52
    ClientWidth = 250
    TabOrder = 13
    object StaticText18: TLabel
      AnchorSideLeft.Control = GroupBox9
      AnchorSideTop.Control = GroupBox9
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 17
      Top = 18
      Width = 108
      BorderSpacing.Left = 10
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinmaxsegment: TSpinEdit
      AnchorSideLeft.Control = StaticText18
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox9
      AnchorSideTop.Side = asrCenter
      Left = 128
      Height = 25
      Top = 14
      Width = 54
      BorderSpacing.Left = 10
      MaxValue = 500
      MinValue = 1
      TabOrder = 0
      Value = 500
    end
  end
end
