main.dfm

该程序用D5编译

            Top = 0
            Width = 268
            Height = 90
            Align = alClient
            ItemHeight = 12
            MultiSelect = True
            PopupMenu = BottomPopupMenu
            TabOrder = 0
            OnDblClick = AllListBoxDblClick
          end
          object ShareListView: TListView
            Left = 271
            Top = 0
            Width = 277
            Height = 90
            Align = alRight
            Columns = <
              item
                Caption = '文件夹'
                Width = 100
              end
              item
                Caption = '地址'
                Width = 150
              end
              item
                Caption = '工作组'
                Width = 100
              end>
            ColumnClick = False
            HideSelection = False
            LargeImages = ImageList1
            ReadOnly = True
            RowSelect = True
            ShowColumnHeaders = False
            SmallImages = ImageList1
            TabOrder = 1
            ViewStyle = vsReport
            OnClick = ShareListViewClick
            OnResize = ShareListViewResize
            OnSelectItem = ShareListViewSelectItem
          end
        end
        object FindTabSheet: TTabSheet
          Caption = '搜索结果'
          ImageIndex = 32
          object FindListView: TListView
            Left = 0
            Top = 0
            Width = 548
            Height = 90
            Align = alClient
            Columns = <
              item
                Caption = '文件'
                Width = 150
              end
              item
                Caption = '地址'
                Width = 200
              end
              item
                Caption = '工作组'
                Width = 150
              end>
            ColumnClick = False
            LargeImages = ImageList1
            MultiSelect = True
            PopupMenu = BottomPopupMenu
            SmallImages = ImageList1
            TabOrder = 0
            ViewStyle = vsReport
            OnDblClick = FindListViewDblClick
          end
        end
        object Mp3TabSheet: TTabSheet
          Caption = 'Mp3文件'
          ImageIndex = 35
          object Mp3ListView: TListView
            Left = 0
            Top = 0
            Width = 548
            Height = 90
            Align = alClient
            Columns = <
              item
                Caption = '文件'
                Width = 150
              end
              item
                Caption = '地址'
                Width = 200
              end
              item
                Caption = '工作组'
                Width = 150
              end>
            ColumnClick = False
            LargeImages = ImageList1
            MultiSelect = True
            PopupMenu = BottomPopupMenu
            SmallImages = ImageList1
            TabOrder = 0
            ViewStyle = vsReport
            OnDblClick = Mp3ListViewDblClick
          end
        end
        object MovieTabSheet: TTabSheet
          Caption = 'Movie文件'
          ImageIndex = 36
          object MovieListView: TListView
            Left = 0
            Top = 0
            Width = 548
            Height = 90
            Align = alClient
            Columns = <
              item
                Caption = '文件'
                Width = 150
              end
              item
                Caption = '地址'
                Width = 200
              end
              item
                Caption = '工作组'
                Width = 150
              end>
            ColumnClick = False
            LargeImages = ImageList1
            MultiSelect = True
            PopupMenu = BottomPopupMenu
            SmallImages = ImageList1
            TabOrder = 0
            ViewStyle = vsReport
            OnDblClick = MovieListViewDblClick
          end
        end
      end
    end
  end
  object LeftPanel: TPanel
    Left = 0
    Top = 26
    Width = 249
    Height = 438
    Align = alLeft
    BevelInner = bvLowered
    Caption = 'LeftPanel'
    DragKind = dkDock
    TabOrder = 3
    object LeftPageCtrl: TPageControl
      Left = 2
      Top = 2
      Width = 245
      Height = 434
      ActivePage = SearchTabSheet
      Align = alClient
      Images = ImageList1
      MultiLine = True
      TabHeight = 15
      TabOrder = 0
      TabStop = False
      OnChange = LeftPageCtrlChange
      object SearchTabSheet: TTabSheet
        Caption = '搜索'
        ImageIndex = 3
        object SearchPageCtrl: TPageControl
          Left = 0
          Top = 0
          Width = 237
          Height = 409
          ActivePage = TabSheet2
          Align = alClient
          Style = tsFlatButtons
          TabOrder = 0
          object TabSheet1: TTabSheet
            Caption = '网上邻居'
            object Panel4: TPanel
              Left = 0
              Top = 0
              Width = 229
              Height = 379
              Align = alClient
              BevelOuter = bvNone
              BorderStyle = bsSingle
              Caption = 'Panel4'
              TabOrder = 0
              object Splitter6: TSplitter
                Left = 0
                Top = 73
                Width = 225
                Height = 1
                Cursor = crVSplit
                Align = alTop
                Color = clGray
                ParentColor = False
              end
              object SearchTree: TTreeView
                Left = 0
                Top = 74
                Width = 225
                Height = 301
                Align = alClient
                BorderStyle = bsNone
                Color = clWhite
                HideSelection = False
                HotTrack = True
                Images = ImageList1
                Indent = 19
                PopupMenu = LanTreePopupMenu
                ReadOnly = True
                RightClickSelect = True
                TabOrder = 0
                OnClick = SearchTreeClick
              end
              object Panel5: TPanel
                Left = 0
                Top = 0
                Width = 225
                Height = 73
                Align = alTop
                BevelOuter = bvNone
                Color = clWhite
                Constraints.MaxHeight = 73
                Constraints.MinHeight = 20
                TabOrder = 1
                object Label4: TLabel
                  Left = 5
                  Top = 29
                  Width = 36
                  Height = 12
                  Caption = '起始：'
                end
                object Label5: TLabel
                  Left = 5
                  Top = 52
                  Width = 36
                  Height = 12
                  Caption = '终止：'
                end
                object cbBegin: TComboBox
                  Left = 39
                  Top = 26
                  Width = 162
                  Height = 20
                  Style = csDropDownList
                  Anchors = [akLeft, akTop, akRight]
                  ItemHeight = 0
                  TabOrder = 0
                end
                object cbEnd: TComboBox
                  Left = 39
                  Top = 49
                  Width = 162
                  Height = 20
                  Style = csDropDownList
                  Anchors = [akLeft, akTop, akRight]
                  ItemHeight = 0
                  TabOrder = 1
                end
                object ToolBar3: TToolBar
                  Left = 0
                  Top = 0
                  Width = 225
                  Height = 24
                  AutoSize = True
                  ButtonWidth = 51
                  Caption = 'ToolBar3'
                  Color = clWhite
                  EdgeBorders = [ebBottom]
                  Flat = True
                  Images = ImageList1
                  List = True
                  ParentColor = False
                  ShowCaptions = True
                  TabOrder = 2
                  object ToolBtnRefresh: TToolButton
                    Left = 0
                    Top = 0
                    AutoSize = True
                    Caption = '刷新'
                    ImageIndex = 42
                    OnClick = ToolBtnRefreshClick
                  end
                  object ToolBtnAuto: TToolButton
                    Left = 55
                    Top = 0
                    AutoSize = True
                    Caption = '搜索'
                    ImageIndex = 45
                    OnClick = ToolBtnAutoClick
                  end
                end
              end
            end
          end
          object TabSheet2: TTabSheet
            Caption = 'IP地址段'
            ImageIndex = 1
            object Panel3: TPanel
              Left = 0
              Top = 0
              Width = 229
              Height = 379
              Align = alClient
              BevelOuter = bvNone
              BorderStyle = bsSingle