549 lines
12 KiB
Plaintext
549 lines
12 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'MMCL QLight_Lamp Control [Ethernet-type]'
|
|
ClientHeight = 712
|
|
ClientWidth = 850
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
TextHeight = 14
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 65
|
|
Width = 409
|
|
Height = 647
|
|
Align = alLeft
|
|
Caption = '[ TEST ] Lamp Control'
|
|
TabOrder = 0
|
|
object GroupBox2: TGroupBox
|
|
Left = 2
|
|
Top = 121
|
|
Width = 405
|
|
Height = 208
|
|
Align = alTop
|
|
Caption = 'Sound Select'
|
|
TabOrder = 0
|
|
object btnSoundOff: TButton
|
|
Left = 18
|
|
Top = 24
|
|
Width = 367
|
|
Height = 35
|
|
Caption = 'Sound OFF'
|
|
TabOrder = 0
|
|
OnClick = btnSoundClick
|
|
end
|
|
object btnSound1: TButton
|
|
Left = 18
|
|
Top = 72
|
|
Width = 169
|
|
Height = 35
|
|
Caption = 'Fire A-WANG'
|
|
TabOrder = 1
|
|
OnClick = btnSoundClick
|
|
end
|
|
object btnSound2: TButton
|
|
Left = 18
|
|
Top = 116
|
|
Width = 169
|
|
Height = 35
|
|
Caption = 'Emergency'
|
|
TabOrder = 2
|
|
OnClick = btnSoundClick
|
|
end
|
|
object btnSound3: TButton
|
|
Left = 18
|
|
Top = 160
|
|
Width = 169
|
|
Height = 35
|
|
Caption = 'Ambulance'
|
|
TabOrder = 3
|
|
OnClick = btnSoundClick
|
|
end
|
|
object btnSound4: TButton
|
|
Left = 216
|
|
Top = 72
|
|
Width = 169
|
|
Height = 35
|
|
Caption = 'PI-PI-PI'
|
|
TabOrder = 4
|
|
OnClick = btnSoundClick
|
|
end
|
|
object btnSound5: TButton
|
|
Left = 216
|
|
Top = 116
|
|
Width = 169
|
|
Height = 35
|
|
Caption = 'PI_contiune'
|
|
TabOrder = 5
|
|
OnClick = btnSoundClick
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 2
|
|
Top = 16
|
|
Width = 405
|
|
Height = 105
|
|
Align = alTop
|
|
Caption = 'TCP Setting'
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
405
|
|
105)
|
|
object Label1: TLabel
|
|
Left = 20
|
|
Top = 28
|
|
Width = 38
|
|
Height = 14
|
|
Caption = 'TCP/IP'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 262
|
|
Top = 28
|
|
Width = 38
|
|
Height = 14
|
|
Caption = 'TCP/IP'
|
|
end
|
|
object edtIP1: TEdit
|
|
Left = 72
|
|
Top = 25
|
|
Width = 35
|
|
Height = 22
|
|
TabOrder = 0
|
|
Text = '192'
|
|
end
|
|
object edtIP4: TEdit
|
|
Left = 195
|
|
Top = 25
|
|
Width = 35
|
|
Height = 22
|
|
TabOrder = 1
|
|
Text = '114'
|
|
end
|
|
object edtIP3: TEdit
|
|
Left = 154
|
|
Top = 25
|
|
Width = 35
|
|
Height = 22
|
|
TabOrder = 2
|
|
Text = '200'
|
|
end
|
|
object edtIP2: TEdit
|
|
Left = 113
|
|
Top = 25
|
|
Width = 35
|
|
Height = 22
|
|
TabOrder = 3
|
|
Text = '168'
|
|
end
|
|
object edtPort: TEdit
|
|
Left = 314
|
|
Top = 25
|
|
Width = 73
|
|
Height = 22
|
|
TabOrder = 4
|
|
Text = '20000'
|
|
end
|
|
object btnStatRead: TButton
|
|
Left = 18
|
|
Top = 57
|
|
Width = 367
|
|
Height = 36
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Stat_Read'
|
|
TabOrder = 5
|
|
OnClick = btnStatReadClick
|
|
end
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 2
|
|
Top = 329
|
|
Width = 405
|
|
Height = 316
|
|
Align = alClient
|
|
Caption = 'LED Control'
|
|
TabOrder = 2
|
|
object Label7: TLabel
|
|
Left = 24
|
|
Top = 263
|
|
Width = 58
|
|
Height = 25
|
|
Caption = 'Silver'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clSilver
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 24
|
|
Top = 205
|
|
Width = 45
|
|
Height = 25
|
|
Caption = 'Blue'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 24
|
|
Top = 147
|
|
Width = 62
|
|
Height = 25
|
|
Caption = 'Green'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 24
|
|
Top = 89
|
|
Width = 70
|
|
Height = 25
|
|
Caption = 'Yellow'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4706810
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 24
|
|
Top = 34
|
|
Width = 44
|
|
Height = 25
|
|
Caption = 'RED'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -21
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object btnRedBlink: TButton
|
|
Left = 209
|
|
Top = 22
|
|
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 = 0
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteOff: TButton
|
|
Left = 305
|
|
Top = 254
|
|
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 = 1
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteBlink: TButton
|
|
Left = 209
|
|
Top = 254
|
|
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 = 2
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnWhiteOn: TButton
|
|
Left = 113
|
|
Top = 254
|
|
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 = 3
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueOff: TButton
|
|
Left = 305
|
|
Top = 196
|
|
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 = 4
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueBlink: TButton
|
|
Left = 209
|
|
Top = 196
|
|
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 = 5
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnBlueOn: TButton
|
|
Left = 113
|
|
Top = 196
|
|
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 = 6
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenOff: TButton
|
|
Left = 305
|
|
Top = 138
|
|
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 = 7
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenBlink: TButton
|
|
Left = 209
|
|
Top = 138
|
|
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 = 8
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnGreenOn: TButton
|
|
Left = 113
|
|
Top = 138
|
|
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 = 9
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowOff: TButton
|
|
Left = 305
|
|
Top = 80
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4706810
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowBlink: TButton
|
|
Left = 209
|
|
Top = 80
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON/OFF'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4706810
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnYellowOn: TButton
|
|
Left = 113
|
|
Top = 80
|
|
Width = 80
|
|
Height = 50
|
|
Caption = 'ON'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 4706810
|
|
Font.Height = -24
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnRedOff: TButton
|
|
Left = 305
|
|
Top = 22
|
|
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 = 13
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
object btnRedOn: TButton
|
|
Left = 113
|
|
Top = 22
|
|
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 = 14
|
|
StyleElements = [seClient, seBorder]
|
|
OnClick = btnLampClick
|
|
end
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 409
|
|
Top = 65
|
|
Width = 441
|
|
Height = 647
|
|
Align = alClient
|
|
Caption = '[ Status ]'
|
|
TabOrder = 2
|
|
object lbStatus: TListBox
|
|
Left = 2
|
|
Top = 16
|
|
Width = 437
|
|
Height = 629
|
|
Align = alClient
|
|
ItemHeight = 14
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 850
|
|
Height = 65
|
|
Align = alTop
|
|
BevelKind = bkFlat
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
DesignSize = (
|
|
846
|
|
61)
|
|
object btnReset: TButton
|
|
Left = 582
|
|
Top = 9
|
|
Width = 120
|
|
Height = 41
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Status Clear'
|
|
TabOrder = 0
|
|
OnClick = btnResetClick
|
|
end
|
|
object btnExit: TButton
|
|
Left = 716
|
|
Top = 9
|
|
Width = 120
|
|
Height = 41
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'EXIT'
|
|
TabOrder = 1
|
|
OnClick = btnExitClick
|
|
end
|
|
end
|
|
object rgModel: TRadioGroup
|
|
Left = 431
|
|
Top = 106
|
|
Width = 120
|
|
Height = 170
|
|
Caption = 'Model Select'
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'WS'
|
|
'WP'
|
|
'WM(1)'
|
|
'WA(1)'
|
|
'WB'
|
|
'Buzz'
|
|
'WM(8)'
|
|
'WA(8)')
|
|
TabOrder = 1
|
|
Visible = False
|
|
end
|
|
end
|