mainformunit.dfm

USB技术大全-54.8M.zip

object MainForm: TMainForm
  Left = 296
  Top = 38
  Width = 512
  Height = 688
  Caption = 'AVR to USB tester - AVR309'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object IRCodeImage: TImage
    Left = 1
    Top = 322
    Width = 416
    Height = 59
    Hint = 'Oscilograph of received IR code'
    AutoSize = True
    ParentShowHint = False
    ShowHint = True
  end
  object InfraIntervalLabel: TLabel
    Left = 2
    Top = 324
    Width = 25
    Height = 13
    Hint = 'Refresh time for IR code question'
    Caption = '50ms'
    Color = clWhite
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
  end
  object RemoteCodeLabel: TLabel
    Left = 8
    Top = 309
    Width = 139
    Height = 13
    Caption = 'IR Remote Code oscilograph:'
  end
  object DeviceNotPresentLabel: TLabel
    Left = 251
    Top = 224
    Width = 67
    Height = 26
    Hint = 'If device is not present, you see this warning'
    Alignment = taCenter
    Caption = 'Device not present !!!'
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Visible = False
    WordWrap = True
  end
  object CopyRightLabel: TLabel
    Left = 288
    Top = 296
    Width = 124
    Height = 17
    Cursor = crHandPoint
    Hint = 'For more information see my web page'
    Caption = 'Atmel and authors website'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = CopyRightLabelClick
  end
  object DataInIntervalLabel: TLabel
    Left = 288
    Top = 184
    Width = 31
    Height = 13
    Hint = 'Refresh time for data port polling'
    Caption = '200ms'
    Color = clWhite
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
  end
  object PortChoiceRadioGroup: TRadioGroup
    Left = 8
    Top = 154
    Width = 409
    Height = 33
    Hint = 'Select AVR port for read/write'
    Caption = 'Select data port:'
    Color = clBtnFace
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'port B (or base)'
      'port C'
      'port D')
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = PortChoiceRadioGroupClick
  end
  object OutDataGroupBox: TGroupBox
    Left = 8
    Top = 4
    Width = 113
    Height = 145
    Hint = 
      'if Direction=out -> output data signal, if Direction=in -> enabl' +
      'e pull-up on data pin'
    Caption = 'Data port Out/pullup:'
    Color = clBtnFace
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object DataOutCheckBox0: TCheckBox
      Tag = 1
      Left = 16
      Top = 16
      Width = 55
      Height = 17
      Caption = 'Out0'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox1: TCheckBox
      Tag = 2
      Left = 16
      Top = 31
      Width = 55
      Height = 17
      Caption = 'Out1'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox2: TCheckBox
      Tag = 4
      Left = 16
      Top = 48
      Width = 55
      Height = 15
      Caption = 'Out2'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox3: TCheckBox
      Tag = 8
      Left = 16
      Top = 61
      Width = 55
      Height = 17
      Caption = 'Out3'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox4: TCheckBox
      Tag = 16
      Left = 16
      Top = 75
      Width = 55
      Height = 17
      Caption = 'Out4'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox5: TCheckBox
      Tag = 32
      Left = 16
      Top = 90
      Width = 55
      Height = 17
      Caption = 'Out5'
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox6: TCheckBox
      Tag = 64
      Left = 16
      Top = 105
      Width = 55
      Height = 17
      Caption = 'Out6'
      Checked = True
      State = cbChecked
      TabOrder = 6
      OnClick = DataOutCheckBox0Click
    end
    object DataOutCheckBox7: TCheckBox
      Tag = 128
      Left = 16
      Top = 120
      Width = 55
      Height = 17
      Caption = 'Out7'
      Checked = True
      State = cbChecked
      TabOrder = 7
      OnClick = DataOutCheckBox0Click
    end
  end
  object LEDRadioGroup: TRadioGroup
    Left = 328
    Top = 4
    Width = 89
    Height = 145
    Hint = 'switch ON selected LED (connected to data bus: cathode to GND)'
    Caption = 'LED ON/OFF:'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Items.Strings = (
      'LED 0'
      'LED 1'
      'LED 2'
      'LED 3'
      'LED 4'
      'LED 5'
      'LED 6'
      'LED 7')
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = LEDRadioGroupClick
  end
  object EEPROMStringGrid: TStringGrid
    Left = 422
    Top = 0
    Width = 82
    Height = 661
    Hint = 'Data for EEPROM (read or write)'
    Align = alRight
    ColCount = 2
    DefaultColWidth = 20
    DefaultRowHeight = 12
    RowCount = 1024
    FixedRows = 0
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goThumbTracking]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    ColWidths = (
      20
      40)
  end
  object DirectionGroupBox: TGroupBox
    Left = 128
    Top = 4
    Width = 105
    Height = 145
    Hint = 'Direction of data bus (out=checked, in=unchecked)'
    Caption = 'Data port Direction:'
    Color = clBtnFace
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object DataDirectionCheckBox0: TCheckBox
      Tag = 1
      Left = 16
      Top = 16
      Width = 80
      Height = 17
      Caption = 'Direction0'
      TabOrder = 0
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox1: TCheckBox
      Tag = 2
      Left = 16
      Top = 31
      Width = 80
      Height = 17
      Caption = 'Direction1'
      TabOrder = 1
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox2: TCheckBox
      Tag = 4
      Left = 16
      Top = 46
      Width = 80
      Height = 17
      Caption = 'Direction2'
      TabOrder = 2
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox3: TCheckBox
      Tag = 8
      Left = 16
      Top = 61
      Width = 80
      Height = 17
      Caption = 'Direction3'
      TabOrder = 3
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox4: TCheckBox
      Tag = 16
      Left = 16
      Top = 75
      Width = 80
      Height = 17
      Caption = 'Direction4'
      TabOrder = 4
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox5: TCheckBox
      Tag = 32
      Left = 16
      Top = 90
      Width = 80
      Height = 17
      Caption = 'Direction5'
      ParentShowHint = False
      ShowHint = False
      TabOrder = 5
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox6: TCheckBox
      Tag = 64
      Left = 16
      Top = 105
      Width = 80
      Height = 17
      Caption = 'Direction6'
      TabOrder = 6
      OnClick = DataDirectionCheckBox0Click
    end
    object DataDirectionCheckBox7: TCheckBox
      Tag = 128
      Left = 16