unit1.dfm

本程序完成字模提取与将提取的字模数据通过串口下载到单片机

object Form1: TForm1
  Left = 232
  Top = 124
  AutoScroll = False
  Caption = #23383#27169#25968#25454#19979#36733#31243#24207
  ClientHeight = 437
  ClientWidth = 583
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 126
    Top = 64
    Width = 51
    Height = 13
    Caption = #36755#20837#27721#23383':'
  end
  object Label2: TLabel
    Left = 190
    Top = 64
    Width = 78
    Height = 13
    Caption = '('#24517#38656#36755#20837#27721#23383')'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 146
    Top = 368
    Width = 114
    Height = 13
    Caption = #27491#22312#19979#36733#65292#35831#31561#24453'......'
  end
  object Panel1: TPanel
    Left = 134
    Top = 8
    Width = 142
    Height = 36
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 0
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 140
      Height = 34
      Align = alClient
    end
  end
  object Edit1: TEdit
    Left = 134
    Top = 80
    Width = 145
    Height = 37
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ParentFont = False
    TabOrder = 1
  end
  object grp1: TGroupBox
    Left = 134
    Top = 128
    Width = 177
    Height = 185
    Caption = #25805#20316
    TabOrder = 2
    object btn1: TBitBtn
      Left = 16
      Top = 72
      Width = 73
      Height = 33
      Caption = #19979#36733'(&D)'
      TabOrder = 0
      OnClick = btn1Click
    end
    object btn2: TBitBtn
      Left = 17
      Top = 120
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = btn2Click
      Kind = bkClose
    end
    object btn3: TBitBtn
      Left = 16
      Top = 32
      Width = 129
      Height = 25
      Caption = #29983#25104#23383#27169#20195#30721'(&P)'
      TabOrder = 2
      OnClick = btn3Click
      Kind = bkIgnore
    end
  end
  object grp2: TGroupBox
    Left = 328
    Top = 8
    Width = 185
    Height = 113
    Caption = #20018#21475#35774#32622
    TabOrder = 3
    object lbl1: TLabel
      Left = 16
      Top = 27
      Width = 36
      Height = 13
      Caption = #20018#21475#21495
    end
    object lbl2: TLabel
      Left = 15
      Top = 67
      Width = 36
      Height = 13
      Caption = #27874#29305#29575
    end
    object Combobox1: TComboBox
      Left = 84
      Top = 24
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      OnChange = Combobox1Change
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5')
    end
    object Combobox2: TComboBox
      Left = 84
      Top = 64
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 1
      OnChange = Combobox2Change
      OnKeyPress = Combobox2KeyPress
      Items.Strings = (
        'Custom'
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '19200'
        '115200')
    end
  end
  object grp3: TGroupBox
    Left = 328
    Top = 136
    Width = 249
    Height = 241
    Caption = #23383#27169#25968#25454#26174#31034#21306
    TabOrder = 4
    object mmo1: TMemo
      Left = 2
      Top = 15
      Width = 245
      Height = 224
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      Lines.Strings = (
        'mmo1')
      TabOrder = 0
    end
  end
  object Memo1: TMemo
    Left = 8
    Top = 176
    Width = 121
    Height = 225
    Lines.Strings = (
      'Memo1')
    TabOrder = 5
  end
  object ProgressBar1: TProgressBar
    Left = 144
    Top = 392
    Width = 273
    Height = 25
    TabOrder = 6
  end
  object comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    Left = 48
    Top = 16
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 48
    Top = 56
  end
end