📄 unit1.dfm
字号:
object Form1: TForm1
Left = 157
Top = 105
BorderIcons = [biSystemMenu, biMinimize, biHelp]
BorderStyle = bsSingle
Caption = #65290#23567#39532#21733#36828#31243#25511#21046#22120#65290'2004.12.28 - 2005.3.30'
ClientHeight = 416
ClientWidth = 622
Color = clBtnFace
Constraints.MinHeight = 50
Constraints.MinWidth = 125
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object mainPC: TPageControl
Left = 0
Top = 41
Width = 477
Height = 356
ActivePage = TS1
Align = alClient
Enabled = False
TabOrder = 0
object TS1: TTabSheet
Caption = #36828#31243#25991#20214
OnShow = TS1Show
object Splitter2: TSplitter
Left = 201
Top = 33
Height = 295
Hint = #24038#21491#32553#25918#31383#21475
end
object FLV1: TListView
Left = 204
Top = 33
Width = 265
Height = 295
Cursor = crHandPoint
Hint = #36828#31243#25991#20214
Align = alClient
Color = clInfoBk
Columns = <
item
Caption = #25991#20214#21517
Width = 180
end
item
Alignment = taCenter
Caption = #31867#22411
Width = 80
end>
Ctl3D = False
DragCursor = crHandPoint
GridLines = True
ReadOnly = True
PopupMenu = pm3
StateImages = ImageList2
TabOrder = 1
ViewStyle = vsReport
OnDblClick = FLV1DblClick
OnKeyDown = FLV1KeyDown
end
object FTV: TTreeView
Left = 0
Top = 33
Width = 201
Height = 295
Cursor = crHandPoint
Hint = #36828#31243#30446#24405
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 = pm2
ReadOnly = True
TabOrder = 0
OnDblClick = FTVDblClick
OnEdited = FTVEdited
OnKeyDown = FTVKeyDown
OnMouseDown = FTVMouseDown
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 469
Height = 33
Align = alTop
TabOrder = 2
object Label5: TLabel
Left = 204
Top = 9
Width = 66
Height = 13
Caption = #25991#20214#22841#25968#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 344
Top = 9
Width = 53
Height = 13
Caption = #25991#20214#25968#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object FCB: TComboBox
Left = 4
Top = 4
Width = 93
Height = 21
Cursor = crHandPoint
Hint = #36828#31243#39537#21160#22120#31526
Color = clHighlightText
Ctl3D = False
DragCursor = crDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
PopupMenu = PMC
TabOrder = 0
Text = 'c:'
OnChange = FCBChange
end
object dirsum: TEdit
Left = 272
Top = 6
Width = 50
Height = 19
Hint = #24403#21069#30446#24405#20013#25991#20214#22841#25968#37327
Color = clCream
Ctl3D = False
Enabled = False
ParentCtl3D = False
TabOrder = 1
end
object filesum: TEdit
Left = 396
Top = 6
Width = 65
Height = 19
Hint = #24403#21069#25991#20214#22841#19979#25991#20214#25968#37327
Color = clCream
Ctl3D = False
Enabled = False
ParentCtl3D = False
TabOrder = 2
end
object EXCB: TComboBox
Left = 108
Top = 4
Width = 93
Height = 21
Cursor = crHandPoint
Hint = #25991#20214#31867#22411
Color = clHighlightText
Ctl3D = False
DragCursor = crDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
MaxLength = 5
ParentCtl3D = False
ParentFont = False
PopupMenu = PMC
TabOrder = 3
Text = '*.*'
OnKeyPress = EXCBKeyPress
Items.Strings = (
'*.*'
'*.EXE'
'*.TXT'
'*.HTM'
'*.WPS'
'*.DOC'
'*.MP3'
'*.WMA'
'*.AVI'
'*.WAV'
'*.MID'
'*.BMP'
'*.JPG'
'*.GIF')
end
end
end
object TS2: TTabSheet
Caption = #27880#20876#34920#39033
ImageIndex = 2
OnShow = TS2Show
object GroupBox13: TGroupBox
Left = 0
Top = 0
Width = 469
Height = 328
Align = alClient
Caption = #27880#20876#34920#25511#21046
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object regpc: TPageControl
Left = 2
Top = 15
Width = 465
Height = 311
ActivePage = REG1
Align = alClient
TabOrder = 0
object REG1: TTabSheet
Caption = #36828#31243#27880#20876#34920#25511#21046
object Splitter1: TSplitter
Left = 196
Top = 0
Height = 283
Hint = #24038#21491#32553#25918#31383#21475
end
object REGTV: TTreeView
Left = 0
Top = 0
Width = 196
Height = 283
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 = 258
Height = 283
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 fsreg: TGroupBox
Left = 0
Top = 0
Width = 457
Height = 283
Align = alClient
TabOrder = 0
object Label8: TLabel
Left = 4
Top = 240
Width = 57
Height = 13
Cursor = crHandPoint
Hint = #21333#20987#27492#22788#26174#31034#23545#26041'IE'#26631#39064#26639
AutoSize = False
Caption = 'IE'#26631#39064#26639#65306
Transparent = True
OnClick = Label8Click
end
object Label12: TLabel
Left = 4
Top = 268
Width = 57
Height = 13
Cursor = crHandPoint
Hint = #21333#20987#27492#22788#26174#31034#23545#26041'IE'#20027#39029#22320#22336
AutoSize = False
Caption = 'IE'#20027#39029#65306
Transparent = True
OnClick = Label12Click
end
object stck: TCheckListBox
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -