Komputer for Alle 2002 #10/K-CD-10-2002.ISO/Tools/Registry/BackupKey.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 2001-03-24 | 7.6 KB | 341 lines

object frmMain: TfrmMain
  Left = 254
  Top = 189
  AutoScroll = False
  Caption = 'frmMain'
  ClientHeight = 248
  ClientWidth = 363
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbItems: TmVirtualListBox
    Left = 12
    Top = 43
    Width = 317
    Height = 174
    ItemCount = 0
    ItemHeight = 40
    TabOrder = 0
    DoubleBuffered = False
    OnClick = lbItemsClick
    OnDblClick = lbItemsDblClick
    OnMouseDown = lbItemsMouseDown
    OnDrawItem = lbItemsDrawItem
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 229
    Width = 363
    Height = 19
    Panels = <
      item
        Bevel = pbNone
        Text = 'Freeware from Moon Software - visit http://www.moonsoftware.com'
        Width = 2000
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 363
    Height = 24
    AutoSize = True
    Caption = 'ToolBar'
    Flat = True
    Images = ilActions
    Indent = 1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Wrapable = False
    object tbAdd: TToolButton
      Left = 1
      Top = 0
      Action = actItemAdd
    end
    object tbEdit: TToolButton
      Left = 24
      Top = 0
      Action = actItemEdit
    end
    object tbRemove: TToolButton
      Left = 47
      Top = 0
      Action = actItemRemove
    end
    object ToolButton1: TToolButton
      Left = 70
      Top = 0
      Width = 4
      Caption = 'ToolButton1'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tbSave: TToolButton
      Left = 74
      Top = 0
      Action = actFileSave
    end
    object ToolButton2: TToolButton
      Left = 97
      Top = 0
      Width = 4
      Caption = 'ToolButton2'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tbBackup: TToolButton
      Left = 101
      Top = 0
      Action = actBackupSelected
    end
    object tbBackupAll: TToolButton
      Left = 124
      Top = 0
      Action = actBackupAll
    end
    object ToolButton3: TToolButton
      Left = 147
      Top = 0
      Width = 4
      Caption = 'ToolButton3'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tbMoveUp: TToolButton
      Left = 151
      Top = 0
      Action = actItemMoveUp
    end
    object tbMoveDown: TToolButton
      Left = 174
      Top = 0
      Action = actItemMoveDown
    end
    object ToolButton6: TToolButton
      Left = 197
      Top = 0
      Width = 4
      Caption = 'ToolButton6'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object tbRegEdit: TToolButton
      Left = 201
      Top = 0
      Action = actFileRunRegEdit
    end
    object ToolButton4: TToolButton
      Left = 224
      Top = 0
      Width = 4
      Caption = 'ToolButton4'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tbHomepage: TToolButton
      Left = 228
      Top = 0
      Action = actHelpHomepage
      ImageIndex = 9
    end
  end
  object mnuMain: TMainMenu
    Left = 123
    Top = 91
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuFileSave: TMenuItem
        Action = actFileSave
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object actFileRunRegEdit1: TMenuItem
        Action = actFileRunRegEdit
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mnuFileClose: TMenuItem
        Action = actFileExit
      end
    end
    object mnuItem: TMenuItem
      Caption = '&Item'
      object mnuItemAdd: TMenuItem
        Action = actItemAdd
      end
      object mnuItemEdit: TMenuItem
        Action = actItemEdit
      end
      object mnuItemRemove: TMenuItem
        Action = actItemRemove
      end
      object mnuItemRemoveAll: TMenuItem
        Action = actItemRemoveAll
        Visible = False
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuItemMoveUp: TMenuItem
        Action = actItemMoveUp
      end
      object mnuItemMoveDown: TMenuItem
        Action = actItemMoveDown
      end
    end
    object mnuBackup: TMenuItem
      Caption = '&Backup'
      object mnuBackupSelected: TMenuItem
        Action = actBackupSelected
      end
      object mnuBackupAll: TMenuItem
        Action = actBackupAll
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuHelpContents: TMenuItem
        Caption = 'Co&ntents...'
        OnClick = mnuHelpContentsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuHelpInternet: TMenuItem
        Action = actHelpHomepage
      end
      object mnuHelpCheckUpdate: TMenuItem
        Caption = 'Check for Update'
        OnClick = mnuHelpCheckUpdateClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuHelpAbout: TMenuItem
        Action = actHelpAbout
      end
    end
  end
  object ilActions: TImageList
    Left = 44
    Top = 145
  end
  object alActions: TActionList
    Images = ilActions
    Left = 45
    Top = 88
    object actFileExit: TAction
      Category = 'File'
      Caption = 'Close &Program'
      Hint = 'Close Program'
      OnExecute = actFileExitExecute
    end
    object actFileSave: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save'
      ImageIndex = 3
      ShortCut = 16467
      OnExecute = actFileSaveExecute
    end
    object actItemAdd: TAction
      Category = 'Item'
      Caption = 'A&dd'
      Hint = 'Add'
      ImageIndex = 0
      ShortCut = 45
      OnExecute = actItemAddExecute
    end
    object actItemEdit: TAction
      Category = 'Item'
      Caption = '&Edit'
      Hint = 'Edit'
      ImageIndex = 1
      ShortCut = 13
      OnExecute = actItemEditExecute
    end
    object actItemRemove: TAction
      Category = 'Item'
      Caption = 'Re&move'
      Hint = 'Remove'
      ImageIndex = 2
      ShortCut = 46
      OnExecute = actItemRemoveExecute
    end
    object actItemRemoveAll: TAction
      Category = 'Item'
      Caption = 'Remove &All'
    end
    object actItemMoveUp: TAction
      Category = 'Item'
      Caption = 'Move &Up'
      Hint = 'Move Up'
      ImageIndex = 6
      ShortCut = 16422
      OnExecute = actItemMoveUpExecute
    end
    object actItemMoveDown: TAction
      Category = 'Item'
      Caption = 'Move &Down'
      Hint = 'Move Down'
      ImageIndex = 7
      ShortCut = 16424
      OnExecute = actItemMoveDownExecute
    end
    object actBackupSelected: TAction
      Category = 'Backup'
      Caption = 'Backup &Selected'
      Hint = 'Backup Selected'
      ImageIndex = 4
      ShortCut = 16450
      OnExecute = actBackupSelectedExecute
    end
    object actBackupAll: TAction
      Category = 'Backup'
      Caption = 'Backup &All'
      Hint = 'Backup All'
      ImageIndex = 5
      ShortCut = 49218
      OnExecute = actBackupAllExecute
    end
    object actHelpContents: TAction
      Category = 'Help'
      Caption = 'Co&ntents...'
    end
    object actHelpAbout: TAction
      Category = 'Help'
      Caption = 'A&bout...'
      OnExecute = actHelpAboutExecute
    end
    object actHelpHomepage: TAction
      Category = 'Help'
      Caption = 'Get &More Stuff!'
      Hint = 'Get More Stuff!'
      ImageIndex = 8
      OnExecute = actHelpHomepageExecute
    end
    object actFileRunRegEdit: TAction
      Category = 'File'
      Caption = 'Run &Registry Editor'
      Hint = 'Registry Editor'
      ImageIndex = 8
      OnExecute = actFileRunRegEditExecute
    end
  end
end