uautocode.dfm

这个程序的主要目的是为了提供一个具有通用性的 AVR Bootloader

      FF00FF00FF00FF00FF00FF00FF0066CCCC0066CCCC0066CCCC0066CCCC0066CC
      CC0066CCCC0066CCCC0066CCCC0066CCCC00FF00FF00FF00FF00}
    Margin = 3
  end
  object cbbCportBaudRate: TComComboBox
    Left = 445
    Top = 292
    Width = 89
    Height = 21
    ComPort = frmMain.ComPort
    ComProperty = cpBaudRate
    Text = '19200'
    Style = csDropDownList
    DropDownCount = 18
    ItemHeight = 13
    ItemIndex = 9
    TabOrder = 6
    TabStop = False
    Visible = False
  end
  object pgct: TPageControl
    Left = 0
    Top = 0
    Width = 433
    Height = 474
    ActivePage = TabSheet1
    Align = alLeft
    TabOrder = 7
    object TabSheet1: TTabSheet
      Caption = 'General'
      object lbFCPU: TLabel
        Left = 168
        Top = 68
        Width = 40
        Height = 16
        Caption = 'F_CPU'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbBauRate: TLabel
        Left = 168
        Top = 96
        Width = 64
        Height = 16
        Caption = 'BaudRate'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbComPortNo: TLabel
        Left = 168
        Top = 124
        Width = 72
        Height = 16
        Caption = 'COMPORTNo'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbBUFFERSIZE: TLabel
        Left = 168
        Top = 152
        Width = 80
        Height = 16
        Caption = 'BUFFERSIZE'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbtimeclk: TLabel
        Left = 168
        Top = 180
        Width = 56
        Height = 16
        Caption = 'timeclk'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbTimeOutCnt: TLabel
        Left = 168
        Top = 208
        Width = 80
        Height = 16
        Caption = 'TimeOutCnt'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbTimeOutCntC: TLabel
        Left = 168
        Top = 236
        Width = 88
        Height = 16
        Caption = 'TimeOutCntC'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbInitDelay: TLabel
        Left = 168
        Top = 264
        Width = 72
        Height = 16
        Caption = 'InitDelay'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbLEVELMODE: TLabel
        Left = 168
        Top = 292
        Width = 72
        Height = 16
        Caption = 'LEVELMODE'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbchecksum: TLabel
        Left = 168
        Top = 320
        Width = 64
        Height = 16
        Caption = 'checksum'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object lbBootStart: TLabel
        Left = 168
        Top = 40
        Width = 72
        Height = 16
        Caption = 'BootStart'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object Label3: TLabel
        Left = 168
        Top = 12
        Width = 64
        Height = 16
        Caption = 'MCU type'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object Label5: TLabel
        Left = 396
        Top = 154
        Width = 25
        Height = 13
        Caption = 'byte'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label6: TLabel
        Left = 396
        Top = 70
        Width = 16
        Height = 13
        Caption = 'Hz'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 396
        Top = 182
        Width = 16
        Height = 13
        Caption = 'ms'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object btnReload: TSpeedButton
        Left = 393
        Top = 8
        Width = 23
        Height = 22
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          1800000000000003000000000000000000000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFA29D9AC1C1BEC6C5C4BAB8B5FF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9BA1A67AA2C476
          A3D880AFEB9AC9F7DCEDF9CCC9C7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FF40617C227AC5077ADF0072EC057AF4449BF9CFE8FAD4D3
          D0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9C97928D8985FF00FF667D8DBB
          CFD6B7DAEE4BA7F40785FA44A5FDDCF1FDC2BDB9FF00FFFF00FFFF00FFFF00FF
          BBB8B4E9F4FBEEF7FF7A8E9FFF00FF9D9289DCD9D3E9F6F657B3FC0085FE9AD5
          FEF2F2F1BBB6B1FF00FFFF00FFB7B2ADECF3F860ADFF3B9AFFE3EDF4ADACA9FF
          00FFEAE8E7FDFDFCCAEDFE0090FE66C1FEF6FCFFFCFDFDFBFBFAB5B0AAF0F8FC
          4BAFFF0085FF008BFF1B8FFFB8E6FAD5D3CFF5F6F6BBE7FF72C9FF44B9FF08A0
          FF34A6FFDDFBFFE7E5E2FBFAF9E9F8FF96CEFF3DB2FF0093FE74CCFFBBE4FEF6
          FAF9B4ADA7ECF0EEB7E4FF57C2FF3CB4FFB5EAFFF3F2F1B9B0A8EAE8E6F3F1F0
          FDFDFDAFE0FE1A9EFD91D9FDF7FAF9CDCAC6FF00FFC3BFB7F0F5F5DAF5FFDAF6
          FFF5F5F4C1BAB3FF00FFFF00FF9F958BE8E6E4DCF2FF63C3FF2AA8FC9EDFF9EC
          F9F9E2E3DE99A1A0A5AEACF6F5F3F5F2F1C4BEB7FF00FFFF00FFFF00FFFF00FF
          CBC6C0FCFCFCCCEFFE3FB6FD17A5FB4AB7F850BAF033A1DA698DA0BFB4A9CEC5
          BCFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD8D3CDF9F9F9DFF4FC65CBFB2F
          A2F92F9EF33EA9EB9DCCD8C2B4AAAA9E92FF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFD7D1CBF2F0EEFBFBFAFCFDFAFAFBF6F6F6EEE9E2DBC7BEB5FF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC8BEB4CDC4BBCF
          C6BDCEC5BCCCC3BAC6BBB0FF00FFFF00FFFF00FFFF00FFFF00FF}
        Visible = False
      end
      object lbAlgorithm: TLabel
        Left = 168
        Top = 348
        Width = 72
        Height = 16
        Caption = 'Algorithm'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnMouseDown = FormMouseDown
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 104
        Width = 137
        Height = 81
        TabOrder = 0
        OnMouseDown = FormMouseDown
        object lbLEDPORT: TLabel
          Left = 16
          Top = 28
          Width = 19
          Height = 13
          Caption = 'Port'
          Transparent = True
          OnMouseDown = FormMouseDown
        end
        object lbLEDPIN: TLabel
          Left = 16
          Top = 56
          Width = 15
          Height = 13
          Caption = 'Pin'
          Transparent = True
          OnMouseDown = FormMouseDown
        end
        object cbbPortLED: TComboBox
          Left = 72
          Top = 24
          Width = 49
          Height = 21
          ItemHeight = 13
          MaxLength = 1
          TabOrder = 0
          Text = 'D'
          Items.Strings = (
            'A'
            'B'
            'C'
            'D'
            'E'
            'F'
            'G')
        end
        object cbbPINLED: TComboBox
          Left = 72
          Top = 52
          Width = 49
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          MaxLength = 1
          TabOrder = 1
          Items.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 8
        Width = 137
        Height = 81
        TabOrder = 1
        OnMouseDown = FormMouseDown
        object lbRS485PORT: TLabel
          Left = 16
          Top = 28
          Width = 19
          Height = 13
          Caption = 'Port'
          Transparent = True
          OnMouseDown = FormMouseDown
        end
        object lbRS485PIN: TLabel
          Left = 16
          Top = 56
          Width = 15
          Height = 13
          Caption = 'Pin'
          Transparent = True
          OnMouseDown = FormMouseDown
        end
        object cbbPortRS485: TComboBox
          Left = 72
          Top = 24
          Width = 49
          Height = 21
          ItemHeight = 13
          MaxLength = 1
          TabOrder = 0
          Text = 'D'
          Items.Strings = (
            'A'
            'B'
            'C'
            'D'
            'E'
            'F'
            'G')
        end
        object cbbPINRS485: TComboBox
          Left = 72
          Top = 52
          Width = 49