main.dfm.~38~

神经网络用于X荧光分析的源码。输入元素峰的强度

object formOXEA: TformOXEA
  Left = 0
  Top = 0
  Caption = 'OXEA-ANN'
  ClientHeight = 793
  ClientWidth = 1228
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1228
    Height = 29
    ButtonHeight = 26
    Caption = 'ToolBar1'
    TabOrder = 0
    object MenuOpenProject: TSpeedButton
      Left = 0
      Top = 0
      Width = 41
      Height = 26
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
        B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
        B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
        0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
        55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
        55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
        55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
        5555575FFF755555555557000075555555555577775555555555}
      Layout = blGlyphTop
      NumGlyphs = 2
      Transparent = False
      OnClick = MenuOpenProjectClick
    end
    object ToolButton1: TToolButton
      Left = 41
      Top = 0
      Caption = 'ToolButton1'
      ImageIndex = 0
    end
    object ToolButton2: TToolButton
      Left = 64
      Top = 0
      Caption = 'ToolButton2'
      ImageIndex = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 1228
    Height = 745
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 905
      Top = 1
      Width = 1
      Height = 743
      ExplicitLeft = 700
      ExplicitHeight = 659
    end
    object Paneldataandpic: TPanel
      Left = 1
      Top = 1
      Width = 904
      Height = 743
      Align = alLeft
      TabOrder = 0
      object Splitter2: TSplitter
        Left = 1
        Top = 503
        Width = 902
        Height = 3
        Cursor = crVSplit
        Align = alTop
        ExplicitTop = 241
        ExplicitWidth = 417
      end
      object Panel2: TPanel
        Left = 1
        Top = 1
        Width = 902
        Height = 502
        Align = alTop
        BevelOuter = bvLowered
        Caption = 'Panel2'
        TabOrder = 0
        object Panel6: TPanel
          Left = 1
          Top = 1
          Width = 900
          Height = 44
          Align = alTop
          Caption = 'Panel6'
          TabOrder = 0
          object SpeedButtonopendata: TSpeedButton
            Left = 15
            Top = 16
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
              333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
              0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
              07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
              07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
              0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
              33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
              B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
              3BB33773333773333773B333333B3333333B7333333733333337}
            NumGlyphs = 2
            OnClick = SpeedButtonopendataClick
          end
          object Label1: TLabel
            Left = 202
            Top = 22
            Width = 24
            Height = 13
            Caption = 'From'
          end
          object Label2: TLabel
            Left = 295
            Top = 22
            Width = 12
            Height = 13
            Caption = 'To'
          end
          object SpeedButton5: TSpeedButton
            Left = 481
            Top = 16
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
              333333777777777F33333330B00000003333337F7777777F3333333000000000
              333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
              333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
              03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
              03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
              3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
              333333333377F7F33333333333330F03333333333337F7F33333333333330B03
              3333333333373733333333333333303333333333333373333333}
            NumGlyphs = 2
            OnClick = SpeedButton5Click
          end
          object SpeedButton6: TSpeedButton
            Left = 510
            Top = 16
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
              33333333373F33333333333330B03333333333337F7F33333333333330F03333
              333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
              333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
              333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
              3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
              33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
              33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
              03333337777777F7F33333330000000003333337777777773333}
            NumGlyphs = 2
            OnClick = SpeedButton6Click
          end
          object cbSubstance: TComboBox
            Left = 48
            Top = 17
            Width = 121
            Height = 21
            Style = csDropDownList
            DropDownCount = 25
            ItemHeight = 13
            TabOrder = 0
            OnChange = cbSubstanceChange
          end
          object Editfirst: TEdit
            Left = 232
            Top = 17
            Width = 57
            Height = 21
            TabOrder = 1
            Text = '32'
          end
          object Editlast: TEdit
            Left = 320
            Top = 17
            Width = 65
            Height = 21
            TabOrder = 2
            Text = '62'
          end
          object Button1: TButton
            Left = 552
            Top = 13
            Width = 75
            Height = 25
            Caption = 'Button1'
            TabOrder = 3
            OnClick = Button1Click
          end
          object BitBtn1: TBitBtn
            Left = 400
            Top = 13
            Width = 75
            Height = 25
            Caption = 'Apply'
            TabOrder = 4
            OnClick = BitBtn1Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
              555555555555555555555555555555555555555555FF55555555555559055555
              55555555577FF5555555555599905555555555557777F5555555555599905555
              555555557777FF5555555559999905555555555777777F555555559999990555
              5555557777777FF5555557990599905555555777757777F55555790555599055
              55557775555777FF5555555555599905555555555557777F5555555555559905
              555555555555777FF5555555555559905555555555555777FF55555555555579
              05555555555555777FF5555555555557905555555555555777FF555555555555
              5990555555555555577755555555555555555555555555555555}
            NumGlyphs = 2
          end
        end
        object dbgSamples: TDBGrid
          Left = 1
          Top = 45
          Width = 900
          Height = 456
          Align = alClient
          Color = clMenuBar
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDrawColumnCell = dbgSamplesDrawColumnCell
        end
      end
      object Panel3: TPanel
        Left = 1
        Top = 506
        Width = 902
        Height = 236