object frmMain: TfrmMain Left = 0 Top = 0 Caption = 'QLight_Lamptest [Ethernet-type]v1.2' ClientHeight = 450 ClientWidth = 720 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 16 Top = 16 Width = 320 Height = 330 Caption = 'Lamp Control' TabOrder = 0 object btnRedOn: TButton Left = 16 Top = 24 Width = 80 Height = 50 Caption = 'ON' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = btnLampClick end object btnRedBlink: TButton Left = 112 Top = 24 Width = 80 Height = 50 Caption = 'ON/OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = btnLampClick end object btnRedOff: TButton Left = 208 Top = 24 Width = 80 Height = 50 Caption = 'OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = btnLampClick end object btnYellowOn: TButton Left = 16 Top = 82 Width = 80 Height = 50 Caption = 'ON' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = btnLampClick end object btnYellowBlink: TButton Left = 112 Top = 82 Width = 80 Height = 50 Caption = 'ON/OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = btnLampClick end object btnYellowOff: TButton Left = 208 Top = 82 Width = 80 Height = 50 Caption = 'OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = btnLampClick end object btnGreenOn: TButton Left = 16 Top = 140 Width = 80 Height = 50 Caption = 'ON' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = btnLampClick end object btnGreenBlink: TButton Left = 112 Top = 140 Width = 80 Height = 50 Caption = 'ON/OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = btnLampClick end object btnGreenOff: TButton Left = 208 Top = 140 Width = 80 Height = 50 Caption = 'OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = btnLampClick end object btnBlueOn: TButton Left = 16 Top = 198 Width = 80 Height = 50 Caption = 'ON' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = btnLampClick end object btnBlueBlink: TButton Left = 112 Top = 198 Width = 80 Height = 50 Caption = 'ON/OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 10 OnClick = btnLampClick end object btnBlueOff: TButton Left = 208 Top = 198 Width = 80 Height = 50 Caption = 'OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = btnLampClick end object btnWhiteOn: TButton Left = 16 Top = 256 Width = 80 Height = 50 Caption = 'ON' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 12 OnClick = btnLampClick end object btnWhiteBlink: TButton Left = 112 Top = 256 Width = 80 Height = 50 Caption = 'ON/OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 13 OnClick = btnLampClick end object btnWhiteOff: TButton Left = 208 Top = 256 Width = 80 Height = 50 Caption = 'OFF' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = btnLampClick end end object GroupBox2: TGroupBox Left = 352 Top = 50 Width = 180 Height = 296 Caption = 'Sound Select' TabOrder = 1 object btnSoundOff: TButton Left = 16 Top = 24 Width = 150 Height = 35 Caption = 'Sound OFF' TabOrder = 0 OnClick = btnSoundClick end object btnSound1: TButton Left = 16 Top = 72 Width = 150 Height = 35 Caption = 'Fire A-WANG' TabOrder = 1 OnClick = btnSoundClick end object btnSound2: TButton Left = 16 Top = 116 Width = 150 Height = 35 Caption = 'Emergency' TabOrder = 2 OnClick = btnSoundClick end object btnSound3: TButton Left = 16 Top = 160 Width = 150 Height = 35 Caption = 'Ambulance' TabOrder = 3 OnClick = btnSoundClick end object btnSound4: TButton Left = 16 Top = 204 Width = 150 Height = 35 Caption = 'PI-PI-PI' TabOrder = 4 OnClick = btnSoundClick end object btnSound5: TButton Left = 16 Top = 248 Width = 150 Height = 35 Caption = 'PI_contiune' TabOrder = 5 OnClick = btnSoundClick end end object Label1: TLabel Left = 460 Top = 20 Width = 38 Height = 13 Caption = 'TCP/IP' end object edtIP1: TEdit Left = 512 Top = 17 Width = 35 Height = 21 TabOrder = 2 Text = '192' end object edtIP2: TEdit Left = 553 Top = 17 Width = 35 Height = 21 TabOrder = 3 Text = '168' end object edtIP3: TEdit Left = 594 Top = 17 Width = 35 Height = 21 TabOrder = 4 Text = '200' end object edtIP4: TEdit Left = 635 Top = 17 Width = 35 Height = 21 TabOrder = 5 Text = '114' end object GroupBox3: TGroupBox Left = 552 Top = 50 Width = 120 Height = 60 Caption = 'TCP/ PORT' TabOrder = 6 object edtPort: TEdit Left = 24 Top = 24 Width = 73 Height = 21 TabOrder = 0 Text = '20000' end end object rgModel: TRadioGroup Left = 552 Top = 120 Width = 120 Height = 170 Caption = 'Model Select' ItemIndex = 0 Items.Strings = ( 'WS' 'WP' 'WM(1)' 'WA(1)' 'WB' 'Buzz' 'WM(8)' 'WA(8)') TabOrder = 7 end object btnStatRead: TButton Left = 552 Top = 304 Width = 120 Height = 41 Caption = 'Stat_Read' TabOrder = 8 OnClick = btnStatReadClick end object btnReset: TButton Left = 552 Top = 351 Width = 120 Height = 41 Caption = 'Reset' TabOrder = 9 OnClick = btnResetClick end object btnExit: TButton Left = 552 Top = 398 Width = 120 Height = 41 Caption = 'EXIT' TabOrder = 10 OnClick = btnExitClick end object GroupBox4: TGroupBox Left = 16 Top = 352 Width = 516 Height = 87 Caption = 'Status' TabOrder = 11 object lbStatus: TListBox Left = 16 Top = 24 Width = 480 Height = 50 ItemHeight = 13 TabOrder = 0 end end end