Chip 2002 July/07_02.iso/test/resplendentregistrar/rrtri.exe/RR.EXE/0/RCDATA/TMONITORFORM/TMONITORFORM.txt

Text File | 2002-02-20 | 8.5 KB | 365 lines

object MonitorForm: TMonitorForm
  Tag = 11
  Left = 419
  Top = 403
  Width = 600
  Height = 400
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Registry Activity Monitor'
  Color = clBtnFace
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefault
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CoolbarMonitor: TCoolBar
    Left = 0
    Top = 0
    Width = 592
    Height = 58
    AutoSize = True
    Bands = <
      item
        Control = PanelMonitorOptions
        ImageIndex = -1
        MinHeight = 26
        Width = 592
      end
      item
        Control = ToolBarSearch
        ImageIndex = -1
        MinHeight = 30
        Width = 592
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    OnMouseUp = CoolbarMonitorMouseUp
    object PanelMonitorOptions: TPanel
      Left = 9
      Top = 0
      Width = 579
      Height = 26
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = '  Last available backup:'
      TabOrder = 0
      object LabelLastBackup: TLabel
        Left = 147
        Top = 5
        Width = 83
        Height = 13
        Caption = 'LabelLastBackup'
      end
      object CheckBoxMonitorWrite: TCheckBox
        Left = 278
        Top = 4
        Width = 147
        Height = 17
        Caption = '&Log registry &changes'
        TabOrder = 0
        OnClick = CheckBoxMonitorReadClick
      end
      object CheckBoxMonitorRead: TCheckBox
        Left = 426
        Top = 4
        Width = 147
        Height = 17
        Caption = 'Log &read activities also'
        TabOrder = 1
        Visible = False
        OnClick = CheckBoxMonitorReadClick
      end
    end
    object ToolBarSearch: TToolBar
      Tag = 2
      Left = 9
      Top = 28
      Width = 579
      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 = 1
      Transparent = True
      Wrapable = False
      object ButtonStart: TToolButton
        Left = 0
        Top = 0
        Hint = 'Start monitor'
        Caption = '&Jump To'
        ImageIndex = 26
        OnClick = ButtonStartClick
      end
      object ButtonStop: TToolButton
        Left = 31
        Top = 0
        Hint = 'Stop monitor'
        Caption = 'ButtonBookmark'
        Enabled = False
        ImageIndex = 28
        OnClick = ButtonStopClick
      end
      object ToolButton21: TToolButton
        Left = 62
        Top = 0
        Width = 8
        Caption = 'ToolButton21'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object ButtonJumpTo: TToolButton
        Left = 70
        Top = 0
        Hint = 'Jump To'
        Caption = 'ButtonJumpTo'
        Enabled = False
        ImageIndex = 25
        OnClick = ButtonJumpToClick
      end
      object ButtonRemove: TToolButton
        Left = 101
        Top = 0
        Hint = 'Remove from list'
        Caption = 'ButtonRemove'
        ImageIndex = 6
        OnClick = ButtonRemoveClick
      end
      object ButtonProperties: TToolButton
        Left = 132
        Top = 0
        Hint = 'Properties'
        Caption = 'ButtonProperties'
        ImageIndex = 8
        OnClick = ButtonPropertiesClick
      end
      object ToolButton13: TToolButton
        Left = 163
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ButtonSave: TToolButton
        Left = 171
        Top = 0
        Hint = 'Export results'
        Caption = 'ButtonSave'
        DropdownMenu = PopupMenuSave
        ImageIndex = 24
        Style = tbsDropDown
      end
      object ToolButton3: TToolButton
        Left = 215
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object ButtonBackup: TToolButton
        Left = 223
        Top = 0
        Hint = 'Backup registry'
        Caption = 'ButtonBackup'
        ImageIndex = 13
        OnClick = ButtonBackupClick
      end
      object ToolButton23: TToolButton
        Left = 254
        Top = 0
        Width = 8
        Caption = 'ToolButton23'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object ButtonRestore: TToolButton
        Left = 262
        Top = 0
        Caption = 'ButtonRestore'
        ImageIndex = 12
        Visible = False
        OnClick = ButtonRestoreClick
      end
      object ToolButton2: TToolButton
        Left = 293
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 18
        Style = tbsSeparator
        Visible = False
      end
      object ButtonStayOnTop: TToolButton
        Left = 301
        Top = 0
        Hint = 'Stay on top'
        Caption = 'ButtonStayOnTop'
        ImageIndex = 16
        Style = tbsCheck
        OnClick = ButtonStayOnTopClick
      end
      object ToolButton1: TToolButton
        Left = 332
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 18
        Style = tbsSeparator
      end
      object ButtonHelp: TToolButton
        Left = 340
        Top = 0
        Hint = 'Help'
        Caption = 'ActionHelp'
        ImageIndex = 17
        OnClick = ButtonHelpClick
      end
    end
  end
  object PanelMain: TPanel
    Left = 0
    Top = 58
    Width = 592
    Height = 308
    Align = alClient
    BorderWidth = 3
    TabOrder = 1
    object ListViewMonitor: TListView
      Left = 4
      Top = 4
      Width = 584
      Height = 300
      Align = alClient
      Columns = <
        item
          Caption = 'Time'
          Width = 60
        end
        item
          Caption = 'Process'
          Width = 100
        end
        item
          Caption = 'Action'
          Width = 100
        end
        item
          Caption = 'Registry key'
          Width = 200
        end
        item
          Caption = 'Value'
          Width = 100
        end
        item
          Caption = 'Status'
          Width = 70
        end
        item
          Caption = 'Data'
          Width = 200
        end>
      FullDrag = True
      HideSelection = False
      HotTrackStyles = [htHandPoint, htUnderlineHot]
      MultiSelect = True
      RowSelect = True
      PopupMenu = PopupMenuMonitor
      SmallImages = MainForm.listSmall
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = ListViewMonitorColumnClick
      OnCompare = ListViewMonitorCompare
      OnDblClick = ListViewMonitorDblClick
      OnKeyDown = ListViewMonitorKeyDown
      OnSelectItem = ListViewMonitorSelectItem
    end
  end
  object PopupMenuMonitor: TPopupMenu
    Images = MainForm.ImageListMenu
    Left = 46
    Top = 144
    object mmJumpTo: TMenuItem
      Caption = '&Jump to'
      ImageIndex = 23
      OnClick = mmJumpToClick
    end
    object mmRemove: TMenuItem
      Caption = '&Remove'
      ImageIndex = 3
      OnClick = mmRemoveClick
    end
    object mmProperties: TMenuItem
      Caption = '&Properties'
      ImageIndex = 4
      OnClick = mmPropertiesClick
    end
  end
  object SaveDialogMonitor: TSaveDialog
    DefaultExt = '.txt'
    FileName = 'monitor.txt'
    Filter = 'Text files (*.txt) | *.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save monitor activity entries to a file'
    Left = 127
    Top = 122
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 136
    Top = 256
  end
  object regMonitor: TRspReg
    Key = 2147483647
    RootKey = 2147483647
    RootKeyIndex = rkHKEY_NONE
    AbbreviatedRootKeys = False
    SearchCaseSensitive = False
    SearchPriority = tpNormal
    SearchKeys = False
    SearchValues = False
    SearchData = False
    SearchType = stText
    SearchExpandEnvironment = False
    Left = 275
    Top = 142
  end
  object PopupMenuSave: TPopupMenu
    Left = 144
    Top = 198
    object popupMonitorSaveToRegFile: TMenuItem
      Caption = 'Save to .reg file'
      OnClick = popupMonitorSaveToRegFileClick
    end
    object popupMonitorSaveToList: TMenuItem
      Caption = 'Save to list'
      OnClick = popupMonitorSaveToListClick
    end
  end
end