object saisieop: Tsaisieop
  Left = 551
  Height = 675
  Top = 155
  Width = 827
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Saisie d''une onde plane'
  ClientHeight = 675
  ClientWidth = 827
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object Image1: TImage
    Left = 0
    Height = 100
    Top = 0
    Width = 100
    Picture.Data = {
[encoded data, 11786 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
    }
  end
  object GroupBox1: TGroupBox
    Left = 104
    Height = 105
    Top = 0
    Width = 176
    Caption = 'Point 1'
    ClientHeight = 83
    ClientWidth = 172
    TabOrder = 0
    object StaticText1: TLabel
      Left = 8
      Height = 17
      Top = 12
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText2: TLabel
      Left = 8
      Height = 17
      Top = 48
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log1: TLabel
      AnchorSideLeft.Control = editx1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx1
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 12
      Width = 26
      Caption = 'log1'
      ParentColor = False
    end
    object log2: TLabel
      AnchorSideLeft.Control = edity1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edity1
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 48
      Width = 26
      Caption = 'log2'
      ParentColor = False
    end
    object editx1: TEdit
      AnchorSideLeft.Control = StaticText1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrCenter
      Left = 26
      Height = 25
      Top = 8
      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 = 44
      Width = 97
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = GroupBox5
    AnchorSideLeft.Side = asrBottom
    Left = 482
    Height = 105
    Top = 0
    Width = 161
    BorderSpacing.Left = 10
    Caption = 'Point 2'
    ClientHeight = 83
    ClientWidth = 157
    TabOrder = 1
    object StaticText3: TLabel
      Left = 8
      Height = 17
      Top = 16
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText4: TLabel
      Left = 8
      Height = 17
      Top = 52
      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 = 16
      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 = 52
      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 = 12
      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 = 48
      Width = 97
      TabOrder = 1
    end
  end
  object radiocouleur: TRadioGroup
    Left = 8
    Height = 121
    Top = 112
    Width = 192
    AutoFill = True
    Caption = 'Couleur des rayons'
    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 = 99
    ClientWidth = 188
    ItemIndex = 0
    Items.Strings = (
      'Rouge'
      'Vert'
      'Bleu'
      'Lumière blanche'
    )
    TabOrder = 2
  end
  object GroupBox3: TGroupBox
    Left = 224
    Height = 57
    Top = 112
    Width = 169
    Caption = 'Epaisseur à l''écran'
    ClientHeight = 35
    ClientWidth = 165
    TabOrder = 3
    object editepaisseur: TSpinEdit
      AnchorSideLeft.Control = GroupBox3
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox3
      AnchorSideTop.Side = asrCenter
      Left = 62
      Height = 25
      Top = 5
      Width = 41
      MaxValue = 20
      MinValue = 1
      TabOrder = 0
      Value = 1
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Height = 105
    Top = 376
    Width = 810
    Caption = 'Tracer en pointillé le prolongement des différents segments des rayons'
    ClientHeight = 83
    ClientWidth = 806
    TabOrder = 4
    object StaticText8: TLabel
      Left = 8
      Height = 17
      Top = 24
      Width = 75
      Caption = 'Vers l''avant:'
      ParentColor = False
    end
    object StaticText9: TLabel
      Left = 8
      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 = 416
      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
      Left = 416
      Height = 17
      Top = 40
      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
      Left = 416
      Height = 17
      Top = 64
      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 = 93
      Height = 25
      Top = 20
      Width = 313
      BorderSpacing.Left = 10
      TabOrder = 0
    end
    object editvaa: TEdit
      AnchorSideLeft.Control = StaticText9
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText9
      AnchorSideTop.Side = asrCenter
      Left = 96
      Height = 25
      Top = 52
      Width = 313
      BorderSpacing.Left = 10
      TabOrder = 1
    end
  end
  object GroupBox5: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    Left = 290
    Height = 105
    Top = 0
    Width = 182
    BorderSpacing.Left = 10
    Caption = 'Extrémité rayon 1 (point D)'
    ClientHeight = 83
    ClientWidth = 178
    TabOrder = 5
    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 log3: TLabel
      AnchorSideLeft.Control = editsx
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editsx
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 16
      Width = 26
      Caption = 'log3'
      ParentColor = False
    end
    object log4: TLabel
      AnchorSideLeft.Control = editsy
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editsy
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 52
      Width = 26
      Caption = 'log4'
      ParentColor = False
    end
    object editsx: 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 editsy: 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 GroupBox6: TGroupBox
    Left = 208
    Height = 57
    Top = 176
    Width = 192
    Caption = 'Nombre de rayons'
    ClientHeight = 35
    ClientWidth = 188
    TabOrder = 6
    object spinnombrerayons: TSpinEdit
      AnchorSideLeft.Control = GroupBox6
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox6
      AnchorSideTop.Side = asrCenter
      Left = 66
      Height = 25
      Top = 5
      Width = 57
      MaxValue = 500
      MinValue = 2
      TabOrder = 0
      Value = 5
    end
  end
  object boutonsup: TBitBtn
    Left = 400
    Height = 33
    Top = 337
    Width = 417
    Caption = 'Supprimer cette onde plane'
    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
    Left = 8
    Height = 64
    Top = 240
    Width = 361
    Caption = 'Pour chaque rayon, rayons enfants:'
    ClientHeight = 42
    ClientWidth = 357
    TabOrder = 8
    object StaticText7: TLabel
      AnchorSideTop.Control = GroupBox7
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 17
      Top = 13
      Width = 108
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinmaxenfant: TSpinEdit
      AnchorSideLeft.Control = StaticText7
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox7
      AnchorSideTop.Side = asrCenter
      Left = 126
      Height = 25
      Top = 9
      Width = 49
      BorderSpacing.Left = 10
      MaxValue = 50
      TabOrder = 0
      Value = 10
    end
  end
  object GroupBox8: TGroupBox
    Left = 8
    Height = 176
    Top = 488
    Width = 810
    Caption = 'Tracer des surfaces d''onde issues de cette onde plane'
    ClientHeight = 154
    ClientWidth = 806
    TabOrder = 9
    object StaticText14: TLabel
      AnchorSideLeft.Control = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox8
      Left = 81
      Height = 17
      Top = 0
      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 StaticText13: TLabel
      AnchorSideLeft.Control = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText14
      AnchorSideTop.Side = asrBottom
      Left = 81
      Height = 17
      Top = 17
      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 = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText13
      AnchorSideTop.Side = asrBottom
      Left = 81
      Height = 17
      Top = 34
      Width = 154
      BorderSpacing.Left = 10
      Caption = '(exemple: 120 145  276)'
      ParentColor = False
    end
    object StaticText16: TLabel
      AnchorSideLeft.Control = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editlistechemins
      AnchorSideTop.Side = asrBottom
      Left = 81
      Height = 17
      Top = 96
      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 = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText16
      AnchorSideTop.Side = asrBottom
      Left = 81
      Height = 17
      Top = 123
      Width = 190
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'ne peut être et ne sera pas fait.'
      Font.Color = clRed
      ParentColor = False
      ParentFont = False
    end
    object editlistechemins: TEdit
      AnchorSideLeft.Control = cochesurfaces
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText15
      AnchorSideTop.Side = asrBottom
      Left = 81
      Height = 25
      Top = 61
      Width = 537
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      TabOrder = 0
    end
    object cochesurfaces: TCheckBox
      Left = 8
      Height = 21
      Top = 24
      Width = 63
      Caption = 'Tracer'
      TabOrder = 1
    end
  end
  object BitBtn2: TBitBtn
    AnchorSideLeft.Control = GroupBox2
    AnchorSideLeft.Side = asrBottom
    Left = 653
    Height = 94
    Top = 9
    Width = 162
    BorderSpacing.Left = 10
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 10
  end
  object BitBtn1: TBitBtn
    Left = 408
    Height = 217
    Top = 112
    Width = 407
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 11
  end
  object GroupBox9: TGroupBox
    Left = 9
    Height = 59
    Top = 311
    Width = 360
    Caption = 'Nombre max. de segments par rayon'
    ClientHeight = 37
    ClientWidth = 356
    TabOrder = 12
    object StaticText18: TLabel
      AnchorSideTop.Control = GroupBox9
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 17
      Top = 10
      Width = 108
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinmaxsegment: TSpinEdit
      AnchorSideLeft.Control = StaticText18
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox9
      AnchorSideTop.Side = asrCenter
      Left = 126
      Height = 25
      Top = 6
      Width = 63
      BorderSpacing.Left = 10
      MaxValue = 500
      MinValue = 1
      TabOrder = 0
      Value = 500
    end
  end
end
