📄 unit1.~dfm
字号:
Font.Style = []
ParentFont = False
TabOrder = 0
object regpc: TPageControl
Left = 0
Top = 16
Width = 461
Height = 305
ActivePage = REG1
TabOrder = 0
object REG1: TTabSheet
Caption = #36828#31243#27880#20876#34920#25511#21046
object Splitter1: TSplitter
Left = 196
Top = 0
Height = 277
Hint = #24038#21491#32553#25918#31383#21475
end
object REGTV: TTreeView
Left = 0
Top = 0
Width = 196
Height = 277
Cursor = crHandPoint
Hint = #27880#20876#34920#20027#38190#20363#34920
Align = alLeft
AutoExpand = True
Color = clInfoBk
Ctl3D = False
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Images = ImageList1
Indent = 19
ParentCtl3D = False
ParentFont = False
PopupMenu = REGA
TabOrder = 0
OnKeyDown = REGTVKeyDown
OnMouseDown = REGTVMouseDown
Items.Data = {
01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000003000000
08CED2B5C4B5E7C4D42A0000000200000003000000FFFFFFFFFFFFFFFF000000
000000000011484B45595F43555252454E545F555345522B0000000200000003
000000FFFFFFFFFFFFFFFF000000000000000012484B45595F4C4F43414C5F4D
414348494E45230000000200000003000000FFFFFFFFFFFFFFFF000000000000
00000A484B45595F5553455253}
end
object REGLV: TListView
Left = 199
Top = 0
Width = 254
Height = 277
Cursor = crHandPoint
Hint = #27880#20876#34920#38190#20540#20363#34920
Align = alClient
Color = clInfoBk
Columns = <
item
Caption = #21517' '#31216
Width = 65
end
item
Caption = #31867' '#22411
Width = 65
end
item
Caption = #25968' '#25454
Width = 120
end>
Ctl3D = False
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FullDrag = True
GridLines = True
ReadOnly = True
ParentFont = False
PopupMenu = REGB
StateImages = ImageList1
TabOrder = 1
ViewStyle = vsReport
OnDblClick = REGLVDblClick
OnEdited = REGLVEdited
OnKeyDown = REGLVKeyDown
OnMouseDown = REGLVMouseDown
end
end
object REG2: TTabSheet
Caption = #24555#36895#26356#25913#36828#31243#27880#20876#34920
ImageIndex = 1
object stck: TCheckListBox
Left = 8
Top = 8
Width = 441
Height = 201
Cursor = crHandPoint
TabStop = False
OnClickCheck = stckClickCheck
Color = clInfoBk
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
#31105#29992#27880#20876#34920
'---------'
#38544#34255'"'#25991#26723'"'
#38544#34255'"'#25910#34255#22841'"'
#38544#34255'"'#35774#32622'"'
#38544#34255'"'#25628#32034'"'
#38544#34255'"'#36816#34892'"'
#38544#34255'"'#20851#38381'"'
#38145#23450'"'#24320#22987'"'#33756#21333
'---------'
#31105#29992'"'#24120#35268'"'#36873#39033#21345
' '#31105#29992'"'#20027#39029'"'#35774#32622#39033
' '#31105#29992'"Internet '#20020#26102#25991#20214'"'
' '#31105#27490#28165#38500'"'#21382#21490#35760#24405'"'
' '#31105#27490#28165#38500'"'#36741#21161#21151#33021'"'
#31105#29992'"'#23433#20840'"'#36873#39033#21345
#31105#29992'"'#20869#23481'"'#36873#39033#21345
' '#31105#29992'"'#20998#32423#23457#26597'"'#35774#32622#39033
' '#31105#29992'"'#35777#20070#35774#32622'"'
' '#31105#29992'"'#33258#21160#23436#25104'"'#34920#21333#39033
#31105#29992'"'#36830#25509'"'#36873#39033#21345
#31105#29992'"'#31243#24207'"'#36873#39033#21345
#31105#29992'"'#39640#32423'"'#36873#39033#21345
'---------'
#38145#23450#25105#30340#30005#33041
#38145#23450#25105#30340#25991#26723
#38145#23450#25511#21046#38754#26495
#38145#23450#22238#25910#31449
'---------'
#20132#25442#40736#26631#24038#21491#38190
#31105#29992'INF'#25991#20214
#31105#29992'REG'#25991#20214)
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
end
end
end
end
object TS4: TTabSheet
Caption = #28040#24687#36827#31243
ImageIndex = 3
OnShow = TS2Show
object GroupBox4: TGroupBox
Left = 216
Top = 4
Width = 253
Height = 325
Caption = #36827#31243#31649#29702
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object JCL1: TLabel
Left = 60
Top = 298
Width = 49
Height = 13
AutoSize = False
Caption = #36827#31243#25968':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object JCL2: TLabel
Left = 111
Top = 298
Width = 78
Height = 13
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object JCBOX: TListBox
Left = 8
Top = 20
Width = 237
Height = 265
Color = clInfoBk
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object JCB1: TButton
Left = 12
Top = 292
Width = 38
Height = 25
Cursor = crHandPoint
Hint = #21047#26032#23545#26041#24403#21069#36827#31243#30340#21015#34920
Caption = #21047#26032
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = JCB1Click
end
object JCB2: TButton
Left = 200
Top = 292
Width = 38
Height = 25
Cursor = crHandPoint
Hint = #32456#27490#25152#36873#21015#34920
Caption = #32456#27490
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = JCB2Click
end
end
object GroupBox5: TGroupBox
Left = 4
Top = 4
Width = 209
Height = 325
Caption = #28040#24687#31649#29702
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label7: TLabel
Left = 10
Top = 33
Width = 36
Height = 13
Caption = #26631#39064#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label9: TLabel
Left = 10
Top = 84
Width = 36
Height = 13
Caption = #20869#23481#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Image1: TImage
Left = 69
Top = 124
Width = 33
Height = 33
Cursor = crHandPoint
DragCursor = crHandPoint
Picture.Data = {
055449636F6E0000010002002020100000000000E80200002600000010101000
00000000280100000E0300002800000020000000400000000100040000000000
8002000000000000000000000000000000000000000000000000800000800000
0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000077777777000
0000000000000000007777777777777700000000000000000771111111177777
7000000000000007111999999991117777700000000000719999999999999917
7777000000000119999999999999999117777000000019999999999999999999
9177700000019999999999999999999999177700000199999999999999999999
99177770001999999F9999999999F9999991777001999999FFF99999999FFF99
999917700199999FFFFF999999FFFFF99999177701999999FFFFF9999FFFFF99
99991777199999999FFFFF99FFFFF999999991771999999999FFFFFFFFFF9999
9999917719999999999FFFFFFFF9999999999177199999999999FFFFFF999999
99999177199999999999FFFFFF9999999999917719999999999FFFFFFFF99999
999991771999999999FFFFFFFFFF999999999170199999999FFFFF99FFFFF999
9999917001999999FFFFF9999FFFFF99999917700199999FFFFF999999FFFFF9
9999170001999999FFF99999999FFF9999991000001999999F9999999999F999
9991700000019999999999999999999999170000000199999999999999999999
9910000000001999999999999999999991000000000001199999999999999991
1000000000000001999999999999991000000000000000001119999999911100
0000000000000000000111111110000000000000FFF807FFFFC000FFFF80007F
FE00001FFC00000FF8000007F0000007E0000003E0000001C000000180000001
8000000080000000000000000000000000000000000000000000000000000000
0000000100000001800000018000000380000007C0000007E000000FE000001F
F000003FF800007FFE0001FFFF0003FFFFE01FFF280000001000000020000000
0100040000000000C00000000000000000000000000000000000000000000000
00008000008000000080800080000000800080008080000080808000C0C0C000
0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000777
7777000000001111111777000011999999911770019999999999917001999999
999991771999FF999FF999171999FFF9FFF9991719999FFFFF999917199999FF
F999991719999FFFFF9999171999FFF9FFF999171999FF999FF9991001999999
99999100019999999999910000119999999110000000111111100000F80F0000
F0030000C0010000800100008000000000000000000000000000000000000000
0000000000000000000100008003000080030000C0070000F01F0000}
end
object Image2: TImage
Left = 69
Top = 190
Width = 33
Height = 33
Cursor = crHandPoint
DragCursor = crHandPoint
Picture.Data = {
055449636F6E0000010002002020100000000000E80200002600000010101000
00000000280100000E0300002800000020000000400000000100040000000000
8002000000000000000000000000000000000000000000000000800000800000
0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000077000
0000000000000000000000000077700000000000000000000000000000077000
0000000000000000000000000F077000000000000000000000000000FF077000
00000000000000000000070FFF07700000000000000000000077770FFF077777
00000000000000007770008FFF07777777000000000000070008FFFFFF800077
77700000000000008FFFFFFFFFFFF800777700000000008FFFFFFFFFFFFFFFF8
0777700000000FFFFFFFFFFFFFFFFFFFF07777000000FFFFFFFFFFFFFFFFFFFF
FF077770007FFFFFFFFCCCCCCCCCFFFFFFF07770078FFFFFFFFFFCCCCCFFFFFF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -