PC World 2001 April/PCWorld_2001-04_cd.bin/Software/TemaCD/xnews/Xnews.exe/0/RCDATA/TGROUPSWINDOW/TGROUPSWINDOW.txt

Text File | 2001-01-31 | 18KB | 735 lines

object GroupsWindow: TGroupsWindow
  Left = 145
  Top = 111
  Width = 758
  Height = 550
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBtnText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = True
  Position = poDefault
  ShowHint = True
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnKeyDown = FormKeyDown
  OnShow = pnBaseResize
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 472
    Width = 750
    Height = 24
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -18
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TB0: TToolBar
      Left = 0
      Top = 0
      Width = 236
      Height = 24
      Align = alLeft
      AutoSize = True
      ButtonWidth = 107
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      HotImages = XnewsFrame.TaskBarImages
      Images = XnewsFrame.TaskBarImages
      Indent = 10
      List = True
      ParentFont = False
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object bSubs: TToolButton
        Left = 10
        Top = 2
        Caption = 'Subscribed'
        Down = True
        Grouped = True
        ImageIndex = 0
        Marked = True
        Style = tbsCheck
        OnClick = bAllClick
      end
      object bAll: TToolButton
        Left = 117
        Top = 2
        Caption = 'All'
        Grouped = True
        ImageIndex = 1
        Style = tbsCheck
        OnClick = bAllClick
      end
      object ToolButton1: TToolButton
        Left = 224
        Top = 2
        Width = 12
        ImageIndex = 4
        Style = tbsSeparator
      end
    end
    object pnStatus: TPanel
      Left = 619
      Top = 0
      Width = 131
      Height = 24
      Align = alClient
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object pnFilter: TPanel
      Left = 350
      Top = 0
      Width = 160
      Height = 24
      Hint = 'Click X to remove filter'
      Align = alLeft
      Alignment = taRightJustify
      BevelOuter = bvNone
      Caption = 'X '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = False
      OnClick = pnFilterClick
      object coFilter: TMyComboBox
        Left = 22
        Top = 1
        Width = 122
        Height = 24
        Hint = 'Enter filter text here'
        Ctl3D = False
        DropDownCount = 10
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 16
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnChange = coFilterChange
        OnEnter = coFilterEnter
        OnExit = coFilterExit
        OnKeyPress = coFilterKeyPress
        RegKey = 'Software\Xnews\coGrpFilter'
      end
      object cbBegin: TMyCheckBox
        Left = 1
        Top = 2
        Width = 20
        Height = 21
        Hint = 'Match start of string'
        TabStop = False
        Caption = '['
        Color = clBtnFace
        ParentColor = False
        TabOrder = 1
        OnClick = coFilterChange
        LikeButton = True
      end
    end
    object ToolBar: TToolBar
      Left = 510
      Top = 0
      Width = 109
      Height = 24
      Align = alLeft
      AutoSize = True
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      HotImages = XnewsFrame.TaskBarImages
      Images = XnewsFrame.TaskBarImages
      Indent = 5
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      object bNewFolder: TToolButton
        Left = 5
        Top = 2
        Hint = 'New Subscription Folder'
        Action = acgNewFolder
        Caption = 'New Subscription Category'
      end
      object bReload: TToolButton
        Left = 28
        Top = 2
        Hint = 'Reload subscription folders'
        Action = acgReloadXnewsRC
      end
      object ToolButton2: TToolButton
        Left = 51
        Top = 2
        Width = 4
        ImageIndex = 9
        Style = tbsSeparator
      end
      object bHideEmpty: TToolButton
        Left = 55
        Top = 2
        Hint = 'Hide Empty Groups'
        Action = acgHideEmpty
        AllowAllUp = True
      end
      object bShowFolders: TToolButton
        Left = 78
        Top = 2
        Hint = 'Show subscription folders'
        Action = acgShowFolders
        AllowAllUp = True
        Style = tbsCheck
      end
      object ToolButton6: TToolButton
        Left = 101
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 12
        Style = tbsSeparator
      end
    end
    object ToolBar1: TToolBar
      Left = 236
      Top = 0
      Width = 114
      Height = 24
      Align = alLeft
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      HotImages = XnewsFrame.TaskBarImages
      Images = XnewsFrame.TaskBarImages
      Indent = 5
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      object ToolButton3: TToolButton
        Left = 5
        Top = 2
        Action = XnewsFrame.acmSaveNewsrc
      end
      object ToolButton4: TToolButton
        Left = 28
        Top = 2
        Width = 9
        Caption = 'ToolButton4'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 37
        Top = 2
        Hint = 'Post to Newgroup(s)'
        Action = acgPost
      end
      object ToolButton9: TToolButton
        Left = 60
        Top = 2
        Hint = 'Subscribe'
        Action = acgSubs
      end
      object ToolButton10: TToolButton
        Left = 83
        Top = 2
        Hint = 'Unsubscribe'
        Action = acgUnSubs
      end
      object ToolButton5: TToolButton
        Left = 106
        Top = 2
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 14
        Style = tbsSeparator
      end
    end
  end
  object pnBase: TPanel
    Left = 0
    Top = 0
    Width = 750
    Height = 472
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    OnResize = pnBaseResize
    object PageControl: TPageControl
      Left = -3
      Top = -5
      Width = 725
      Height = 456
      ActivePage = tbSubs
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -18
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MultiLine = True
      ParentFont = False
      Style = tsButtons
      TabOrder = 0
      TabStop = False
      object tbSubs: TTabSheet
        TabVisible = False
        object Grps: TMyListView
          Left = 0
          Top = 0
          Width = 717
          Height = 418
          Align = alClient
          Columns = <
            item
              Caption = 'Subscribed'
              Width = 300
            end
            item
              Caption = 'Unread'
              Width = 80
            end
            item
              Caption = 'Total'
              Width = 80
            end
            item
              Caption = 'read'
              Width = 200
            end
            item
              Caption = 'First'
            end
            item
              Caption = 'Last'
            end
            item
              Caption = 'keep'
            end>
          DragMode = dmAutomatic
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          GridLines = True
          HideSelection = False
          HotTrackStyles = []
          MultiSelect = True
          OwnerData = True
          OwnerDraw = True
          ReadOnly = True
          RowSelect = True
          ParentFont = False
          PopupMenu = PopupMenu
          SmallImages = XnewsFrame.TaskBarImages
          TabOrder = 0
          ViewStyle = vsReport
          OnColumnClick = GrpsColumnClick
          OnData = GrpsData
          OnDataFind = GrpsDataFind
          OnDblClick = GrpsDblClick
          OnDrawItem = GrpsDrawItem
          OnEndDrag = GrpsEndDrag
          OnDragDrop = GrpsDragDrop
          OnDragOver = GrpsDragOver
          OnKeyDown = GrpsKeyDown
          OnMouseDown = GrpsMouseDown
          OnStartDrag = GrpsStartDrag
          SaveSettings.RegistryKey = 'Software\Xnews\Groups\Columns'
        end
      end
      object tbAll: TTabSheet
        TabVisible = False
        object AllGrps: TMyListView
          Left = 0
          Top = 0
          Width = 742
          Height = 448
          Align = alClient
          Columns = <
            item
              Caption = 'All Groups'
              Width = 300
            end
            item
              Caption = 'Unread'
              Width = 80
            end
            item
              Caption = 'Total'
            end
            item
              Caption = 'read'
              Width = 200
            end
            item
              Caption = 'First'
            end
            item
              Caption = 'Last'
            end
            item
              Caption = 'keep'
            end>
          DragMode = dmAutomatic
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          GridLines = True
          HideSelection = False
          HotTrackStyles = []
          MultiSelect = True
          OwnerData = True
          OwnerDraw = True
          ReadOnly = True
          RowSelect = True
          ParentFont = False
          PopupMenu = PopupMenu
          SmallImages = XnewsFrame.TaskBarImages
          TabOrder = 0
          ViewStyle = vsReport
          OnColumnClick = GrpsColumnClick
          OnData = GrpsData
          OnDataFind = GrpsDataFind
          OnDblClick = GrpsDblClick
          OnDrawItem = GrpsDrawItem
          OnDragOver = GrpsDragOver
          OnKeyDown = GrpsKeyDown
          OnMouseDown = GrpsMouseDown
          SaveSettings.RegistryKey = 'Software\Xnews\AllGroups\Columns'
        end
      end
    end
  end
  object FindDialog: TFindDialog
    Options = [frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown]
    OnFind = FindDialogFind
    Left = 420
    Top = 122
  end
  object MainMenu: TMainMenu
    AutoMerge = True
    Left = 176
    Top = 160
    object mnGroup: TMenuItem
      Caption = '&Group'
      GroupIndex = 15
      object miPost: TMenuItem
        Action = acgPost
      end
      object miFind: TMenuItem
        Action = acgFind
      end
      object miFindAgain: TMenuItem
        Action = acgFindAgain
      end
      object miXPAT: TMenuItem
        Action = acgXPAT
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object miCopy: TMenuItem
        Action = acgCopy
      end
      object miPaste: TMenuItem
        Action = acgPaste
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object miSubs: TMenuItem
        Action = acgSubs
      end
      object miUnSubs: TMenuItem
        Action = acgUnSubs
      end
      object miCatchUp: TMenuItem
        Action = acgCatchUp
      end
      object miClearKeep: TMenuItem
        Action = acgClearKeep
      end
      object miUnCatchUp: TMenuItem
        Action = acgUnCatchUp
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miMsgCount: TMenuItem
        Action = acgMsgCount
      end
      object miAllMsgCount: TMenuItem
        Action = acgAllMsgCount
      end
      object miListNew: TMenuItem
        Action = acgListNew
      end
      object miListAll: TMenuItem
        Action = acgListAll
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object CreateNewSubscriptionFolder1: TMenuItem
        Action = acgNewFolder
      end
      object Reloadsubscriptionfolders1: TMenuItem
        Action = acgReloadXnewsRC
      end
      object HideEmptyGroups1: TMenuItem
        Action = acgHideEmpty
      end
    end
  end
  object GActions: TActionList
    Images = XnewsFrame.TaskBarImages
    Left = 260
    Top = 240
    object acgPost: TAction
      Category = 'Group'
      Caption = 'Post to Newgroup(s)'
      ImageIndex = 14
      ShortCut = 16464
      OnExecute = acgPostExecute
    end
    object acgFind: TAction
      Category = 'Group'
      Caption = 'Find'
      ShortCut = 113
      OnExecute = acgFindExecute
    end
    object acgFindAgain: TAction
      Category = 'Group'
      Caption = 'Find Again'
      ShortCut = 114
      OnExecute = acgFindAgainExecute
    end
    object acgXPAT: TAction
      Category = 'Group'
      Caption = 'XPAT Search'
      ShortCut = 16497
      OnExecute = acgXPATExecute
    end
    object acgCopy: TAction
      Category = 'Group'
      Caption = 'Copy to Clipboard'
      OnExecute = acgCopyExecute
    end
    object acgPaste: TAction
      Category = 'Group'
      Caption = 'Paste from Clipboard'
      OnExecute = acgPasteExecute
    end
    object acgSubs: TAction
      Category = 'Group'
      Caption = 'Subscribe'
      ImageIndex = 12
      ShortCut = 187
      OnExecute = acgGroupCmd
    end
    object acgUnSubs: TAction
      Category = 'Group'
      Caption = 'Unsubscribe'
      ImageIndex = 13
      ShortCut = 189
      OnExecute = acgGroupCmd
    end
    object acgCatchUp: TAction
      Category = 'Group'
      Caption = 'Catch Up'
      ShortCut = 119
      OnExecute = acgGroupCmd
    end
    object acgClearKeep: TAction
      Category = 'Group'
      Caption = 'Clear Keep'
      ShortCut = 120
      OnExecute = acgGroupCmd
    end
    object acgUnCatchUp: TAction
      Category = 'Group'
      Caption = 'Clear Read and Keep'
      ShortCut = 16504
      OnExecute = acgGroupCmd
    end
    object acgMsgCount: TAction
      Category = 'Group'
      Caption = 'Get Message Count'
      ShortCut = 116
      OnExecute = acgMsgCountExecute
    end
    object acgAllMsgCount: TAction
      Category = 'Group'
      Caption = 'Get All Message Counts'
      ShortCut = 16500
      OnExecute = acgAllMsgCountExecute
    end
    object acgListNew: TAction
      Category = 'Group'
      Caption = 'Get New Groups'
      ShortCut = 117
      OnExecute = acgListExecute
    end
    object acgListAll: TAction
      Category = 'Group'
      Caption = 'Get Entire Newsgroup List'
      OnExecute = acgListExecute
    end
    object acgSwitchTab: TAction
      Category = 'Group'
      Caption = 'Switch Subscribed/All'
      ShortCut = 115
      OnExecute = acgSwitchTabExecute
    end
    object acgExpandAll: TAction
      Category = 'Group'
      Caption = 'Expand All Folders'
      ShortCut = 221
      OnExecute = acgExpandAllExecute
    end
    object acgCollapseAll: TAction
      Category = 'Group'
      Caption = 'Collapse All Folders'
      ShortCut = 219
      OnExecute = acgExpandAllExecute
    end
    object acgNewFolder: TAction
      Category = 'Group'
      Caption = 'New Subscription Folder'
      ImageIndex = 8
      ShortCut = 32813
      OnExecute = acgNewFolderExecute
    end
    object acgReloadXnewsRC: TAction
      Category = 'Group'
      Caption = 'Reload Subscription Folders'
      ImageIndex = 10
      OnExecute = acgReloadXnewsRCExecute
    end
    object acgShowFolders: TAction
      Category = 'Group'
      Caption = 'Show subscription folders'
      Checked = True
      ImageIndex = 9
      OnExecute = acgHideEmptyExecute
    end
    object acgHideEmpty: TAction
      Category = 'Group'
      Caption = 'Hide Empty Groups'
      ImageIndex = 11
      OnExecute = acgHideEmptyExecute
    end
    object acgNextGroup: TAction
      Category = 'Group'
      Caption = 'Goto Next Group'
      ShortCut = 191
      OnExecute = acgNextGroupExecute
    end
    object acgPrevFolder: TAction
      Category = 'Group'
      Caption = 'Goto Prev Folder'
      ShortCut = 186
      OnExecute = acgNextGroupExecute
    end
    object acgNextFolder: TAction
      Category = 'Group'
      Caption = 'Goto Next Folder'
      ShortCut = 222
      OnExecute = acgNextGroupExecute
    end
  end
  object UpdateTimer: TTimer
    Enabled = False
    OnTimer = acgAllMsgCountExecute
    Left = 116
    Top = 270
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    OnPopup = UpdateMenu
    Left = 220
    Top = 398
    object miOpen: TMenuItem
      Caption = 'Open &Special...'#9'Ctrl+Enter'
      OnClick = miOpenClick
    end
    object miReload: TMenuItem
      OnClick = miOpenClick
    end
    object miOffline: TMenuItem
      Caption = 'Open &Offline...'#9'Alt+Enter'
      OnClick = miOpenClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object miRename: TMenuItem
      Caption = '&Rename'
      OnClick = miRenameClick
    end
    object miEditRead: TMenuItem
      Caption = '&Edit read'
      OnClick = miEditReadClick
    end
    object miAdd: TMenuItem
      Caption = '&Add group manually'
      ShortCut = 45
      OnClick = miAddClick
    end
    object miDel: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = miDelClick
    end
  end
end