umain.dfm

自己写的一个 RSS 阅读器

      object Delete1: TMenuItem
        Action = actDeleteChannel
      end
      object Showerror1: TMenuItem
        Action = actShowError
      end
    end
    object N10: TMenuItem
      Caption = '&View'
      object PreviewUnread1: TMenuItem
        Action = actPreUnread
      end
      object NextUnread1: TMenuItem
        Action = actNextUnread
      end
      object Preview1: TMenuItem
        Action = actPreview
      end
      object Next1: TMenuItem
        Action = actNext
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Deleteitems1: TMenuItem
        Action = actDeleteItem
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Action = actSelectAll
      end
    end
    object N2: TMenuItem
      Caption = '&Option'
      object Option1: TMenuItem
        Action = actOption
      end
    end
    object N3: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Action = actAbout
      end
    end
  end
  object ActionListBrowser: TActionList
    Images = ImageMain
    Left = 520
    Top = 243
    object actBack: TAction
      Category = 'Browser'
      Caption = 'Back'
      ImageIndex = 6
      OnExecute = actBackEecute
      OnUpdate = actBackUpdate
    end
    object actForward: TAction
      Category = 'Browser'
      Caption = 'Forward'
      ImageIndex = 7
      OnExecute = actForwardExecute
      OnUpdate = actForwardUpdate
    end
    object actGo: TAction
      Category = 'Browser'
      Caption = 'actGo'
      OnExecute = actGoExecute
    end
    object actStop: TAction
      Category = 'Browser'
      Caption = 'actStop'
      ImageIndex = 9
      OnExecute = actStopExecute
      OnUpdate = actStopUpdate
    end
    object actRefresh: TAction
      Category = 'Browser'
      Caption = 'Refresh'
      ImageIndex = 8
      OnExecute = actRefreshExecute
      OnUpdate = actRefreshUpdate
    end
  end
  object ActionList1: TActionList
    Images = ImageMain
    Left = 503
    Top = 80
    object actNew: TAction
      Category = 'File'
      Caption = '&New'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = actNewExecute
      OnUpdate = actNewUpdate
    end
    object actExit: TAction
      Category = 'File'
      Caption = 'E&xit'
      ImageIndex = 1
      ShortCut = 49240
      OnExecute = actExitExecute
    end
    object actOption: TAction
      Category = 'Option'
      Caption = 'Preferences ...'
      ImageIndex = 2
      ShortCut = 123
      OnExecute = actOptionExecute
    end
    object actAbout: TAction
      Category = 'Help'
      Caption = '&About...'
      ShortCut = 112
      OnExecute = actAboutExecute
    end
    object actMakeRead: TAction
      Category = 'Edit'
      Caption = 'Make as &Readed'
      OnExecute = actMakeReadExecute
      OnUpdate = actMakeReadUpdate
    end
    object actMakeUnRead: TAction
      Category = 'Edit'
      Caption = 'Make as &UnReaded'
      OnExecute = actMakeUnReadExecute
      OnUpdate = actMakeUnReadUpdate
    end
    object actDeleteItem: TAction
      Category = 'Edit'
      Caption = 'Delete item(s)'
      ImageIndex = 17
      ShortCut = 46
      OnExecute = actDeleteItemExecute
      OnUpdate = actDeleteItemUpdate
    end
    object actPreUnread: TAction
      Category = 'Edit'
      Caption = 'Preview Unread'
      ImageIndex = 12
      OnExecute = actPreUnreadExecute
    end
    object actNextUnread: TAction
      Category = 'Edit'
      Caption = 'Next Unread'
      ImageIndex = 13
      OnExecute = actNextUnreadExecute
    end
    object actPreview: TAction
      Category = 'Edit'
      Caption = 'Preview'
      ImageIndex = 10
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
    object actNext: TAction
      Category = 'Edit'
      Caption = 'Next'
      ImageIndex = 11
      OnExecute = actNextExecute
      OnUpdate = actNextUpdate
    end
    object actSelectAll: TAction
      Category = 'Edit'
      Caption = 'Select &All'
      ShortCut = 49217
      SecondaryShortCuts.Strings = (
        'Ctrl+Shift+A')
      OnExecute = actSelectAllExecute
      OnUpdate = actSelectAllUpdate
    end
    object actNewFolder: TAction
      Category = 'ChannelTree'
      Caption = 'New Folder ...'
      ImageIndex = 18
      OnExecute = actNewFolderExecute
      OnUpdate = actNewFolderUpdate
    end
    object actMoveUp: TAction
      Category = 'ChannelTree'
      Caption = 'Move Up'
      ImageIndex = 14
      OnExecute = actMoveUpExecute
      OnUpdate = actMoveUpUpdate
    end
    object actMoveDown: TAction
      Category = 'ChannelTree'
      Caption = 'Move Down'
      ImageIndex = 15
      OnExecute = actMoveDownExecute
      OnUpdate = actMoveDownUpdate
    end
    object actMoveTo: TAction
      Category = 'ChannelTree'
      Caption = 'Move To ...'
      ImageIndex = 16
      OnExecute = actMoveToExecute
      OnUpdate = actDeleteChannelUpdate
    end
    object actDeleteChannel: TAction
      Category = 'ChannelTree'
      Caption = 'Delete'
      ImageIndex = 17
      ShortCut = 8238
      OnExecute = actDeleteChannelExecute
      OnUpdate = actDeleteChannelUpdate
    end
    object actReName: TAction
      Category = 'ChannelTree'
      Caption = 'ReName ...'
      OnExecute = actReNameExecute
      OnUpdate = actReNameUpdate
    end
    object ActUpdate: TAction
      Category = 'ChannelTree'
      Caption = 'Refresh'
      ImageIndex = 3
      ShortCut = 116
      OnExecute = ActUpdateExecute
      OnUpdate = ActUpdateUpdate
    end
    object actShowError: TAction
      Category = 'ChannelTree'
      Caption = 'Show error ...'
      OnExecute = actShowErrorExecute
      OnUpdate = actShowErrorUpdate
    end
    object actStopRefresh: TAction
      Category = 'ChannelTree'
      Caption = 'Stop'
      ImageIndex = 9
      ShortCut = 16467
      OnExecute = actStopRefreshExecute
      OnUpdate = actStopRefreshUpdate
    end
  end
  object XPManifest1: TXPManifest
    Left = 599
    Top = 80
  end
  object PMFeed: TPopupMenu
    Images = ImageMain
    Left = 104
    Top = 168
    object u1: TMenuItem
      Action = ActUpdate
    end
    object S3: TMenuItem
      Action = actStopRefresh
    end
    object M4: TMenuItem
      Caption = 'Make newspaper'
      OnClick = M4Click
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object MoveTo1: TMenuItem
      Action = actMoveTo
    end
    object ClearItems1: TMenuItem
      Caption = 'Clear Items'
      OnClick = ClearItems1Click
    end
    object d1: TMenuItem
      Action = actDeleteChannel
    end
    object N14: TMenuItem