object saisierayon: Tsaisierayon
  Left = 361
  Height = 437
  Top = 176
  Width = 703
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Saisie d''un rayon'
  ClientHeight = 437
  ClientWidth = 703
  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]
      FFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFF0000
    }
  end
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Image1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 120
    Height = 121
    Top = 10
    Width = 161
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Origine (point 1)'
    ClientHeight = 99
    ClientWidth = 157
    TabOrder = 0
    object StaticText1: TLabel
      Left = 8
      Height = 17
      Top = 16
      Width = 18
      Caption = 'x='
      ParentColor = False
    end
    object StaticText2: TLabel
      Left = 8
      Height = 17
      Top = 60
      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 = 16
      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 = 60
      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 = 12
      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 = 56
      Width = 97
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 291
    Height = 121
    Top = 10
    Width = 165
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Extrémité (point 2)'
    ClientHeight = 99
    ClientWidth = 161
    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 = 64
      Width = 18
      Caption = 'y='
      ParentColor = False
    end
    object log3: TLabel
      AnchorSideLeft.Control = editx2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editx2
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 16
      Width = 26
      Caption = 'log3'
      ParentColor = False
    end
    object log4: TLabel
      AnchorSideLeft.Control = edity2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edity2
      AnchorSideTop.Side = asrCenter
      Left = 123
      Height = 17
      Top = 64
      Width = 26
      Caption = 'log4'
      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 = 60
      Width = 97
      TabOrder = 1
    end
  end
  object radiocouleur: TRadioGroup
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 137
    Top = 141
    Width = 185
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Couleur du rayon'
    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 = 115
    ClientWidth = 181
    ItemIndex = 0
    Items.Strings = (
      'Rouge'
      'Vert'
      'Bleu'
      'Lumière blanche'
    )
    TabOrder = 2
  end
  object GroupBox3: TGroupBox
    AnchorSideLeft.Control = radiocouleur
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 205
    Height = 64
    Top = 141
    Width = 153
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Epaisseur à l''écran'
    ClientHeight = 42
    ClientWidth = 149
    TabOrder = 3
    object editepaisseur: TSpinEdit
      AnchorSideLeft.Control = GroupBox3
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox3
      AnchorSideTop.Side = asrCenter
      Left = 54
      Height = 25
      Top = 9
      Width = 41
      MaxValue = 20
      MinValue = 1
      TabOrder = 0
      Value = 1
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = radiocouleur
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 96
    Top = 288
    Width = 670
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Tracer en pointillé le prolongement des différents segments du rayon'
    ClientHeight = 74
    ClientWidth = 666
    TabOrder = 4
    object StaticText6: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = editvav
      Left = 288
      Height = 17
      Top = 12
      Width = 182
      BorderSpacing.Left = 10
      Caption = 'Liste des segments concernés'
      ParentColor = False
    end
    object StaticText7: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText6
      AnchorSideTop.Side = asrBottom
      Left = 288
      Height = 17
      Top = 29
      Width = 280
      BorderSpacing.Left = 10
      Caption = '(entre parenthéses et séparés par des virgules'
      ParentColor = False
    end
    object StaticText8: TLabel
      AnchorSideLeft.Control = editvav
      AnchorSideTop.Control = StaticText7
      AnchorSideTop.Side = asrBottom
      Left = 111
      Height = 17
      Top = 46
      Width = 219
      BorderSpacing.Left = 10
      Caption = 'et sans espaces); exemple: (1,4,10)'
      ParentColor = False
    end
    object StaticText9: TLabel
      Left = 16
      Height = 17
      Top = 16
      Width = 75
      Caption = 'Vers l''avant:'
      ParentColor = False
    end
    object StaticText10: TLabel
      Left = 16
      Height = 17
      Top = 48
      Width = 78
      Caption = 'Vers l''arrière:'
      ParentColor = False
    end
    object editvav: TEdit
      AnchorSideLeft.Control = StaticText9
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText9
      AnchorSideTop.Side = asrCenter
      Left = 101
      Height = 25
      Top = 12
      Width = 177
      BorderSpacing.Left = 10
      TabOrder = 0
    end
    object editvaa: TEdit
      AnchorSideLeft.Control = StaticText10
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = StaticText10
      AnchorSideTop.Side = asrCenter
      Left = 104
      Height = 25
      Top = 44
      Width = 177
      BorderSpacing.Left = 10
      TabOrder = 1
    end
  end
  object boutonsup: TBitBtn
    Left = 8
    Height = 25
    Top = 400
    Width = 680
    Caption = 'Supprimer ce rayon'
    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 GroupBox5: TGroupBox
    AnchorSideLeft.Control = radiocouleur
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox3
    AnchorSideTop.Side = asrBottom
    Left = 205
    Height = 64
    Top = 215
    Width = 219
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Rayons enfants'
    ClientHeight = 42
    ClientWidth = 215
    TabOrder = 6
    object StaticText5: TLabel
      AnchorSideLeft.Control = GroupBox5
      AnchorSideTop.Control = GroupBox5
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 17
      Top = 13
      Width = 108
      BorderSpacing.Left = 10
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinenfantmax: TSpinEdit
      AnchorSideLeft.Control = StaticText5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox5
      AnchorSideTop.Side = asrCenter
      Left = 128
      Height = 25
      Top = 9
      Width = 56
      BorderSpacing.Left = 10
      MaxValue = 50
      TabOrder = 0
      Value = 10
    end
  end
  object BitBtn2: TBitBtn
    Left = 616
    Height = 102
    Top = 144
    Width = 76
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 7
  end
  object BitBtn1: TBitBtn
    Left = 464
    Height = 115
    Top = 16
    Width = 232
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 8
  end
  object GroupBox6: TGroupBox
    AnchorSideLeft.Control = GroupBox3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 368
    Height = 60
    Top = 141
    Width = 228
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Nombre max. de segments'
    ClientHeight = 38
    ClientWidth = 224
    TabOrder = 9
    object StaticText11: TLabel
      AnchorSideLeft.Control = GroupBox6
      AnchorSideTop.Control = GroupBox6
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 17
      Top = 11
      Width = 108
      BorderSpacing.Left = 10
      Caption = 'Nombre maximal:'
      ParentColor = False
    end
    object Spinmaxsegment: TSpinEdit
      AnchorSideLeft.Control = StaticText11
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox6
      AnchorSideTop.Side = asrCenter
      Left = 128
      Height = 25
      Top = 7
      Width = 68
      BorderSpacing.Left = 10
      MaxValue = 500
      MinValue = 1
      TabOrder = 0
      Value = 500
    end
  end
end
