444 lines
9.3 KiB
Plaintext
444 lines
9.3 KiB
Plaintext
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 = []
|
|
Position = poScreenCenter
|
|
StyleElements = [seClient, seBorder]
|
|
OnCreate = FormCreate
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 460
|
|
Top = 20
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'TCP/IP'
|
|
end
|
|
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 = clRed
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnRedBlink: TButton
|
|
Left = 112
|
|
Top = 24
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnRedOff: TButton
|
|
Left = 208
|
|
Top = 24
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowOn: TButton
|
|
Left = 16
|
|
Top = 82
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4367854
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowBlink: TButton
|
|
Left = 112
|
|
Top = 82
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4367854
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowOff: TButton
|
|
Left = 208
|
|
Top = 82
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4367854
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenOn: TButton
|
|
Left = 16
|
|
Top = 140
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenBlink: TButton
|
|
Left = 112
|
|
Top = 140
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenOff: TButton
|
|
Left = 208
|
|
Top = 140
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueOn: TButton
|
|
Left = 16
|
|
Top = 198
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueBlink: TButton
|
|
Left = 112
|
|
Top = 198
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueOff: TButton
|
|
Left = 208
|
|
Top = 198
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteOn: TButton
|
|
Left = 16
|
|
Top = 256
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clSilver
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteBlink: TButton
|
|
Left = 112
|
|
Top = 256
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clSilver
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 13
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteOff: TButton
|
|
Left = 208
|
|
Top = 256
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clSilver
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 14
|
|
StyleElements = [seClient, seBorder]
|
|
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 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
|