choix.dfm

object Fchoix: TFchoix
  Left = 0
  Top = 0
  Caption = 'Choix'
  ClientHeight = 205
  ClientWidth = 488
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 8
    Width = 84
    Height = 13
    Caption = 'D'#233'but de l'#39'arbre :'
  end
  object LbMsg: TLabel
    Left = 8
    Top = 11
    Width = 30
    Height = 13
    Caption = 'LbMsg'
  end
  object lbChoix: TLabel
    Left = 344
    Top = 112
    Width = 3
    Height = 13
    Visible = False
  end
  object lbNiv: TLabel
    Left = 38
    Top = 122
    Width = 100
    Height = 13
    Caption = 'Nombre de niveaux :'
  end
  object lbSelect: TLabel
    Left = 248
    Top = 120
    Width = 3
    Height = 13
    Visible = False
  end
  object btQuit: TButton
    Left = 240
    Top = 152
    Width = 89
    Height = 25
    Caption = 'Quitter'
    TabOrder = 0
    OnClick = btQuitClick
  end
  object btNew: TButton
    Left = 122
    Top = 152
    Width = 105
    Height = 25
    Caption = 'Nouvelle personne'
    TabOrder = 1
    OnClick = btNewClick
  end
  object RdChoix: TRadioButton
    Left = 176
    Top = 73
    Width = 41
    Height = 33
    Caption = 'RdChoix'
    TabOrder = 2
  end
  object btValid: TButton
    Left = 8
    Top = 152
    Width = 97
    Height = 25
    Caption = 'Valider s'#233'lection'
    TabOrder = 3
    OnClick = btValidClick
  end
  object cbDebArbre: TComboBox
    Left = 122
    Top = 8
    Width = 247
    Height = 21
    TabOrder = 4
    OnChange = cbDebArbreChange
  end
  object sgChoix: TStringGrid
    Left = 8
    Top = 35
    Width = 465
    Height = 81
    ColCount = 1
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    TabOrder = 5
    Visible = False
  end
  object edNiv: TEdit
    Left = 144
    Top = 120
    Width = 41
    Height = 21
    TabOrder = 6
  end
  object ReqChoix: TFDQuery
    ConnectionName = 'adn'
    Left = 288
    Top = 8
  end
  object dsChoix: TDataSource
    DataSet = ReqChoix
    Left = 336
    Top = 8
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 348
    Top = 149
    object LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource
      DataSource = BindSourceDB1
      GridControl = sgChoix
      Columns = <>
    end
  end
  object BindSourceDB1: TBindSourceDB
    DataSource = dsChoix
    ScopeMappings = <
      item
      end>
    Left = 424
    Top = 152
  end
end