jvcl driver development envionment
源代码在线查看: regtvmainformu.dfm
object RegTVMainForm: TRegTVMainForm
Left = 187
Top = 94
Width = 640
Height = 400
Caption = 'Registry Editor Demo'
Color = clBtnFace
Constraints.MinHeight = 180
Constraints.MinWidth = 400
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = mmMain
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 209
Top = 0
Width = 5
Height = 327
Cursor = crHSplit
end
object StatusBar1: TStatusBar
Left = 0
Top = 327
Width = 632
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object RegistryTreeView1: TJvRegistryTreeView
Left = 0
Top = 0
Width = 209
Height = 327
Align = alLeft
ShowHint = False
ReadOnly = False
Indent = 19
RegistryKeys = [hkClassesRoot, hkCurrentUser, hkLocalMachine, hkUsers, hkCurrentConfig]
ListView = ListView1
RootCaption = 'My Computer'
DefaultCaption = '(Default)'
DefaultNoValueCaption = '(value not set)'
OnExpanding = RegistryTreeView1Expanding
OnExpanded = RegistryTreeView1Expanded
OnChange = RegistryTreeView1Change
end
object ListView1: TListView
Left = 214
Top = 0
Width = 418
Height = 327
Align = alClient
Columns = <
item
Caption = 'Name'
Width = 200
end
item
AutoSize = True
Caption = 'Value'
end
item
AutoSize = True
Caption = 'Type'
end>
ColumnClick = False
FullDrag = True
SortType = stText
TabOrder = 2
ViewStyle = vsReport
end
object mmMain: TMainMenu
Left = 104
Top = 88
object Registry1: TMenuItem
Caption = 'Registry'
object Importregistryfile1: TMenuItem
Caption = 'Import registryfile...'
OnClick = Importregistryfile1Click
end
object Exportregistryfile1: TMenuItem
Caption = 'Export registryfile...'
OnClick = Exportregistryfile1Click
end
object N1: TMenuItem
Caption = '-'
end
object Connectnetworkdrive1: TMenuItem
Caption = 'Connect network drive...'
OnClick = Connectnetworkdrive1Click
end
object Disconnectnetworkdrive1: TMenuItem
Caption = 'Disconnect network drive...'
Enabled = False
OnClick = Disconnectnetworkdrive1Click
end
object N2: TMenuItem
Caption = '-'
end
object Print1: TMenuItem
Caption = 'Print...'
end
object N3: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = 'Edit'
object New1: TMenuItem
Caption = 'New'
object Key1: TMenuItem
Caption = 'Key'
OnClick = Key1Click
end
object N4: TMenuItem
Caption = '-'
end
object Stringvalue1: TMenuItem
Caption = 'String value'
end
object Binaryvalue1: TMenuItem
Caption = 'Binary value'
end
object DWORDvalue1: TMenuItem
Caption = 'DWORD value'
end
end
object N5: TMenuItem
Caption = '-'
end
object Delete1: TMenuItem
Caption = 'Delete'
OnClick = Delete1Click
end
object Rename1: TMenuItem
Caption = 'Rename'
OnClick = Rename1Click
end
object N6: TMenuItem
Caption = '-'
end
object Copykeyname1: TMenuItem
Caption = 'Copy key name'
end
object N7: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = 'Find...'
end
object FindNext1: TMenuItem
Caption = 'Find Next'
end
end
object View1: TMenuItem
Caption = 'View'
object Statusbar2: TMenuItem
Caption = 'Statusbar'
Checked = True
OnClick = Statusbar2Click
end
object N8: TMenuItem
Caption = '-'
end
object Refresh1: TMenuItem
Caption = 'Refresh'
ShortCut = 116
OnClick = Refresh1Click
end
end
object Favorites1: TMenuItem
Caption = 'Favorites'
object Addtofavorites1: TMenuItem
Caption = 'Add to Favorites'
OnClick = Addtofavorites1Click
end
object Deletefavorite1: TMenuItem
Caption = 'Delete Favorite'
end
object N10: TMenuItem
Caption = '-'
end
end
object Help1: TMenuItem
Caption = 'Help'
object HelpIndex1: TMenuItem
Caption = 'Help Index'
end
object N11: TMenuItem
Caption = '-'
end
object AboutRegistryeditordemo1: TMenuItem
Caption = 'About Registry Editor Demo...'
OnClick = AboutRegistryeditordemo1Click
end
end
end
object alMain: TActionList
Left = 80
Top = 144
object acImport: TAction
Category = 'Registry'
Caption = 'Import registryfile...'
end
object acExport: TAction
Category = 'Registry'
Caption = 'Export registryfile...'
end
object acConnectNetwork: TAction
Category = 'Registry'
Caption = 'Connect network drive...'
end
object acDisconnectNetwork: TAction
Category = 'Registry'
Caption = 'Disconnect network drive...'
end
object acPrint: TAction
Category = 'Registry'
Caption = 'Print...'
end
object acExit: TAction
Category = 'Registry'
Caption = 'Exit'
end
object acNewKey: TAction
Category = 'Edit'
Caption = 'Key'
end
object acNewString: TAction
Category = 'Edit'
Caption = 'String Value'
end
object acNewBinary: TAction
Category = 'Edit'
Caption = 'Binary Value'
end
object acNewDWORD: TAction
Category = 'Edit'
Caption = 'DWORD Value'
end
object acDelete: TAction
Category = 'Edit'
Caption = 'Delete'
end
object acRename: TAction
Category = 'Edit'
Caption = 'Rename'
end
object acCopyName: TAction
Category = 'Edit'
Caption = 'Copy Key Name'
end
object acFind: TAction
Category = 'Edit'
Caption = 'Find...'
end
object acFindNext: TAction
Category = 'Edit'
Caption = 'Find Next'
end
object acStatusBar: TAction
Category = 'View'
Caption = 'StatusBar'
end
object acRefresh: TAction
Category = 'View'
Caption = 'Refresh'
end
object acAddFav: TAction
Category = 'Favorites'
Caption = 'Add to Favorites'
end
object acDelFav: TAction
Category = 'Favorites'
Caption = 'Delete Favorite'
end
object acHelp: TAction
Category = 'Help'
Caption = 'Help Index'
end
object acAbout: TAction
Category = 'Help'
Caption = 'About Registry Editor Demo...'
end
end
end