main.dfm

单片机isp编程上位机源代码

object MainForm: TMainForm
  Left = 318
  Top = 92
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = 'KFISP 1.2'
  ClientHeight = 503
  ClientWidth = 519
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btnStop: TButton
    Left = 435
    Top = 473
    Width = 75
    Height = 23
    Caption = #20572#27490'(&S)'
    TabOrder = 12
    Visible = False
    OnClick = btnStopClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 6
    Width = 359
    Height = 51
    Caption = 'FLASH'
    TabOrder = 0
    object edFlash: TJvFilenameEdit
      Left = 8
      Top = 18
      Width = 343
      Height = 21
      DefaultExt = 'hex'
      Filter = 'All files (*.hex)|*.hex|*.hex|*.hex'
      DialogTitle = #25171#24320'...'
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 64
    Width = 359
    Height = 54
    Caption = 'EEPROM'
    TabOrder = 1
    object edEeprom: TJvFilenameEdit
      Left = 8
      Top = 18
      Width = 343
      Height = 21
      DefaultExt = 'hex'
      Filter = 'All files (*.hex;*.eep)|*.hex;*.eep|*.hex|*.hex|*.eep|*.eep'
      DialogTitle = #25171#24320'...'
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 372
    Top = 6
    Width = 139
    Height = 112
    Caption = #32534#31243#22120#21450#22120#20214
    TabOrder = 2
    object cbProgrammer: TComboBox
      Left = 8
      Top = 18
      Width = 120
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'PonyProg'
      OnChange = cbProgrammerChange
      Items.Strings = (
        'PonyProg'
        'USBasp')
    end
    object cbPort: TComboBox
      Left = 8
      Top = 50
      Width = 120
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = 'LPT1'
      Items.Strings = (
        'LPT1'
        'LPT2'
        'LPT3')
    end
    object cbMCU: TComboBox
      Left = 8
      Top = 82
      Width = 120
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = cbMCUChange
      Items.Strings = (
        'ATmega8'
        'ATmega16'
        'ATmega32'
        'ATmega48'
        'ATmega64'
        'ATmega88'
        'ATmega128'
        'ATmega168')
    end
  end
  object gbxFuse: TGroupBox
    Left = 8
    Top = 121
    Width = 359
    Height = 243
    Caption = #29076#19997#20301#35774#32622
    TabOrder = 3
    object sbnSave: TSpeedButton
      Left = 245
      Top = 218
      Width = 52
      Height = 22
      Caption = #20445#23384'(&S)'
      Flat = True
      OnClick = sbnSaveClick
    end
    object sbnLoad: TSpeedButton
      Left = 300
      Top = 218
      Width = 52
      Height = 22
      Caption = #21152#36733'(&L)'
      Flat = True
      OnClick = sbnLoadClick
    end
    object sbnDefault: TSpeedButton
      Left = 191
      Top = 218
      Width = 52
      Height = 22
      Caption = #40664#35748'(&D)'
      Flat = True
      OnClick = sbnDefaultClick
    end
    object sbnWrite: TSpeedButton
      Left = 137
      Top = 218
      Width = 52
      Height = 22
      Caption = #20889#20837'(&W)'
      Flat = True
      OnClick = sbnWriteClick
    end
    object sbnRead: TSpeedButton
      Left = 83
      Top = 218
      Width = 52
      Height = 22
      Caption = #35835#20986'(&G)'
      Flat = True
      OnClick = sbnReadClick
    end
    object gbxLowByte: TGroupBox
      Left = 8
      Top = 39
      Width = 90
      Height = 179
      Caption = #29076#19997#20302#20301
      TabOrder = 0
      object ckbLow7: TCheckBox
        Left = 6
        Top = 16
        Width = 82
        Height = 17
        Caption = 'BODLEVEL'
        TabOrder = 7
      end
      object ckbLow6: TCheckBox
        Left = 6
        Top = 36
        Width = 82
        Height = 17
        Caption = 'BODEN'
        TabOrder = 6
      end
      object ckbLow5: TCheckBox
        Left = 6
        Top = 56
        Width = 82
        Height = 17
        Caption = 'SUT1'
        TabOrder = 5
      end
      object ckbLow4: TCheckBox
        Left = 6
        Top = 76
        Width = 82
        Height = 17
        Caption = 'SUT0'
        TabOrder = 4
      end
      object ckbLow3: TCheckBox
        Left = 6
        Top = 96
        Width = 82
        Height = 17
        Caption = 'CKSEL3'
        TabOrder = 3
      end
      object ckbLow2: TCheckBox
        Left = 6
        Top = 116
        Width = 82
        Height = 17
        Caption = 'CKSEL2'
        TabOrder = 2
      end
      object ckbLow1: TCheckBox
        Left = 6
        Top = 136
        Width = 82
        Height = 17
        Caption = 'CKSEL1'
        TabOrder = 1
      end
      object ckbLow0: TCheckBox
        Left = 6
        Top = 156
        Width = 82
        Height = 17
        Caption = 'CKSEL0'
        TabOrder = 0
      end
    end
    object gbxHighByte: TGroupBox
      Left = 101
      Top = 39
      Width = 90
      Height = 179
      Caption = #29076#19997#39640#20301
      TabOrder = 1
      object ckbHigh7: TCheckBox
        Left = 6
        Top = 16
        Width = 81
        Height = 17
        Caption = 'OCDEN'
        TabOrder = 7
      end
      object ckbHigh6: TCheckBox
        Left = 6
        Top = 36
        Width = 81
        Height = 17
        Caption = 'JTAGEN'
        TabOrder = 6
      end
      object ckbHigh5: TCheckBox
        Left = 6
        Top = 56
        Width = 81
        Height = 17
        Caption = 'SPIEN'
        TabOrder = 5
      end
      object ckbHigh4: TCheckBox
        Left = 6
        Top = 76
        Width = 81
        Height = 17
        Caption = 'CKOPT'
        TabOrder = 4
      end
      object ckbHigh3: TCheckBox
        Left = 6
        Top = 96
        Width = 81
        Height = 17
        Caption = 'EESAVE'
        TabOrder = 3
      end
      object ckbHigh2: TCheckBox
        Left = 6
        Top = 116
        Width = 81
        Height = 17
        Caption = 'BOOTSZ1'
        TabOrder = 2
      end
      object ckbHigh1: TCheckBox
        Left = 6
        Top = 136
        Width = 81
        Height = 17
        Caption = 'BOOTSZ0'
        TabOrder = 1
      end
      object ckbHigh0: TCheckBox
        Left = 6
        Top = 156
        Width = 81
        Height = 17
        Caption = 'BOOTRST'
        TabOrder = 0
      end
    end
    object gbxExtByte: TGroupBox
      Left = 194
      Top = 39
      Width = 90
      Height = 179
      Caption = #25193#23637#20301
      TabOrder = 2
      object ckbExt7: TCheckBox
        Left = 6
        Top = 16
        Width = 71
        Height = 17
        TabOrder = 7
      end
      object ckbExt6: TCheckBox
        Left = 6
        Top = 36
        Width = 71
        Height = 17
        TabOrder = 6
      end
      object ckbExt5: TCheckBox
        Left = 6
        Top = 56
        Width = 71
        Height = 17
        TabOrder = 5
      end
      object ckbExt4: TCheckBox
        Left = 6
        Top = 76
        Width = 71
        Height = 17
        TabOrder = 4
      end
      object ckbExt3: TCheckBox
        Left = 6
        Top = 96
        Width = 71
        Height = 17
        TabOrder = 3
      end
      object ckbExt2: TCheckBox
        Left = 6
        Top = 116
        Width = 71
        Height = 17
        TabOrder = 2
      end
      object ckbExt1: TCheckBox
        Left = 6
        Top = 136
        Width = 71
        Height = 17
        Caption = 'M103C'
        TabOrder = 1
      end
      object ckbExt0: TCheckBox