home *** CD-ROM | disk | FTP | other *** search
- object SearchForm: TSearchForm
- Tag = 5
- Left = 352
- Top = 87
- Width = 800
- Height = 743
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- Caption = 'Search'
- Color = clBtnFace
- DragKind = dkDock
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poDefault
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnEndDock = FormEndDock
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object SplitterSearch: TSplitter
- Left = 185
- Top = 0
- Width = 3
- Height = 656
- Cursor = crHSplit
- Beveled = True
- MinSize = 10
- ResizeStyle = rsUpdate
- OnMoved = SplitterSearchMoved
- end
- object PanelSearch: TPanel
- Left = 0
- Top = 0
- Width = 185
- Height = 656
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object ButtonCancel: TButton
- Left = 88
- Top = 344
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'ButtonCancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = ButtonCancelClick
- end
- object PanelSearchOptions: TPanel
- Left = 0
- Top = 65
- Width = 185
- Height = 200
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 185
- 200)
- object LabelSearchFor: TLabel
- Left = 8
- Top = 0
- Width = 86
- Height = 13
- Caption = 'Text to search for:'
- end
- object Label4: TLabel
- Left = 8
- Top = 48
- Width = 48
- Height = 13
- Caption = 'Search in:'
- end
- object ButtonBrowse: TSpeedButton
- Left = 154
- Top = 86
- Width = 23
- Height = 17
- Anchors = [akTop, akRight]
- Caption = '..'
- OnClick = ButtonBrowseClick
- OnMouseDown = ButtonBrowseMouseDown
- end
- object ComboBoxSearchText: TComboBox
- Left = 8
- Top = 16
- Width = 170
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- TabOrder = 0
- OnChange = ComboBoxSearchTextChange
- OnDropDown = ComboBoxSearchTextDropDown
- OnExit = ComboBoxSearchTextExit
- OnKeyDown = ComboBoxSearchTextKeyDown
- OnKeyPress = ComboBoxSearchTextKeyPress
- end
- object ComboBoxKey: TComboBox
- Left = 8
- Top = 64
- Width = 170
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnKeyDown = ComboBoxKeyKeyDown
- end
- object CheckBoxSearchKeys: TCheckBox
- Left = 8
- Top = 98
- Width = 89
- Height = 17
- Caption = 'Key names'
- Checked = True
- PopupMenu = PopupMenuSearchToolbar
- State = cbChecked
- TabOrder = 2
- end
- object CheckBoxSearchValues: TCheckBox
- Left = 8
- Top = 114
- Width = 97
- Height = 17
- Caption = 'Value names'
- Checked = True
- PopupMenu = PopupMenuSearchToolbar
- State = cbChecked
- TabOrder = 3
- end
- object CheckBoxSearchData: TCheckBox
- Left = 8
- Top = 130
- Width = 65
- Height = 18
- Caption = 'Data'
- Checked = True
- PopupMenu = PopupMenuSearchToolbar
- State = cbChecked
- TabOrder = 4
- end
- object CheckBoxCaseSensitive: TCheckBox
- Left = 8
- Top = 154
- Width = 113
- Height = 17
- Caption = 'Case sensitive'
- TabOrder = 5
- end
- object CheckBoxExpand: TCheckBox
- Left = 8
- Top = 170
- Width = 159
- Height = 17
- Caption = 'Expand environment strings'
- TabOrder = 6
- end
- end
- object PanelSearchType: TPanel
- Left = 0
- Top = 0
- Width = 185
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- DesignSize = (
- 185
- 65)
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 74
- Height = 13
- Caption = 'Type of search:'
- end
- object ComboBoxSearchType: TComboBox
- Left = 8
- Top = 32
- Width = 170
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'Simple text search'
- OnChange = ComboBoxSearchTypeChange
- Items.Strings = (
- 'Simple text search'
- 'Regular expression search'
- 'Binary data search')
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 265
- Width = 185
- Height = 200
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- object Label5: TLabel
- Left = 8
- Top = 76
- Width = 67
- Height = 13
- Caption = 'data matches:'
- end
- object Label3: TLabel
- Left = 8
- Top = 60
- Width = 101
- Height = 13
- Alignment = taRightJustify
- Caption = 'value name matches:'
- end
- object Label6: TLabel
- Left = 8
- Top = 44
- Width = 97
- Height = 13
- Alignment = taRightJustify
- Caption = 'key names matches:'
- end
- object Label12: TLabel
- Left = 8
- Top = 20
- Width = 73
- Height = 13
- Caption = 'Keys searched:'
- end
- object LabelKeysSearched: TLabel
- Left = 132
- Top = 20
- Width = 6
- Height = 13
- BiDiMode = bdLeftToRight
- Caption = '0'
- ParentBiDiMode = False
- end
- object LabelKeysFound: TLabel
- Left = 132
- Top = 44
- Width = 30
- Height = 13
- AutoSize = False
- Caption = '0'
- end
- object LabelValuesFound: TLabel
- Left = 132
- Top = 60
- Width = 33
- Height = 13
- AutoSize = False
- Caption = '0'
- end
- object LabelDataFound: TLabel
- Left = 132
- Top = 76
- Width = 25
- Height = 18
- AutoSize = False
- Caption = '0'
- DragKind = dkDock
- end
- end
- end
- object panelResults: TPanel
- Left = 188
- Top = 0
- Width = 604
- Height = 656
- Align = alClient
- AutoSize = True
- BevelOuter = bvNone
- BorderWidth = 3
- TabOrder = 1
- object ListViewSearch: TListView
- Left = 3
- Top = 3
- Width = 598
- Height = 650
- Align = alClient
- Columns = <
- item
- Caption = 'Machine'
- Width = 80
- end
- item
- Caption = 'Key'
- Width = 314
- end
- item
- Caption = 'Value'
- Width = 100
- end
- item
- Caption = 'Data'
- Width = 100
- end>
- FullDrag = True
- GridLines = True
- HideSelection = False
- HotTrackStyles = [htHandPoint, htUnderlineHot]
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = PopupMenuSearch
- SmallImages = MainForm.listSmall
- TabOrder = 0
- ViewStyle = vsReport
- OnColumnClick = ListViewSearchColumnClick
- OnCompare = ListViewSearchCompare
- OnDblClick = ListViewSearchDblClick
- OnKeyDown = ListViewSearchKeyDown
- OnSelectItem = ListViewSearchSelectItem
- end
- end
- object CoolbarSearch: TCoolBar
- Left = 0
- Top = 656
- Width = 792
- Height = 34
- Align = alBottom
- AutoSize = True
- BandBorderStyle = bsNone
- Bands = <
- item
- Break = False
- Control = ToolBarSearch
- ImageIndex = -1
- MinHeight = 30
- Width = 788
- end>
- object ToolBarSearch: TToolBar
- Tag = 2
- Left = 9
- Top = 0
- Width = 775
- Height = 30
- Align = alNone
- ButtonHeight = 30
- ButtonWidth = 31
- Caption = 'ToolBarButtons'
- DisabledImages = MainForm.ImageListToolbarDisabled
- EdgeBorders = []
- EdgeInner = esNone
- EdgeOuter = esNone
- Flat = True
- HotImages = MainForm.ImageListSaturated
- Images = MainForm.ImageListToolbar
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Transparent = True
- Wrapable = False
- object ButtonSearch: TToolButton
- Left = 0
- Top = 0
- Hint = 'Search'
- Caption = 'ButtonSearch'
- ImageIndex = 10
- OnClick = ButtonSearchClick
- end
- object ButtonPause: TToolButton
- Left = 31
- Top = 0
- Hint = 'Pause'
- Caption = 'ButtonPause'
- Enabled = False
- ImageIndex = 27
- OnClick = ButtonPauseClick
- end
- object ButtonStop: TToolButton
- Left = 62
- Top = 0
- Hint = 'Stop'
- Caption = 'ButtonStop'
- Enabled = False
- ImageIndex = 32
- OnClick = ButtonStopClick
- end
- object ToolButton3: TToolButton
- Left = 93
- Top = 0
- Width = 8
- Caption = 'ToolButton3'
- ImageIndex = 19
- Style = tbsSeparator
- end
- object ButtonJumpTo: TToolButton
- Left = 101
- Top = 0
- Hint = 'Jump to'
- Caption = '&Jump To'
- Enabled = False
- ImageIndex = 25
- OnClick = ButtonJumpToClick
- end
- object ButtonReplace: TToolButton
- Left = 132
- Top = 0
- Hint = 'Replace'
- Caption = 'ButtonReplace'
- Enabled = False
- ImageIndex = 7
- OnClick = ButtonReplaceClick
- end
- object ButtonDelete: TToolButton
- Left = 163
- Top = 0
- Hint = 'Delete'
- Caption = 'ButtonDelete'
- DropdownMenu = mmSearchRemoveItems
- Enabled = False
- ImageIndex = 6
- Style = tbsDropDown
- OnClick = ButtonDeleteClick
- end
- object ToolButton21: TToolButton
- Left = 207
- Top = 0
- Width = 8
- Caption = 'ToolButton21'
- ImageIndex = 15
- Style = tbsSeparator
- end
- object ButtonBookmark: TToolButton
- Left = 215
- Top = 0
- Hint = 'Bookmark'
- Caption = 'ButtonBookmark'
- Enabled = False
- ImageIndex = 11
- OnClick = ButtonBookmarkClick
- end
- object ButtonProperties: TToolButton
- Left = 246
- Top = 0
- Hint = 'Properties'
- Caption = 'ButtonProperties'
- Enabled = False
- ImageIndex = 8
- OnClick = ButtonPropertiesClick
- end
- object ToolButton13: TToolButton
- Left = 277
- Top = 0
- Width = 8
- Caption = 'ToolButton13'
- ImageIndex = 8
- Style = tbsSeparator
- end
- object ButtonExport: TToolButton
- Left = 285
- Top = 0
- Hint = 'Export results'
- Caption = 'ButtonExport'
- Enabled = False
- ImageIndex = 24
- OnClick = ButtonExportClick
- end
- object ButtonExportSep: TToolButton
- Left = 316
- Top = 0
- Width = 8
- Caption = 'ButtonExportSep'
- ImageIndex = 15
- Style = tbsSeparator
- end
- object ButtonStayOnTop: TToolButton
- Left = 324
- Top = 0
- Hint = 'Stay on top'
- Caption = 'ButtonStayOnTop'
- ImageIndex = 16
- Style = tbsCheck
- OnClick = ButtonStayOnTopClick
- end
- object ButtonRemote: TToolButton
- Left = 355
- Top = 0
- Hint = 'Search a remote computer'
- Caption = 'ButtonRemote'
- ImageIndex = 19
- Visible = False
- OnClick = ButtonRemoteClick
- end
- object ToolButton2: TToolButton
- Left = 386
- Top = 0
- Width = 8
- Caption = 'ToolButton2'
- ImageIndex = 18
- Style = tbsSeparator
- end
- object ButtonHelp: TToolButton
- Left = 394
- Top = 0
- Hint = 'Help'
- Caption = 'ActionHelp'
- ImageIndex = 17
- OnClick = ButtonHelpClick
- end
- end
- end
- object PanelStatus: TPanel
- Left = 0
- Top = 690
- Width = 792
- Height = 19
- Align = alBottom
- AutoSize = True
- BevelOuter = bvNone
- TabOrder = 3
- object StatusBarSearch: TStatusBar
- Left = 0
- Top = 0
- Width = 792
- Height = 19
- Panels = <>
- SimplePanel = True
- SimpleText = 'Status: Ready'
- end
- end
- object SaveDialogSearch: TSaveDialog
- DefaultExt = '.txt'
- FileName = '*.reg'
- Filter = 'Registry Files (*.reg) | *.reg'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
- Title = 'Save search results to a reg file'
- Left = 240
- Top = 136
- end
- object PopupMenuSearch: TPopupMenu
- Images = MainForm.ImageListMenu
- MenuAnimation = [maLeftToRight]
- OnPopup = PopupMenuSearchPopup
- Left = 368
- Top = 64
- object popupJumpTo: TMenuItem
- Caption = '&Jump To'
- ImageIndex = 23
- OnClick = popupJumpToClick
- end
- object popupBookmark: TMenuItem
- Caption = '&Bookmark'
- ImageIndex = 6
- OnClick = popupBookmarkClick
- end
- object popupRemove: TMenuItem
- Caption = 'R&emove from Search Results'
- ImageIndex = 3
- OnClick = popupRemoveClick
- end
- object popupDelete: TMenuItem
- Caption = '&Delete selected registry keys and values'
- ImageIndex = 3
- OnClick = popupDeleteClick
- end
- object popupReplace: TMenuItem
- Caption = '&Replace'
- ImageIndex = 34
- OnClick = popupReplaceClick
- end
- end
- object PopupMenuSearchToolbar: TPopupMenu
- OnPopup = PopupMenuSearchToolbarPopup
- Left = 240
- Top = 61
- object mmSearchToolbarAtBottom: TMenuItem
- Caption = 'Toolbar at bottom'
- OnClick = mmSearchToolbarAtBottomClick
- end
- end
- object ActionListSearch: TActionList
- Left = 370
- Top = 137
- object ActionHelp: TAction
- Caption = 'ActionHelp'
- ShortCut = 112
- OnExecute = ActionHelpExecute
- end
- object ActionSelectAll: TAction
- Caption = 'ActionSelectAll'
- ShortCut = 16449
- OnExecute = ActionSelectAllExecute
- end
- end
- object RspRegSearch: TRspReg
- OnChangeKey = RspRegSearchChangeKey
- OnSearchCompleted = RspRegSearchSearchCompleted
- OnFoundKey = RspRegSearchFoundKey
- OnFoundData = RspRegSearchFoundData
- OnFoundValue = RspRegSearchFoundValue
- Key = 2147483647
- RootKey = 2147483647
- RootKeyIndex = rkHKEY_NONE
- AbbreviatedRootKeys = False
- SearchCaseSensitive = False
- SearchPriority = tpLower
- SearchKeys = False
- SearchValues = False
- SearchData = False
- SearchType = stText
- SearchExpandEnvironment = False
- Left = 376
- Top = 208
- end
- object mmSearchRemoveItems: TPopupMenu
- Left = 242
- Top = 210
- object mmSearchRemoveEntries: TMenuItem
- Caption = '&Remove entries from list'
- OnClick = mmSearchRemoveEntriesClick
- end
- object mmSearchDelete: TMenuItem
- Caption = 'Delete selected keys and values'
- OnClick = mmSearchDeleteClick
- end
- end
- end
-