keyboardreader.dfm

键盘测试程序

object MainForm: TMainForm
  Left = 83
  Top = 158
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'USB Keyboard'
  ClientHeight = 339
  ClientWidth = 535
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 11
    Top = 536
    Width = 36
    Height = 16
    Caption = '1 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 11
    Top = 560
    Width = 36
    Height = 16
    Caption = '2 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 121
    Top = 510
    Width = 36
    Height = 16
    Caption = '3 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte1: TLabel
    Left = 81
    Top = 538
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte2: TLabel
    Left = 81
    Top = 562
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte3: TLabel
    Left = 191
    Top = 512
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte6: TLabel
    Left = 303
    Top = 512
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label6: TLabel
    Left = 233
    Top = 510
    Width = 36
    Height = 16
    Caption = '6 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte5: TLabel
    Left = 191
    Top = 560
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 121
    Top = 558
    Width = 36
    Height = 16
    Caption = '5 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte4: TLabel
    Left = 191
    Top = 536
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object label4: TLabel
    Left = 121
    Top = 534
    Width = 36
    Height = 16
    Caption = '4 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte9: TLabel
    Left = 81
    Top = 512
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label9: TLabel
    Left = 11
    Top = 512
    Width = 54
    Height = 16
    Caption = 'ReportID'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte8: TLabel
    Left = 303
    Top = 560
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label8: TLabel
    Left = 233
    Top = 560
    Width = 36
    Height = 16
    Caption = '8 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object byte7: TLabel
    Left = 303
    Top = 536
    Width = 3
    Height = 16
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label7: TLabel
    Left = 233
    Top = 534
    Width = 36
    Height = 16
    Caption = '7 byte'
    Color = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Image1: TImage
    Left = 2
    Top = 0
    Width = 651
    Height = 268
  end
  object Label10: TLabel
    Left = 474
    Top = 285
    Width = 9
    Height = 42
    Font.Charset = ANSI_CHARSET
    Font.Color = clYellow
    Font.Height = -37
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 11
    Top = 349
    Width = 361
    Height = 104
    Caption = 
      #35831#27880#24847#65306#13#10#13#10'1.  '#22312#27979#35797#36807#31243#20013#65292#29992'CTRL+SPACE'#21487#20197#37325#26032#24320#22987#27979#35797#65307#13#10'2.  '#22914#26524#22312#29992#21478#22806#30340#27979#35797#31243#24207#27979#35797#20854#20182'USB'#38190 +
      #30424#26102#38190#30424#26080#21160#20316#65292#13#10'    '#35831#20808#22312#8220#25511#21046#38754#26495#8221#37324#23558#27492#31243#24207#21368#36733#65307#13#10'3.  '#35831#21247#36830#32493#24555#36895#25554#25300'USB'#38190#30424#65292#20197#20813#23548#33268#25925#38556#65307#13#10'4.  ' +
      #22312#27979#35797#36807#31243#20013#25554#25320#38190#30424#26102#65292#22240#31995#32479#38656#21152#36733'/'#21368#36733#39537#21160#31243#24207#65292#13#10'    '#25152#20197#21453#24212#27604#36739#24930#65292#27492#20026#27491#24120#29616#35937#65307
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindow
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 407
    Top = 411
    Width = 197
    Height = 48
    Caption = 
      'JME- 8368 USB Keyboard Tester'#13#10'Ver 1.0.1228    Writing by huping' +
      ' '#13#10'(c) Copyright 2003  JME Co., Ltd. '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 39
    Top = 296
    Width = 85
    Height = 21
    Caption = 'Label13'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    OnDblClick = Label13DblClick
  end
  object DeltaX: TLabel
    Left = 377
    Top = 536
    Width = 3
    Height = 16
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DeltaY: TLabel
    Left = 407
    Top = 536
    Width = 3
    Height = 16
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label16: TLabel
    Left = 298
    Top = 42
    Width = 148
    Height = 29
    Caption = 'Color Sample'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object Label17: TLabel
    Left = 298
    Top = 84
    Width = 148
    Height = 29
    Caption = 'Color Sample'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object Label18: TLabel
    Left = 298
    Top = 126
    Width = 148
    Height = 29
    Caption = 'Color Sample'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object Label19: TLabel
    Left = 298
    Top = 166
    Width = 148
    Height = 29
    Caption = 'Color Sample'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object Buttons: TLabel
    Left = 347
    Top = 536
    Width = 3
    Height = 16
  end
  object Label14: TLabel
    Left = 299
    Top = 206
    Width = 148
    Height = 29
    Caption = 'Color Sample'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object ListBox1: TListBox
    Left = 425
    Top = 510
    Width = 177
    Height = 73
    ImeName = #27721#29579#36755#20837#27861
    ItemHeight = 16
    TabOrder = 0
  end
  object Button1: TButton
    Left = 198
    Top = 42
    Width = 75
    Height = 25
    Caption = 'FormBG'
    Enabled = False
    TabOrder = 1
    Visible = False
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 198
    Top = 84
    Width = 75
    Height = 25
    Caption = 'KeyBg'
    TabOrder = 2
    Visible = False
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 198
    Top = 126
    Width = 75
    Height = 25
    Caption = 'KeyMake'
    TabOrder = 3
    Visible = False
    OnClick = Button1Click
  end
  object Button4: TButton
    Left = 198
    Top = 166
    Width = 75
    Height = 25
    Caption = 'KeyBreak'
    TabOrder = 4
    Visible = False
    OnClick = Button1Click
  end
  object Button5: TButton
    Left = 496
    Top = 104
    Width = 83
    Height = 25
    Caption = 'Back'
    TabOrder = 5
    Visible = False
    OnClick = Button5Click
  end
  object SingleKeyCHK: TCheckBox
    Left = 409
    Top = 352
    Width = 129
    Height = 17
    Caption = 'Single Key Test'
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnClick = SingleKeyCHKClick
  end
  object Button6: TButton
    Left = 198
    Top = 208
    Width = 75
    Height = 25
    Caption = 'PreView'
    TabOrder = 7
    Visible = False
  end
  object MuteCHK: TCheckBox
    Left = 409
    Top = 383
    Width = 97
    Height = 17
    Caption = 'Mute'
    TabOrder = 8
  end
  object ColorDialog: TColorDialog
    Options = [cdFullOpen, cdPreventFullOpen, cdSolidColor, cdAnyColor]
    Left = 496
    Top = 8
  end
end