rs232_demo.dfm

尽量朝“单片”方向设计硬件系统。系统器件越多

object mainForm: TmainForm
  Left = 319
  Top = 118
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DK3200/3300 IAP Demo (c)2003 ST Microelectronics'
  ClientHeight = 258
  ClientWidth = 415
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 440
    Top = 176
    Width = 32
    Height = 13
    Caption = 'Label1'
    Visible = False
  end
  object Label2: TLabel
    Left = 440
    Top = 205
    Width = 32
    Height = 13
    Caption = 'Label2'
    Visible = False
  end
  object Label3: TLabel
    Left = 552
    Top = 144
    Width = 32
    Height = 13
    Caption = 'Label3'
    Visible = False
  end
  object lbOffset: TLabel
    Left = 112
    Top = 120
    Width = 28
    Height = 13
    Caption = 'Offset'
  end
  object lbCount: TLabel
    Left = 189
    Top = 120
    Width = 28
    Height = 13
    Caption = 'Count'
  end
  object lbData: TLabel
    Left = 112
    Top = 152
    Width = 23
    Height = 13
    Caption = 'Data'
  end
  object lbMirrorAdvice: TLabel
    Left = 119
    Top = 8
    Width = 273
    Height = 17
    AutoSize = False
    Caption = 'Try to stop the mirroring during time-consuming operations.'
  end
  object btRead: TBitBtn
    Left = 112
    Top = 176
    Width = 65
    Height = 25
    Caption = 'Read'
    Enabled = False
    TabOrder = 7
    OnClick = btReadClick
  end
  object btErase: TBitBtn
    Left = 256
    Top = 176
    Width = 65
    Height = 25
    Caption = 'Erase'
    Enabled = False
    TabOrder = 9
    OnClick = btEraseClick
  end
  object btVerify: TBitBtn
    Left = 256
    Top = 208
    Width = 65
    Height = 25
    Caption = 'Verify'
    Enabled = False
    TabOrder = 13
    OnClick = btVerifyClick
  end
  object Edit1: TEdit
    Left = 552
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 16
    Text = '65'
    Visible = False
  end
  object Edit2: TEdit
    Left = 552
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 17
    Text = '0'
    Visible = False
  end
  object Edit3: TEdit
    Left = 552
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 18
    Text = '2'
    Visible = False
  end
  object btWrite: TBitBtn
    Left = 184
    Top = 176
    Width = 65
    Height = 25
    Caption = 'Write'
    Enabled = False
    TabOrder = 8
    OnClick = btWriteClick
  end
  object Edit4: TEdit
    Left = 552
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 19
    Text = '0'
    Visible = False
  end
  object btProgram: TBitBtn
    Left = 184
    Top = 208
    Width = 65
    Height = 25
    Caption = 'Program'
    Enabled = False
    TabOrder = 12
    OnClick = btProgramClick
  end
  object btBlankCheck: TBitBtn
    Left = 328
    Top = 176
    Width = 81
    Height = 25
    Caption = 'Blank Check'
    Enabled = False
    TabOrder = 10
    OnClick = btBlankCheckClick
  end
  object btUpload: TBitBtn
    Left = 112
    Top = 208
    Width = 65
    Height = 25
    Caption = 'Upload'
    Enabled = False
    TabOrder = 11
    OnClick = btUploadClick
  end
  object btReset: TBitBtn
    Left = 328
    Top = 208
    Width = 81
    Height = 25
    Caption = 'Reset'
    Enabled = False
    TabOrder = 14
    OnClick = btResetClick
  end
  object btConnect: TBitBtn
    Left = 16
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 0
    OnClick = btConnectClick
  end
  object btStopMirror: TBitBtn
    Left = 16
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Stop Mirror'
    Enabled = False
    TabOrder = 1
    OnClick = btStopMirrorClick
  end
  object btClose: TBitBtn
    Left = 16
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
    OnClick = btCloseClick
  end
  object gbFlashSelect: TGroupBox
    Left = 8
    Top = 120
    Width = 97
    Height = 113
    Caption = 'Flash Select'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 6
    object Label4: TLabel
      Left = 8
      Top = 75
      Width = 31
      Height = 13
      Caption = 'Sector'
    end
    object rbMain: TRadioButton
      Left = 16
      Top = 24
      Width = 65
      Height = 17
      Caption = 'Main'
      Checked = True
      Enabled = False
      TabOrder = 0
      TabStop = True
      OnClick = rbMainClick
    end
    object rbBoot: TRadioButton
      Left = 16
      Top = 48
      Width = 65
      Height = 17
      Caption = 'Boot'
      Enabled = False
      TabOrder = 1
      OnClick = rbMainClick
    end
    object cbSector: TComboBox
      Left = 48
      Top = 72
      Width = 41
      Height = 21
      Style = csDropDownList
      Enabled = False
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = '0'
      OnChange = rbMainClick
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7')
    end
  end
  object pDisplayMirror: TPanel
    Left = 120
    Top = 32
    Width = 265
    Height = 65
    BevelOuter = bvLowered
    TabOrder = 15
    object lbDisplayMirror: TLabel
      Left = 40
      Top = 15
      Width = 217
      Height = 41
      AutoSize = False
      Font.Charset = OEM_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Terminal'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object edOffset: TEdit
    Left = 144
    Top = 115
    Width = 41
    Height = 21
    Enabled = False
    TabOrder = 3
    Text = '8000'
  end
  object edData: TEdit
    Left = 144
    Top = 147
    Width = 265
    Height = 21
    Enabled = False
    TabOrder = 5
  end
  object edCount: TEdit
    Left = 224
    Top = 115
    Width = 25
    Height = 21
    Enabled = False
    TabOrder = 4
    Text = '10'
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 239
    Width = 415
    Height = 19
    Panels = <
      item
        Text = 'Not connected to the board...'
        Width = 50
      end>
    SimplePanel = False
  end
  object btAbout: TBitBtn
    Left = 328
    Top = 112
    Width = 81
    Height = 25
    Caption = 'About program'
    TabOrder = 21
    OnClick = btAboutClick
  end
  object btTest: TBitBtn
    Left = 264
    Top = 112
    Width = 57
    Height = 25
    Caption = 'Run test'
    Enabled = False
    TabOrder = 22
    OnClick = btTestClick
  end
  object mirrorTimer: TTimer
    Enabled = False
    Interval = 250
    OnTimer = mirrorTimerTimer
    Left = 96
    Top = 48
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'hex'
    Filter = 
      'IntelHEX format (*.hex)|*.hex|Binary file (*.bin)|*.bin|All File' +
      's (*.*)|*.*'
    Left = 384
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'hex'
    FileName = 'flash.hex'
    Filter = 
      'IntelHEX file (*.hex)|*.hex|Binary file (*.bin)|*.bin|Memory dum' +
      'p in text file (*.txt)|*.txt'
    Left = 384
    Top = 64
  end
end