📄 mainfrm.dfm
字号:
object Form1: TForm1
Left = 194
Top = 128
Width = 707
Height = 435
Caption = 'LCDTV GAMMA MEASURE'
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 352
Top = 97
Width = 50
Height = 16
Caption = 'GAMMA'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 352
Top = 321
Width = 18
Height = 16
Caption = 'SN'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 1
Top = -4
Width = 227
Height = 64
TabOrder = 0
object Shape1: TShape
Left = 32
Top = 40
Width = 18
Height = 18
Shape = stCircle
end
object Shape2: TShape
Left = 114
Top = 40
Width = 18
Height = 18
Shape = stCircle
end
object Ca210: TBitBtn
Left = 5
Top = 11
Width = 75
Height = 25
Caption = 'CA210'
TabOrder = 0
OnClick = Ca210Click
end
object SetPGPort: TBitBtn
Left = 85
Top = 11
Width = 75
Height = 25
Caption = 'OPEN PG'
TabOrder = 1
OnClick = SetPGPortClick
end
object ComPort: TComboBox
Left = 162
Top = 11
Width = 60
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ItemHeight = 16
ParentFont = False
TabOrder = 2
Text = 'COM1'
end
end
object GroupBox2: TGroupBox
Left = 426
Top = -4
Width = 270
Height = 300
TabOrder = 1
object Memo1: TMemo
Left = 2
Top = 7
Width = 265
Height = 290
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
OnDblClick = Memo1DblClick
end
end
object BeginMes: TBitBtn
Left = 20
Top = 376
Width = 75
Height = 25
Caption = 'GAMMA'
Default = True
TabOrder = 2
OnClick = BeginMesClick
end
object StopMes: TBitBtn
Left = 124
Top = 376
Width = 75
Height = 25
Caption = 'STOP'
TabOrder = 3
OnClick = StopMesClick
end
object GammaTable: TStringGrid
Left = 21
Top = 64
Width = 329
Height = 303
RowCount = 12
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
ColWidths = (
64
64
64
65
64)
end
object GroupBox3: TGroupBox
Left = 350
Top = 181
Width = 75
Height = 132
Caption = 'SRC SEL'
TabOrder = 5
object SelPC: TRadioButton
Left = 8
Top = 83
Width = 41
Height = 17
Caption = 'PC'
TabOrder = 0
end
object SelAV: TRadioButton
Left = 8
Top = 17
Width = 57
Height = 17
Caption = 'VIDEO'
TabOrder = 1
end
object SelCP: TRadioButton
Left = 8
Top = 61
Width = 45
Height = 17
Caption = 'HD'
Checked = True
TabOrder = 2
TabStop = True
end
object SelHDMI: TRadioButton
Left = 8
Top = 105
Width = 49
Height = 17
Caption = 'HDMI'
TabOrder = 3
end
object SelCS: TRadioButton
Left = 8
Top = 39
Width = 50
Height = 18
Caption = 'SD'
TabOrder = 4
end
end
object COMPUTER: TBitBtn
Left = 350
Top = 148
Width = 75
Height = 25
Caption = 'COMPUTER'
TabOrder = 6
OnClick = COMPUTERClick
end
object GammaData: TEdit
Left = 349
Top = 118
Width = 75
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object GroupBox4: TGroupBox
Left = 229
Top = -4
Width = 196
Height = 64
TabOrder = 8
object Label1: TLabel
Left = 27
Top = 16
Width = 11
Height = 13
Caption = ' x '
end
object Label2: TLabel
Left = 89
Top = 16
Width = 11
Height = 13
Caption = ' y '
end
object Label3: TLabel
Left = 148
Top = 16
Width = 18
Height = 13
Caption = ' Lv '
end
object SSx: TEdit
Left = 4
Top = 32
Width = 60
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object SSy: TEdit
Left = 67
Top = 32
Width = 60
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object SSLv: TEdit
Left = 130
Top = 32
Width = 60
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
end
object ResultStatus: TPanel
Left = 427
Top = 298
Width = 269
Height = 103
Caption = 'READY'
Color = clYellow
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
end
object ClearGammaData: TBitBtn
Left = 350
Top = 65
Width = 75
Height = 25
Caption = 'CLEAR'
TabOrder = 10
OnClick = ClearGammaDataClick
end
object SerialNum: TEdit
Left = 350
Top = 343
Width = 75
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
end
object ReadIni: TBitBtn
Left = 228
Top = 376
Width = 75
Height = 25
Caption = 'READINI'
TabOrder = 12
OnClick = ReadIniClick
end
object Sel0: TCheckBox
Left = 6
Top = 94
Width = 14
Height = 17
TabOrder = 13
end
object Sel3: TCheckBox
Left = 6
Top = 169
Width = 14
Height = 17
TabOrder = 14
end
object Sel4: TCheckBox
Left = 6
Top = 194
Width = 14
Height = 17
TabOrder = 15
end
object Sel5: TCheckBox
Left = 6
Top = 219
Width = 14
Height = 17
TabOrder = 16
end
object Sel6: TCheckBox
Left = 6
Top = 244
Width = 14
Height = 17
TabOrder = 17
end
object Sel7: TCheckBox
Left = 6
Top = 269
Width = 14
Height = 17
TabOrder = 18
end
object Sel8: TCheckBox
Left = 6
Top = 294
Width = 14
Height = 17
TabOrder = 19
end
object Sel9: TCheckBox
Left = 6
Top = 319
Width = 14
Height = 17
TabOrder = 20
end
object Sel10: TCheckBox
Left = 6
Top = 344
Width = 14
Height = 17
TabOrder = 21
end
object Sel2: TCheckBox
Left = 6
Top = 144
Width = 14
Height = 17
TabOrder = 22
end
object Sel1: TCheckBox
Left = 6
Top = 118
Width = 14
Height = 17
TabOrder = 23
end
object WriteIni: TBitBtn
Left = 332
Top = 376
Width = 75
Height = 25
Caption = 'WRITEINI'
TabOrder = 24
OnClick = WriteIniClick
end
object Comm2: TComm
CommName = 'COM2'
BaudRate = 9600
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrEnable
DsrSensitivity = False
TxContinueOnXoff = True
Outx_XonXoffFlow = True
Inx_XonXoffFlow = True
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsEnable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = None
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = #0
ReadIntervalTimeout = 100
ReadTotalTimeoutMultiplier = 0
ReadTotalTimeoutConstant = 0
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
Left = 384
Top = 312
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -