📄 cd6_1u.dfm
字号:
object Form1: TForm1
Left = 192
Top = 107
Width = 347
Height = 263
Caption = #36215#27873#25490#24207#27861
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 337
Height = 233
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #36755#20837#25968#25454
object sin: TLabel
Left = 216
Top = 8
Width = 113
Height = 17
AutoSize = False
Caption = #25490#24207#25968#25454#36755#20837
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 264
Top = 40
Width = 57
Height = 13
AutoSize = False
Caption = 'Enter'#38190#20837
end
object Panel1: TPanel
Left = 8
Top = 8
Width = 193
Height = 185
Color = clTeal
TabOrder = 0
object sp1: TShape
Left = 16
Top = 120
Width = 25
Height = 25
Brush.Color = 16777088
Shape = stEllipse
end
object l1: TLabel
Left = 20
Top = 126
Width = 21
Height = 13
AutoSize = False
Transparent = True
end
object Label1: TLabel
Left = 16
Top = 152
Width = 161
Height = 21
AutoSize = False
Caption = #36215#27873#25490#24207' '#26174#31034#32467#26524
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object sp2: TShape
Left = 48
Top = 120
Width = 25
Height = 25
Brush.Color = 16777088
Shape = stEllipse
end
object sp3: TShape
Left = 80
Top = 120
Width = 25
Height = 25
Brush.Color = 16777088
Shape = stEllipse
end
object sp4: TShape
Left = 112
Top = 120
Width = 25
Height = 25
Brush.Color = 16777088
Shape = stEllipse
end
object sp5: TShape
Left = 144
Top = 120
Width = 25
Height = 25
Brush.Color = 16777088
Shape = stEllipse
end
object l2: TLabel
Left = 54
Top = 126
Width = 20
Height = 13
AutoSize = False
Transparent = True
end
object l3: TLabel
Left = 86
Top = 126
Width = 20
Height = 13
AutoSize = False
Transparent = True
end
object l4: TLabel
Left = 118
Top = 126
Width = 20
Height = 13
AutoSize = False
Transparent = True
end
object l5: TLabel
Left = 150
Top = 126
Width = 19
Height = 13
AutoSize = False
Transparent = True
end
end
object ein: TEdit
Left = 216
Top = 32
Width = 49
Height = 21
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #12356#12421' ('#32649#30768') - '#31325#29460#57646
MaxLength = 3
ParentFont = False
TabOrder = 1
OnKeyUp = einKeyUp
end
object execute: TButton
Left = 216
Top = 72
Width = 97
Height = 33
Caption = #25191#34892#25490#24207
Font.Charset = CHINESEBIG5_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = executeClick
end
object show: TButton
Left = 216
Top = 112
Width = 97
Height = 33
Caption = #26174#31034#32467#26524
Font.Charset = CHINESEBIG5_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = showClick
end
object end: TButton
Left = 216
Top = 160
Width = 97
Height = 33
Caption = #32467#26463
Font.Charset = CHINESEBIG5_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = endClick
end
end
object TabSheet2: TTabSheet
Caption = #27493#39588#32467#26524
ImageIndex = 1
object sgout: TStringGrid
Left = 0
Top = 0
Width = 329
Height = 209
ColCount = 6
RowCount = 8
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
ColWidths = (
64
52
51
52
51
49)
end
end
object TabSheet3: TTabSheet
Caption = #35814#32454#27493#39588
ImageIndex = 2
object lbout: TListBox
Left = 0
Top = 0
Width = 329
Height = 209
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #12356#12421' ('#32649#30768') - '#31325#29460#57646
ItemHeight = 16
ParentFont = False
TabOrder = 0
end
end
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 28
Top = 200
end
object Timer2: TTimer
Interval = 100
OnTimer = Timer2Timer
Left = 60
Top = 200
end
object Timer3: TTimer
Interval = 100
OnTimer = Timer3Timer
Left = 92
Top = 200
end
object Timer4: TTimer
Interval = 100
OnTimer = Timer4Timer
Left = 124
Top = 200
end
object Timer5: TTimer
Interval = 100
OnTimer = Timer5Timer
Left = 156
Top = 200
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -