PC World 2000 January/PCWorld_2000-01_cd.bin/Komunik/News/Xnews/Xnews.exe/0/RCDATA/TGROUPSWINDOW/TGROUPSWINDOW.txt

Text File | 1999-11-08 | 17KB | 702 lines

object GroupsWindow: TGroupsWindow
  Left = 144
  Top = 55
  Width = 758
  Height = 568
  ActiveControl = Grps
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  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
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 490
    Width = 750
    Height = 24
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -18
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object TB0: TToolBar
      Left = 0
      Top = 0
      Width = 232
      Height = 24
      Align = alLeft
      AutoSize = True
      ButtonWidth = 107
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      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 = 8
        ImageIndex = 4
        Style = tbsSeparator
      end
    end
    object pnStatus: TPanel
      Left = 583
      Top = 0
      Width = 167
      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 = 314
      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 = clBtnText
        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 = 474
      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 = 232
      Top = 0
      Width = 82
      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 ToolButton8: TToolButton
        Left = 5
        Top = 2
        Hint = 'Post to Newgroup(s)'
        Action = acgPost
      end
      object ToolButton9: TToolButton
        Left = 28
        Top = 2
        Hint = 'Subscribe'
        Action = acgSubs
      end
      object ToolButton10: TToolButton
        Left = 51
        Top = 2
        Hint = 'Unsubscribe'
        Action = acgUnSubs
      end
      object ToolButton17: TToolButton
        Left = 74
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 12
        Style = tbsSeparator
      end
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 750
    Height = 490
    ActivePage = tbSubs
    Align = alClient
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -18
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 0
    TabPosition = tpBottom
    TabStop = False
    object tbSubs: TTabSheet
      TabVisible = False
      object Grps: TMyListView
        Left = 0
        Top = 0
        Width = 742
        Height = 455
        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 = 454
        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
  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 miCopy: TMenuItem
        Action = acgCopy
      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 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