object Form1: TForm1 Left = 221 Top = 164 Width = 743 Height = 541 Caption = 'DG8SAQ SI570-USB-Test' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate DesignSize = ( 735 514) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 396 Width = 146 Height = 13 Anchors = [akLeft, akBottom] Caption = 'request value index' end object Label2: TLabel Left = 192 Top = 378 Width = 22 Height = 13 Anchors = [akLeft, akBottom] Caption = 'HEX' end object Label3: TLabel Left = 452 Top = 477 Width = 32 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Label3' end object Label4: TLabel Left = 8 Top = 477 Width = 220 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Data to be sent Length = ' end object Label5: TLabel Left = 272 Top = 458 Width = 22 Height = 13 Anchors = [akLeft, akBottom] Caption = 'HEX' end object Label6: TLabel Left = 280 Top = 335 Width = 72 Height = 13 Anchors = [akLeft, akBottom] Caption = 'SI570 i2c adr =' end object Label7: TLabel Left = 400 Top = 335 Width = 19 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Hex' end object Label8: TLabel Left = 325 Top = 392 Width = 22 Height = 13 Anchors = [akLeft, akBottom] Caption = 'MHz' end object SpeedButton1: TSpeedButton Left = 568 Top = 421 Width = 161 Height = 22 AllowAllUp = True Anchors = [akLeft, akBottom] GroupIndex = 1 Caption = 'continuously query cw key' OnClick = SpeedButton1Click end object Shape1: TShape Left = 648 Top = 452 Width = 41 Height = 33 Anchors = [akLeft, akBottom] Brush.Color = clLime Shape = stCircle end object Label9: TLabel Left = 600 Top = 461 Width = 48 Height = 13 Anchors = [akLeft, akBottom] Caption = 'key status' end object Label10: TLabel Left = 528 Top = 375 Width = 74 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Device Name =' end object SpeedButton2: TSpeedButton Left = 336 Top = 453 Width = 113 Height = 22 AllowAllUp = True Anchors = [akLeft, akBottom] GroupIndex = 1 Caption = 'startup f=factory f' OnClick = SpeedButton2Click end object Shape2: TShape Left = 688 Top = 452 Width = 41 Height = 33 Anchors = [akLeft, akBottom] Brush.Color = clLime Shape = stCircle end object ListBox1: TListBox Left = 0 Top = 0 Width = 735 Height = 329 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clHighlight Font.Height = -16 Font.Name = 'Terminal' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 5 end object Button1: TButton Left = 456 Top = 333 Width = 273 Height = 25 Anchors = [akLeft, akBottom] Caption = 'TestUSB' TabOrder = 0 OnClick = Button1Click end object Button4: TButton Left = 8 Top = 333 Width = 217 Height = 25 Anchors = [akLeft, akBottom] Caption = 'USB_control_msg data to host' TabOrder = 1 OnClick = Button4Click end object Edit1: TEdit Left = 8 Top = 373 Width = 57 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 2 Text = '3' end object Edit2: TEdit Left = 72 Top = 373 Width = 49 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 3 Text = '0' end object Edit3: TEdit Left = 128 Top = 373 Width = 57 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 4 Text = '0' end object StatusBar1: TStatusBar Left = 0 Top = 495 Width = 735 Height = 19 Panels = <> SimplePanel = False end object Button2: TButton Left = 8 Top = 421 Width = 217 Height = 25 Anchors = [akLeft, akBottom] Caption = 'USB_control_msg data to USB device' TabOrder = 7 OnClick = Button2Click end object E0: TEdit Left = 8 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 8 Text = 'E0' end object E1: TEdit Left = 40 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 9 Text = 'E1' end object E2: TEdit Left = 72 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 10 Text = 'E2' end object E3: TEdit Left = 104 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 11 Text = 'E3' end object E4: TEdit Left = 136 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 12 Text = 'E4' end object ELen: TEdit Left = 232 Top = 474 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 13 Text = 'Len' end object E7: TEdit Left = 232 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 14 Text = 'E7' end object E6: TEdit Left = 200 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 15 Text = 'E6' end object E5: TEdit Left = 168 Top = 452 Width = 33 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 16 Text = 'E5' end object Button3: TButton Left = 232 Top = 357 Width = 105 Height = 25 Anchors = [akLeft, akBottom] Caption = 'read SI570 registers' TabOrder = 17 OnClick = Button3Click end object Edit5: TEdit Left = 608 Top = 373 Width = 121 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 18 Text = 'DG8SAQ-I2C' OnChange = Edit5Change end object Edit4: TEdit Left = 359 Top = 333 Width = 34 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 19 Text = '55' end object Button5: TButton Left = 232 Top = 421 Width = 105 Height = 25 Anchors = [akLeft, akBottom] Caption = 'set freq by registers' TabOrder = 20 OnClick = Button5Click end object Edit6: TEdit Left = 232 Top = 389 Width = 89 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 21 Text = '56.320000' end object CheckBox1: TCheckBox Left = 456 Top = 424 Width = 97 Height = 17 Anchors = [akLeft, akBottom] Caption = 'RXTX level' TabOrder = 22 OnClick = CheckBox1Click end object Button6: TButton Left = 336 Top = 421 Width = 113 Height = 25 Anchors = [akLeft, akBottom] Caption = 'set freq by value' TabOrder = 23 OnClick = Button6Click end object Button7: TButton Left = 336 Top = 357 Width = 113 Height = 25 Anchors = [akLeft, akBottom] Caption = 'read calc registers' TabOrder = 24 OnClick = Button7Click end object Button8: TButton Left = 352 Top = 387 Width = 97 Height = 25 Anchors = [akLeft, akBottom] Caption = 'cal on startup freq' TabOrder = 25 OnClick = Button8Click end object Timer1: TTimer Enabled = False Interval = 10 OnTimer = Timer1Timer Left = 568 Top = 456 end end