ftmocr.dfm

Delphi神经网络

object Form1: TForm1
  Left = 223
  Top = 297
  Width = 657
  Height = 256
  Caption = 'XPIdea NeuroVCL -= OCR Demo=-'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 464
    Height = 222
    ActivePage = TabSheet4
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Step 1'
      object Label1: TLabel
        Left = 8
        Top = 48
        Width = 441
        Height = 73
        AutoSize = False
        Caption = 'Label1'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 30
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '   Step1:   Generate neural network training patterns'
        Color = clInactiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object Button2: TButton
        Left = 128
        Top = 144
        Width = 161
        Height = 25
        Caption = 'Generate training patterns'
        TabOrder = 1
        OnClick = Button2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Step 2'
      ImageIndex = 1
      object Label12: TLabel
        Left = 24
        Top = 56
        Width = 70
        Height = 52
        Caption = 'Learning Rate:'#13#10#13#10#13#10'Momentum:'
      end
      object Label13: TLabel
        Left = 328
        Top = 51
        Width = 3
        Height = 13
      end
      object Label14: TLabel
        Left = 328
        Top = 91
        Width = 3
        Height = 13
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 30
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '   Step2:  Create Backpropagation Neural Network'
        Color = clInactiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object Button5: TButton
        Left = 112
        Top = 136
        Width = 185
        Height = 25
        Caption = 'Create network'
        TabOrder = 1
        OnClick = Button5Click
      end
      object TrackBar3: TTrackBar
        Left = 112
        Top = 46
        Width = 209
        Height = 31
        Max = 100
        Orientation = trHorizontal
        Frequency = 4
        Position = 17
        SelEnd = 0
        SelStart = 0
        TabOrder = 2
        TickMarks = tmBottomRight
        TickStyle = tsAuto
      end
      object TrackBar4: TTrackBar
        Left = 112
        Top = 88
        Width = 209
        Height = 37
        Max = 100
        Orientation = trHorizontal
        Frequency = 4
        Position = 60
        SelEnd = 0
        SelStart = 0
        TabOrder = 3
        TickMarks = tmBottomRight
        TickStyle = tsAuto
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Step 3'
      ImageIndex = 2
      object Label9: TLabel
        Left = 16
        Top = 152
        Width = 3
        Height = 13
      end
      object Label10: TLabel
        Left = 235
        Top = 42
        Width = 120
        Height = 13
        Caption = 'Add Noise to Patterns (%)'
      end
      object Label11: TLabel
        Left = 232
        Top = 96
        Width = 201
        Height = 57
        AutoSize = False
        WordWrap = True
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 30
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '   Step3:  Train the network'
        Color = clInactiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object Button6: TButton
        Left = 8
        Top = 48
        Width = 153
        Height = 25
        Caption = 'Train the network'
        TabOrder = 1
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 8
        Top = 112
        Width = 153
        Height = 25
        Caption = 'Load trained network'
        TabOrder = 2
        OnClick = Button7Click
      end
      object Button8: TButton
        Left = 8
        Top = 80
        Width = 153
        Height = 25
        Caption = 'Save trained network'
        TabOrder = 3
        OnClick = Button8Click
      end
      object ProgressBar1: TProgressBar
        Left = 0
        Top = 177
        Width = 456
        Height = 17
        Align = alBottom
        Min = 0
        Max = 100
        TabOrder = 4
      end
      object TrackBar2: TTrackBar
        Left = 229
        Top = 56
        Width = 150
        Height = 41
        Max = 100
        Orientation = trHorizontal
        ParentShowHint = False
        Frequency = 5
        Position = 20
        SelEnd = 0
        SelStart = 0
        ShowHint = True
        TabOrder = 5
        TickMarks = tmBoth
        TickStyle = tsAuto
        OnChange = TrackBar2Change
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Step 4'
      ImageIndex = 3
      object Label2: TLabel
        Left = 304
        Top = 76
        Width = 24
        Height = 35
        Caption = 'A'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -32
        Font.Name = 'MS Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label3: TLabel
        Left = 267
        Top = 56
        Width = 101
        Height = 20
        Caption = 'Recognized.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 222
        Top = 77
        Width = 53
        Height = 35
        Caption = '--->'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -32
        Font.Name = 'MS Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label6: TLabel
        Left = 128
        Top = 56
        Width = 100
        Height = 20
        Caption = 'You entered'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 83
        Top = 122
        Width = 73
        Height = 13
        Caption = 'Noise Level (%)'
      end
      object Label8: TLabel
        Left = 181
        Top = 161
        Width = 148
        Height = 20
        Caption = 'Please hit the  key'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 160
        Top = 75
        Width = 24
        Height = 35
        Caption = 'A'
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -32
        Font.Name = 'MS Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label15: TLabel
        Left = 0
        Top = 30
        Width = 456
        Height = 20
        Align = alTop
        Alignment = taCenter
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 30
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '   Step4:  Testing'
        Color = clInactiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object TrackBar1: TTrackBar
        Left = 168
        Top = 112
        Width = 150
        Height = 33
        Max = 100
        Orientation = trHorizontal
        ParentShowHint = False
        Frequency = 5
        Position = 0
        SelEnd = 0
        SelStart = 0
        ShowHint = True
        TabOrder = 1
        TickMarks = tmBoth
        TickStyle = tsAuto
        OnChange = TrackBar1Change
        OnKeyPress = TrackBar1KeyPress
      end
    end
  end
  object Panel5: TPanel
    Left = 464
    Top = 0
    Width = 185
    Height = 222
    Align = alRight
    Caption = ' '
    TabOrder = 1
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 183
      Height = 220
      Align = alClient
      IncrementalDisplay = True
      Stretch = True
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'pat'
    Filter = 'Neuro Patterns (*.PAT)|*.pat'
    Left = 416
    Top = 168
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'pat'
    Filter = 'Neuro Patterns (*.PAT)|*.pat'
    Left = 376
    Top = 168
  end
end