object Form4: TForm4
  Left = 601
  Height = 518
  Top = 208
  Width = 827
  ActiveControl = Editformulebrute
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Recherche dans la base'
  ClientHeight = 518
  ClientWidth = 827
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.2.2.0'
  object SpeedButtonC: TSpeedButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'C'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonCClick
    ParentFont = False
  end
  object SpeedButtonO: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonC
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 45
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = 'O'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonOClick
    ParentFont = False
  end
  object SpeedButtonH: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonO
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 80
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = 'H'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonHClick
    ParentFont = False
  end
  object SpeedButtonN: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonH
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 115
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = 'N'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonNClick
    ParentFont = False
  end
  object SpeedButtonP: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonN
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 150
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = 'P'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonPClick
    ParentFont = False
  end
  object SpeedButtonS: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonP
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 185
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = 'S'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButtonSClick
    ParentFont = False
  end
  object SpeedButton1plus: TSpeedButton
    AnchorSideLeft.Control = SpeedButton3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 290
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[+]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton1plusClick
    ParentFont = False
  end
  object SpeedButton2plus: TSpeedButton
    AnchorSideLeft.Control = SpeedButton1plus
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 333
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[2+]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton2plusClick
    ParentFont = False
  end
  object SpeedButton3plus: TSpeedButton
    AnchorSideLeft.Control = SpeedButton2plus
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 376
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[3+]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton3plusClick
    ParentFont = False
  end
  object SpeedButton3moins: TSpeedButton
    AnchorSideLeft.Control = SpeedButton3plus
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 419
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[3-]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton3moinsClick
    ParentFont = False
  end
  object SpeedButton2moins: TSpeedButton
    AnchorSideLeft.Control = SpeedButton3moins
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 462
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[2-]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton2moinsClick
    ParentFont = False
  end
  object SpeedButton1moins: TSpeedButton
    AnchorSideLeft.Control = SpeedButton2moins
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 505
    Height = 25
    Top = 100
    Width = 33
    BorderSpacing.Left = 10
    Caption = '[-]'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton1moinsClick
    ParentFont = False
  end
  object SpeedButton2: TSpeedButton
    AnchorSideLeft.Control = SpeedButtonS
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 220
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = '2'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton2Click
    ParentFont = False
  end
  object SpeedButton3: TSpeedButton
    AnchorSideLeft.Control = SpeedButton2
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrCenter
    Left = 255
    Height = 25
    Top = 100
    Width = 25
    BorderSpacing.Left = 10
    Caption = '3'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    OnClick = SpeedButton3Click
    ParentFont = False
  end
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 10
    Height = 20
    Top = 10
    Width = 675
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Entrez la formule brute. Puis cliquez sur "OK". Puis sélectionnez le réactif dans la liste ci-dessous.'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label3
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 20
    Top = 70
    Width = 598
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = ' mais pas: AGSO4 (respect majuscules/minuscules) ni Cu(NH3)4 (pas de parenthéses)'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 20
    Top = 40
    Width = 413
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = ' Exemples: BaSO4        Ag[+]        CrO4[2-]    FeO3H3[3+]    '
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Editformulebrute: TEdit
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = SpeedButtonC
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 28
    Top = 135
    Width = 617
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    OnChange = EditformulebruteChange
    OnKeyUp = EditformulebruteKeyUp
    OnMouseUp = EditformulebruteMouseUp
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    AnchorSideLeft.Control = sgreactifs
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = RadioGroup1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = BitBtn2
    Left = 461
    Height = 114
    Top = 338
    Width = 251
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Bottom = 10
    Caption = 'OK'
    Default = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      04000000000068010000120B0000120B00001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000
    }
    NumGlyphs = 2
    OnClick = BitBtn1Click
    TabOrder = 1
  end
  object sgreactifs: TStringGrid
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = RadioGroup1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 10
    Height = 170
    Hint = 'Pour sélectionner un réactif, cliquez sur la ligne correspondante.'
    Top = 338
    Width = 441
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Bottom = 10
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnMouseUp = sgreactifsMouseUp
  end
  object RadioGroup1: TRadioGroup
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Editformulebrute
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 155
    Top = 173
    Width = 617
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Type de comparaison'
    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 = 133
    ClientWidth = 613
    ItemIndex = 0
    Items.Strings = (
      'Exacte'
      'Mêmes atomes, en nombres inférieurs ou égaux'
      'Mêmes atomes, en nombre supérieurs ou égaux'
      'Mêmes atomes, en nombre quelconques'
    )
    TabOrder = 2
  end
  object BitBtn2: TBitBtn
    AnchorSideLeft.Control = sgreactifs
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 461
    Height = 46
    Top = 462
    Width = 252
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Bottom = 10
    Caption = '&Fermer'
    Kind = bkClose
    TabOrder = 4
  end
end
