PC World 1999 February/PCWorld_1999-02_cd.bin/temacd/RegView/Regview.exe/0/RCDATA/TREGVIEWFORM/TREGVIEWFORM.txt

Text File | 1998-09-18 | 24.7 KB | 874 lines

object RegViewForm: TRegViewForm
  Left = 213
  Top = 143
  Width = 618
  Height = 491
  VertScrollBar.Range = 88
  AutoScroll = False
  Caption = 'RegView'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  PrintScale = poPrintToFit
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 425
    Width = 610
    Height = 20
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 610
    Height = 1
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object Label3: TLabel
      Left = 10
      Top = 11
      Width = 63
      Height = 13
      Caption = 'Current Root:'
    end
    object ComboKey: TComboBox
      Left = 88
      Top = 7
      Width = 265
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'HKEY_CLASSES_ROOT'
        'HKEY_CURRENT_USER'
        'HKEY_LOCAL_MACHINE'
        'HKEY_USERS'
        'HKEY_CURRENT_CONFIG'
        'HKEY_DYN_DATA')
      TabOrder = 0
      Visible = False
      OnChange = ComboKeyChange
    end
  end
  object PnlList: TPanel
    Left = 294
    Top = 39
    Width = 316
    Height = 386
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 2
    object ListView1: TListView
      Left = 0
      Top = 0
      Width = 312
      Height = 382
      Align = alClient
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Name'
          Width = 120
        end
        item
          Caption = 'Data'
          Width = 150
        end
        item
          Caption = 'Type'
          Width = 60
        end>
      DragCursor = crArrow
      HotTrackStyles = []
      LargeImages = Large
      PopupMenu = PopupMenu2
      SmallImages = Small
      SortType = stText
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = ListView1Click
      OnDblClick = ListView1DblClick
      OnEdited = ListView1Edited
      OnEditing = ListView1Editing
      OnMouseDown = ListView1MouseDown
    end
    object CopyKey: TEdit
      Left = 8
      Top = 344
      Width = 329
      Height = 21
      TabOrder = 1
      Visible = False
    end
  end
  object PnlSplitter: TPanel
    Left = 289
    Top = 39
    Width = 5
    Height = 386
    Cursor = crHSplit
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 3
    OnMouseDown = PnlSplitterMouseDown
    OnMouseMove = PnlSplitterMouseMove
    OnMouseUp = PnlSplitterMouseUp
  end
  object PnlTree: TPanel
    Left = 0
    Top = 39
    Width = 289
    Height = 386
    Align = alLeft
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'PnlTree'
    TabOrder = 4
    object TreeView1: TTreeView
      Left = 0
      Top = 0
      Width = 285
      Height = 382
      Align = alClient
      BorderStyle = bsNone
      DragCursor = crArrow
      Images = Small
      Indent = 19
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnChanging = TreeView1Changing
      OnEdited = TreeView1Edited
      OnEditing = TreeView1Editing
      OnExpanding = TreeView1Expanding
      OnMouseDown = TreeView1MouseDown
    end
  end
  object PnlMask: TPanel
    Left = -10
    Top = 32
    Width = 5
    Height = 432
    Cursor = crHSplit
    BevelOuter = bvNone
    Color = clBtnShadow
    TabOrder = 5
    OnMouseDown = PnlSplitterMouseDown
    OnMouseMove = PnlSplitterMouseMove
    OnMouseUp = PnlSplitterMouseUp
  end
  object Panel1: TPanel
    Left = 0
    Top = 1
    Width = 610
    Height = 38
    Align = alTop
    Alignment = taLeftJustify
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption =
      'RegView RegView RegView RegView RegView RegView RegView RegView ' +
      'RegView RegView RegView RegView RegView RegView RegView RegView ' +
      'RegView RegView RegView RegView RegView RegView RegView'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpFixed
    Font.Style = [fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 6
    object PrintExplorerButton: TSpeedButton
      Left = 322
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Print'
      Caption = 'Print'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        5A010000424D5A01000000000000760000002800000013000000130000000100
        040000000000E4000000120B0000120B00000500000005000000FFFFFF000000
        FF00C0C0C0008080800000000000222222222222222222204104244422222222
        2244422022224444444444444444442024444022222222222222242044444022
        2222222222222420402240222222222221122420402240000000000000000420
        4022344333333333333443204000224444444444444422203443224400000000
        0044222022442224044444444042222022442224000000000042222022242224
        0444444440422220222422240000000000422220222422240440000000422220
        2224222400000000004222202224222444444444444222202224222222222222
        222222202224222222222222222222202222}
      Layout = blGlyphTop
      Margin = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = Print1Click
    end
    object ReplaceExplorerButton: TSpeedButton
      Left = 276
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Refresh'
      Caption = 'Refresh'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000C40E00001000000000000000FFFFFF0000FF
        FF00C0C0C0000020200000000000CBCBCB003232320000800000000006000000
        FF00FF00CB00CB00C000C0003200320000005B00B800B87FFF00222222222222
        2222222200002222222222222222222200002223333333333333322200002223
        0000000000003222000022230000070000003222000022230000770000003222
        0000222300077777000032220000222300007700700032220000222300000700
        7000322200002223007000007000322200002223007007000000322200002223
        0070077000003222000022230007777700003222000022230000077033333222
        0000222300000700344442220000222300000000300422220000222300000000
        3442222200002223333333333222222200002222222222222222222200002222
        22222222222222220000}
      Layout = blGlyphTop
      Margin = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = Refresh1Click
    end
    object S_RExplorerButton: TSpeedButton
      Left = 230
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Search & Replace'
      Caption = 'S && R'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        7E010000424D7E01000000000000760000002800000015000000160000000100
        04000000000008010000CE0E0000C40E00001000000000000000FFFFFF0000FF
        FF000000FF00C0C0C0008080800000008000000000000000E4005B003F000000
        4400F7BF000000000300000072005B007A005B00D1000010A000333333333333
        3333333330003333333333333333333330003366366313161316666310003366
        3663333663366366300033663663666666166166100033666663666666366663
        3000336636631316631663661000333666333336333666633000333333361313
        1313131310003333336563333333333330003333336546131313131310003333
        3365546333333333300033333645552613131313100033333633522263333333
        3000333363300222263333333000333633000066633333333000336330006633
        3333333330003633000633333333333330003630006233333333333330003360
        0623333333333333300033366333333333333333300033333333333333333333
        3000}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = SearchReplace1Click
    end
    object S_DExplorerButton: TSpeedButton
      Left = 184
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Search & Delete'
      Caption = 'S && D'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        72010000424D7201000000000000760000002800000015000000150000000100
        040000000000FC000000CE0E0000C40E00001000000000000000FFFFFF0000FF
        FF000000FF00C0C0C0008080800000008000000000000000E4005B003F000000
        4400F7BF000000000300000072005B007A005B00D1000010A000333333333131
        6131313130003333333333336633336330003333333331313631363130003333
        3333333333666333300033333333313131663131300033333333333336636333
        3000333333336131663136313000333333365636333333633000333333365461
        3131313130003333333655463333333330003333336455526131313130003333
        3363352226333333300033333633002222633333300033336330000666333333
        3000333633000663333333333000336330006333333333333000363300062333
        3333333330003630006233333333333330003360063333333333333330003336
        63333333333333333000333333333333333333333000}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = SearchDelete1Click
    end
    object SearchExplorerButton: TSpeedButton
      Left = 138
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Search'
      Caption = 'Search'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        72010000424D7201000000000000760000002800000015000000150000000100
        040000000000FC000000CE0E0000C40E00001000000000000000FFFFFF0000FF
        FF000000FF00C0C0C0008080800000008000000000000000E4005B003F000000
        4400F7BF000000000300000072005B007A005B00D1000010A000333333333131
        3131313130003333333333333333333330003333333331313131313130003333
        3333333333333333300033333333313131313131300033333333333333333333
        3000333333336131313131313000333333365633333333333000333333365461
        3131313130003333333655463333333330003333336455526131313130003333
        3363352226333333300033333633002222633333300033336330000666333333
        3000333633000663333333333000336330006333333333333000363300062333
        3333333330003630006233333333333330003360063333333333333330003336
        63333333333333333000333333333333333333333000}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = Search1Click
    end
    object RenameExplorerButton: TSpeedButton
      Left = 92
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Rename'
      Caption = 'Rename'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000C40E00001000000000000000FFFFFF00DFFF
        FF0000FFFF000C00FF00DFFFE300000000001E8485006F170100000097008B00
        00008400CB007717A7006F173C0000004E001E431E0000000E00000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000EE0EE000050000333300
        0000EE0EE0000550003333300000EE0EE0000555003303300000EE0EE0555555
        503303300000EEEEE0555555503333000000EE0EE0000555003303300000EE0E
        E00005500033033000000EEE0000050000333300000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = Rename1Click
    end
    object DeleteExplorerButton: TSpeedButton
      Left = 46
      Top = 2
      Width = 46
      Height = 36
      Hint = 'Delete'
      Caption = 'Delete'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000015000000140000000100
        040000000000F0000000CC0E0000CC0E00000600000006000000FFFFFF000000
        FF005757E2007979D700C0C0C000000000004444444444444444444440004444
        4444444444444444400044444444444444414444400044114444444444414444
        4000411114444444441144444000411114444444111444444000441111444441
        1144444440004411114444411144444440004444111444114444444440004444
        4111111444444444400044444411114444444444400044444111111444444444
        4000444441111114444444444000444411144414444444444000411111444441
        1144444440001111144444441114444440001144444444444411444440001144
        4444444444114444400044444444444444444444400044444444444444444444
        4000}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = Delete1Click
    end
    object NewExplorerButton: TSpeedButton
      Left = 0
      Top = 2
      Width = 46
      Height = 36
      Hint = 'New'
      Caption = 'New'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00000500000005000000FFFFFF0000FF
        FF00C0C0C0000020200000000000222222222222222222224004222222222222
        2222222222222223333333333333322222222223111111111111322222232223
        1111111111113222222322231111111111113222222322231111111111113222
        2223222311111111111132222223222311111111111132222223222311111111
        1111322222232223111111111111322222232223111111111111322222232223
        1111111111113222222322231111111133333222222322231111111134444222
        2223222311111111300422222223222311111111344222222223222333333333
        322222222223222222222222222222222223222222222222222222222222}
      Layout = blGlyphTop
      Margin = 1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -2
      OnClick = PopupMenu1Popup
      OnMouseUp = NewExplorerButtonMouseUp
    end
    object lzrw11: Tlzrw1
      Left = 408
      Top = 8
      Width = 161
      Height = 25
      CompressMode = Auto
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      Visible = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 256
    Top = 64
    object File1: TMenuItem
      Caption = '&File'
      object ImportRegistryFiles1: TMenuItem
        Caption = '&Import Registry Files...'
        OnClick = ImportRegistryFiles1Click
      end
      object ExportRegistryFiles1: TMenuItem
        Caption = '&Export Registry Files...'
        OnClick = ExportRegistryFiles1Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object ImportRegViewRegistryFiles1: TMenuItem
        Caption = '&Restore RegView Registry Files...'
        OnClick = ImportRegistryFiles1Click
      end
      object RedoRegViewRegistryFiles1: TMenuItem
        Caption = 'Re&do RegView Registry Files...'
        OnClick = ImportRegistryFiles1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print &Setup'
        OnClick = PrintSetup1Click
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 16464
        OnClick = Print1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Modify1: TMenuItem
        Caption = '&Modify'
        Visible = False
        OnClick = ListView1DblClick
      end
      object Bar1: TMenuItem
        Caption = '-'
        Visible = False
      end
      object New1: TMenuItem
        Caption = '&New'
        object Key1: TMenuItem
          Caption = '&Key'
          OnClick = Key1Click
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object StringValue1: TMenuItem
          Caption = '&String Value'
          OnClick = StringValue1Click
        end
        object BinaryValue1: TMenuItem
          Caption = '&Binary Value'
          OnClick = BinaryValue1Click
        end
        object DWORDValue1: TMenuItem
          Caption = '&DWORD Value'
          OnClick = DWORDValue1Click
        end
      end
      object Bar2: TMenuItem
        Caption = '-'
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        Enabled = False
        ShortCut = 46
        OnClick = Delete1Click
      end
      object Rename1: TMenuItem
        Caption = '&Rename'
        Enabled = False
        OnClick = Rename1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object CopyKeyName1: TMenuItem
        Caption = '&Copy Key Name'
        OnClick = CopyKeyName1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Search1: TMenuItem
        Caption = '&Search'
        OnClick = Search1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object SearchDelete1: TMenuItem
        Caption = 'Search && D&elete'
        OnClick = SearchDelete1Click
      end
      object SearchReplace1: TMenuItem
        Caption = 'Search && Re&place'
        OnClick = SearchReplace1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object LargeIcon1: TMenuItem
        Caption = 'Lar&ge Icon'
        GroupIndex = 1
        RadioItem = True
        OnClick = LargeIcon1Click
      end
      object SmallIcon1: TMenuItem
        Caption = 'S&mall Icon'
        GroupIndex = 1
        RadioItem = True
        OnClick = SmallIcon1Click
      end
      object List1: TMenuItem
        Caption = '&List'
        GroupIndex = 1
        RadioItem = True
        OnClick = List1Click
      end
      object Detail1: TMenuItem
        Caption = '&Detail'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        OnClick = Detail1Click
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object StatusBar2: TMenuItem
        Caption = 'Status &Bar'
        Checked = True
        GroupIndex = 2
        OnClick = StatusBar2Click
      end
      object ToolBar1: TMenuItem
        Caption = '&Tool Bar'
        Checked = True
        GroupIndex = 2
        OnClick = ToolBar1Click
      end
      object N7: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object Split1: TMenuItem
        Caption = 'S&plit'
        GroupIndex = 2
        OnClick = Split1Click
      end
      object N12: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object Refresh1: TMenuItem
        Caption = '&Refresh'
        GroupIndex = 2
        ShortCut = 116
        OnClick = Refresh1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      OnClick = Tools1Click
      object RecordCurrentRegistry1: TMenuItem
        Caption = '&Record Current Registry'
        OnClick = RecordCurrentRegistry1Click
      end
      object ComparewithLastRecordedRegistry1: TMenuItem
        Caption = '&Compare to Last Recorded Registry'
        OnClick = ComparewithLastRecordedRegistry1Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Recordwininisystemini1: TMenuItem
        Caption = 'Record &INI Files'
        OnClick = Recordwininisystemini1Click
      end
      object ComparetoLastRecordedIni1: TMenuItem
        Caption = 'Compare to &Last Recorded  INI Files'
        OnClick = ComparetoLastRecordedIni1Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object RecordDIRsFILEs1: TMenuItem
        Caption = 'Record &DIRs && FILEs'
        OnClick = RecordDIRsFILEs1Click
      end
      object ComparetoLastRecordedDIRsFILEs1: TMenuItem
        Caption = 'Compare to Last Recorded DIRs && &FILEs'
        OnClick = ComparetoLastRecordedDIRsFILEs1Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object RecordAll1: TMenuItem
        Caption = 'Quick Record &All'
        OnClick = RecordAll1Click
      end
      object CompareRestoreAll1: TMenuItem
        Caption = 'Quick Compare && R&estore All'
        OnClick = CompareRestoreAll1Click
      end
    end
    object Register1: TMenuItem
      Caption = '&Register'
      Visible = False
      OnClick = Register1Click
    end
    object about1: TMenuItem
      Caption = '&About'
      OnClick = about1Click
    end
  end
  object Large: TImageList
    Height = 32
    Width = 32
    Left = 256
    Top = 328
  end
  object Small: TImageList
    Left = 288
    Top = 328
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 178
    Top = 75
    object Expand1: TMenuItem
      Caption = '&Expand'
      OnClick = Expand1Click
    end
    object New2: TMenuItem
      Caption = '&New'
      object Key2: TMenuItem
        Caption = '&Key'
        OnClick = Key1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object StringValue2: TMenuItem
        Caption = '&String Value'
        OnClick = StringValue1Click
      end
      object BinaryValue3: TMenuItem
        Caption = '&Binary Value'
        OnClick = BinaryValue1Click
      end
      object DWORDValue2: TMenuItem
        Caption = '&DWORD Value'
        OnClick = DWORDValue1Click
      end
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Delete2: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Rename2: TMenuItem
      Caption = '&Rename'
      OnClick = Rename1Click
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object CopyKeyName2: TMenuItem
      Caption = 'Co&py Key Name'
      OnClick = CopyKeyName1Click
    end
  end
  object PopupMenu2: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu2Popup
    Left = 178
    Top = 123
    object Modify2: TMenuItem
      Caption = '&Modify'
      OnClick = ListView1DblClick
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object Delete3: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Rename3: TMenuItem
      Caption = '&Rename'
      OnClick = Rename1Click
    end
    object New3: TMenuItem
      Caption = '&New'
      Visible = False
      object Key3: TMenuItem
        Caption = '&Key'
        OnClick = Key1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object StringValue3: TMenuItem
        Caption = '&String Value'
        OnClick = StringValue1Click
      end
      object BinaryValue4: TMenuItem
        Caption = '&Binary Value'
        OnClick = BinaryValue1Click
      end
      object DWORDValue3: TMenuItem
        Caption = '&DWORD Value'
        OnClick = DWORDValue1Click
      end
    end
  end
  object PopupMenu3: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 138
    Top = 123
    object MenuItem4: TMenuItem
      Caption = '&Key'
      OnClick = Key1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object MenuItem6: TMenuItem
      Caption = '&String Value'
      OnClick = StringValue1Click
    end
    object BinaryValue2: TMenuItem
      Caption = '&Binary Value'
      OnClick = BinaryValue1Click
    end
    object MenuItem7: TMenuItem
      Caption = '&DWORD Value'
      OnClick = DWORDValue1Click
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 90
    Top = 99
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 210
    Top = 235
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Registry Files(*.reg)|*.reg|All Files(*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Import Registry Files'
    Left = 42
    Top = 203
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'reg'
    Filter = 'Registry Files(*.reg)|*.reg|All Files(*.*)|*.*'
    Title = 'Export Registry Files'
    Left = 104
    Top = 208
  end
end