⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 _main_form.dfm

📁 蓝牙芯片ZV4301的调试工具源码.做蓝牙产品时很有参考价值内部有串口的编程序源码,对有串口编成需求的同志有参考价值.
💻 DFM
📖 第 1 页 / 共 2 页
字号:
object MAIN_FORM: TMAIN_FORM
  Left = 189
  Top = 161
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Zeevo MP Tool'
  ClientHeight = 430
  ClientWidth = 550
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MAIN_MENU
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LED: TShape
    Left = 531
    Top = 4
    Width = 17
    Height = 17
    Brush.Color = clGreen
    Pen.Style = psClear
    Shape = stCircle
  end
  object DEBUG_GROUP: TGroupBox
    Left = 0
    Top = 288
    Width = 547
    Height = 138
    Caption = 'Message View'
    TabOrder = 0
    object DEBUG_LIST: TListBox
      Left = 2
      Top = 15
      Width = 543
      Height = 121
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = 10311706
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      PopupMenu = DEBUG_MENU
      TabOrder = 0
    end
  end
  object CTRL_PAGE: TPageControl
    Left = 4
    Top = 24
    Width = 540
    Height = 265
    ActivePage = CONTROL_PAGE_ZVENGINEERTOOL
    TabIndex = 0
    TabOrder = 1
    object CONTROL_PAGE_ZVENGINEERTOOL: TTabSheet
      Caption = 'Zeevo Engineer Tool'
      ImageIndex = 3
      object ZV_ENGINEER_LIST: TColorListBox
        Left = 2
        Top = 2
        Width = 143
        Height = 199
        Style = lbOwnerDrawFixed
        Enabled = False
        ItemHeight = 13
        TabOrder = 0
        OnClick = ZV_ENGINEER_LISTClick
      end
      object ZV_ENGINEER_PANEL_NONE: TGroupBox
        Left = 152
        Top = 2
        Width = 378
        Height = 233
        Caption = 'No Parameter'
        TabOrder = 1
      end
      object ZV_ENGINEER_PANEL_NOOPEN: TGroupBox
        Left = 152
        Top = 2
        Width = 378
        Height = 233
        Caption = 'No Parameter'
        TabOrder = 2
        object Label2: TLabel
          Left = 64
          Top = 104
          Width = 244
          Height = 13
          Caption = 'DO NOT ALLOWED TO ACCESS THIS CONTROL'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
      object ZV_ENGINEER_PANEL_BUILD: TGroupBox
        Left = 152
        Top = 2
        Width = 378
        Height = 233
        Caption = 'Display Build Information'
        TabOrder = 3
        object ZEP_BUILD_BUILD: TLabeledEdit
          Left = 96
          Top = 24
          Width = 73
          Height = 21
          EditLabel.Width = 23
          EditLabel.Height = 13
          EditLabel.Caption = 'Build'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 0
        end
        object ZEP_BUILD_SIGNATURE: TLabeledEdit
          Left = 96
          Top = 48
          Width = 225
          Height = 21
          EditLabel.Width = 45
          EditLabel.Height = 13
          EditLabel.Caption = 'Signature'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 1
        end
        object ZEP_BUILD_COMMENT: TLabeledEdit
          Left = 96
          Top = 72
          Width = 225
          Height = 21
          EditLabel.Width = 44
          EditLabel.Height = 13
          EditLabel.Caption = 'Comment'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 2
        end
        object ZEP_BUILD_DATE: TLabeledEdit
          Left = 96
          Top = 96
          Width = 121
          Height = 21
          EditLabel.Width = 23
          EditLabel.Height = 13
          EditLabel.Caption = 'Date'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 3
        end
        object ZEP_BUILD_CHIP: TLabeledEdit
          Left = 248
          Top = 96
          Width = 73
          Height = 21
          EditLabel.Width = 21
          EditLabel.Height = 13
          EditLabel.Caption = 'Chip'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 4
        end
        object ZEP_BUILD_RFPARAM: TLabeledEdit
          Left = 96
          Top = 120
          Width = 225
          Height = 21
          EditLabel.Width = 70
          EditLabel.Height = 13
          EditLabel.Caption = 'RF Parameters'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 5
        end
        object ZEP_BUILD_PKG: TLabeledEdit
          Left = 96
          Top = 144
          Width = 89
          Height = 21
          EditLabel.Width = 43
          EditLabel.Height = 13
          EditLabel.Caption = 'Package'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 6
        end
        object ZEP_BUILD_HI: TLabeledEdit
          Left = 264
          Top = 144
          Width = 89
          Height = 21
          EditLabel.Width = 67
          EditLabel.Height = 13
          EditLabel.Caption = 'Host Interface'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 7
        end
        object ZEP_BUILD_CHIPBASE: TLabeledEdit
          Left = 213
          Top = 168
          Width = 89
          Height = 21
          EditLabel.Width = 172
          EditLabel.Height = 13
          EditLabel.Caption = 'ChipBase: Build From Library Version'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 8
        end
        object ZEP_BUILD_BTLLSTACK: TLabeledEdit
          Left = 213
          Top = 192
          Width = 89
          Height = 21
          EditLabel.Width = 181
          EditLabel.Height = 13
          EditLabel.Caption = 'BTLLStack: Build From Library Version'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 9
        end
      end
      object ZV_ENGINEER_PANEL_READ: TButton
        Left = 8
        Top = 208
        Width = 65
        Height = 25
        Caption = 'Read'
        TabOrder = 4
        OnClick = ZV_ENGINEER_PANEL_READClick
      end
      object ZV_ENGINEER_PANEL_Reset: TButton
        Left = 80
        Top = 208
        Width = 65
        Height = 25
        Caption = 'Reset'
        TabOrder = 5
        OnClick = ZV_ENGINEER_PANEL_ResetClick
      end
      object ZV_ENGINEER_PANEL_BDADDR: TGroupBox
        Left = 152
        Top = 3
        Width = 378
        Height = 233
        Caption = 'No Parameter'
        TabOrder = 6
        object ZEP_BDADDR_BDADDR: TLabeledEdit
          Left = 133
          Top = 96
          Width = 89
          Height = 21
          EditLabel.Width = 46
          EditLabel.Height = 13
          EditLabel.Caption = 'BDADDR'
          LabelPosition = lpLeft
          LabelSpacing = 3
          TabOrder = 0
        end
        object ZEP_BDADDR_TYPE: TLabeledEdit
          Left = 133
          Top = 120
          Width = 89
          Height = 21
          EditLabel.Width = 110
          EditLabel.Height = 13
          EditLabel.Caption = 'Current BDADDR Type'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 1
        end
        object ZEP_BDADDR_SET: TButton
          Left = 224
          Top = 96
          Width = 41
          Height = 17
          Caption = 'Set'
          TabOrder = 2
          OnClick = ZEP_BDADDR_SETClick
        end
      end
      object ZV_ENGINEER_PANEL_CRYSTAL: TGroupBox
        Left = 152
        Top = 3
        Width = 378
        Height = 233
        Caption = 'No Parameter'
        TabOrder = 7
        object GroupBox2: TGroupBox
          Left = 8
          Top = 32
          Width = 361
          Height = 71
          Caption = 'Frequency Counter Method'
          TabOrder = 0
          object Label5: TLabel
            Left = 8
            Top = 16
            Width = 34
            Height = 13
            Caption = 'Step 1.'
          end
          object Label6: TLabel
            Left = 8
            Top = 32
            Width = 34
            Height = 13
            Caption = 'Step 2.'
          end
          object Label7: TLabel
            Left = 8
            Top = 48
            Width = 34
            Height = 13
            Caption = 'Step 3.'
          end
          object ZEP_CRYSTAL_TUNNING_01STEP1: TButton
            Left = 48
            Top = 16
            Width = 233
            Height = 17
            Caption = 'Output 12MHz clock on GPIO0'
            TabOrder = 0
            OnClick = ZEP_CRYSTAL_TUNNING_01STEP1Click
          end
          object ZEP_CRYSTAL_TUNNING_01STEP2: TButton
            Left = 48
            Top = 32
            Width = 233
            Height = 17
            Caption = 'Adjust Crystal Tunning Register'
            TabOrder = 1
            OnClick = ZEP_CRYSTAL_TUNNING_01STEP2Click
          end
          object ZEP_CRYSTAL_TUNNING_01STEP3: TButton
            Left = 48
            Top = 48
            Width = 233
            Height = 17
            Caption = 'Store Crystal Tunning Register  permanently'
            TabOrder = 2
            OnClick = ZEP_CRYSTAL_TUNNING_01STEP3Click
          end
          object ZEP_CRYSTAL_TUNNING_01REG: TComboBox
            Left = 288
            Top = 37
            Width = 49
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            ItemIndex = 0
            TabOrder = 3
            Text = '0x00'
            Items.Strings = (
              '0x00'
              '0x01'
              '0x02'
              '0x03'
              '0x04'
              '0x05'
              '0x06'
              '0x07'
              '0x08'
              '0x09'
              '0x0A'
              '0x0B'
              '0x0C'
              '0x0D'
              '0x0E'
              '0x0F')
          end
        end
        object ZEP_CRYSTAL_TUNNING_FLASH: TLabeledEdit
          Left = 144
          Top = 12
          Width = 25
          Height = 21
          EditLabel.Width = 126
          EditLabel.Height = 13
          EditLabel.Caption = 'Crystal Tunning in Flash 0x'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 1
        end
        object ZEP_CRYSTAL_COUNT: TLabeledEdit
          Left = 264
          Top = 12
          Width = 25
          Height = 21
          EditLabel.Width = 70
          EditLabel.Height = 13
          EditLabel.Caption = 'Tunning Count'
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 2
        end
        object GroupBox1: TGroupBox
          Left = 8
          Top = 102
          Width = 361
          Height = 87
          Caption = 'Spectrum Analyzer Method'
          TabOrder = 3
          object Label8: TLabel
            Left = 8
            Top = 16
            Width = 34
            Height = 13
            Caption = 'Step 1.'
          end
          object Label9: TLabel
            Left = 8
            Top = 48
            Width = 34
            Height = 13
            Caption = 'Step 3.'
          end
          object Label10: TLabel
            Left = 8
            Top = 64
            Width = 34
            Height = 13
            Caption = 'Step 4.'
          end
          object Label11: TLabel
            Left = 8
            Top = 32
            Width = 34
            Height = 13
            Caption = 'Step 2.'
          end
          object ZEP_CRYSTAL_TUNNING_02STEP1: TButton
            Left = 48
            Top = 16
            Width = 233
            Height = 17
            Caption = 'Put the Device into Test Mode'
            TabOrder = 0
            OnClick = ZEP_CRYSTAL_TUNNING_02STEP1Click
          end
          object ZEP_CRYSTAL_TUNNING_02STEP2: TButton
            Left = 48
            Top = 32
            Width = 233
            Height = 17
            Caption = 'Set the LO Frequency to Channel 0'
            TabOrder = 1
            OnClick = ZEP_CRYSTAL_TUNNING_02STEP2Click
          end
          object ZEP_CRYSTAL_TUNNING_02STEP3: TButton
            Left = 48
            Top = 48
            Width = 233
            Height = 17
            Caption = 'Adjust Crystal Tunning Register'
            TabOrder = 2
            OnClick = ZEP_CRYSTAL_TUNNING_02STEP3Click
          end
          object ZEP_CRYSTAL_TUNNING_02STEP4: TButton
            Left = 48
            Top = 64
            Width = 233
            Height = 17
            Caption = 'Store Crystal Tunning Register  permanently'
            TabOrder = 3
            OnClick = ZEP_CRYSTAL_TUNNING_02STEP4Click
          end
          object ZEP_CRYSTAL_TUNNING_02REG: TComboBox
            Left = 288
            Top = 53
            Width = 49
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            ItemIndex = 0
            TabOrder = 4
            Text = '0x00'
            Items.Strings = (
              '0x00'
              '0x01'
              '0x02'
              '0x03'
              '0x04'
              '0x05'
              '0x06'
              '0x07'
              '0x08'
              '0x09'
              '0x0A'
              '0x0B'
              '0x0C'
              '0x0D'
              '0x0E'
              '0x0F')
          end
        end
        object GroupBox3: TGroupBox
          Left = 8
          Top = 188
          Width = 361
          Height = 37
          Caption = 'Bluetooth Tester Method'
          TabOrder = 4
          object Label12: TLabel
            Left = 8
            Top = 16
            Width = 34
            Height = 13
            Caption = 'Step 1.'
          end
          object ZEP_CRYSTAL_TUNNING_03STEP1: TButton
            Left = 48
            Top = 16
            Width = 233
            Height = 17
            Caption = 'Put the Device into Test Mode'
            TabOrder = 0
            OnClick = ZEP_CRYSTAL_TUNNING_03STEP1Click
          end
        end
      end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -