config.dfm

该程序用D5编译

object ConfigForm: TConfigForm
  Left = 262
  Top = 164
  BorderStyle = bsToolWindow
  Caption = '有关设置'
  ClientHeight = 313
  ClientWidth = 298
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 224
    Top = 288
    Width = 65
    Height = 20
    Caption = '关闭'
    OnClick = SpeedButton1Click
  end
  object ConfigPageCtrl: TPageControl
    Left = 0
    Top = 0
    Width = 298
    Height = 281
    ActivePage = AdvanceTabSheet
    Align = alTop
    TabOrder = 0
    object FilterTabSheet: TTabSheet
      Caption = '文件过滤'
      object BtnAddFilter: TSpeedButton
        Left = 171
        Top = 52
        Width = 49
        Height = 22
        Caption = '添加'
        OnClick = BtnAddFilterClick
      end
      object Label1: TLabel
        Left = 6
        Top = 6
        Width = 180
        Height = 12
        Caption = '要查找的文件名中包含如下文字：'
      end
      object BtnDelFilter: TSpeedButton
        Left = 227
        Top = 52
        Width = 49
        Height = 22
        Caption = '删除'
        OnClick = BtnDelFilterClick
      end
      object EditFilter: TEdit
        Left = 5
        Top = 26
        Width = 273
        Height = 20
        TabOrder = 0
      end
      object CheckBox1: TCheckBox
        Left = 6
        Top = 54
        Width = 97
        Height = 17
        Caption = '搜索已有文件'
        TabOrder = 1
      end
      object FilterPageCtrl: TPageControl
        Left = 6
        Top = 80
        Width = 276
        Height = 167
        ActivePage = Mp3FilterTabSheet
        TabOrder = 2
        TabPosition = tpBottom
        OnChange = FilterPageCtrlChange
        object DestTabSheet: TTabSheet
          Caption = '要查找的文件'
          object DestListBox: TListBox
            Left = 0
            Top = 0
            Width = 268
            Height = 140
            Align = alClient
            ItemHeight = 12
            TabOrder = 0
          end
        end
        object Mp3FilterTabSheet: TTabSheet
          Caption = 'MP3'
          ImageIndex = 1
          object Mp3ListBox: TListBox
            Left = 0
            Top = 0
            Width = 268
            Height = 140
            Align = alClient
            ItemHeight = 12
            Items.Strings = (
              'mp3'
              '.ra'
              '.ram'
              'song'
              '.lrc'
              '歌'
              '音乐')
            TabOrder = 0
          end
        end
        object MovieDestTabSheet: TTabSheet
          Caption = 'Movie'
          ImageIndex = 2
          object MovieListBox: TListBox
            Left = 0
            Top = 0
            Width = 268
            Height = 140
            Align = alClient
            ItemHeight = 12
            Items.Strings = (
              '.mpg'
              '.mpeg'
              '.rm'
              '.swf'
              '.dat'
              '.avi'
              '.asx'
              '电影'
              'movie')
            TabOrder = 0
          end
        end
      end
    end
    object ConfigTabSheet: TTabSheet
      Caption = '自动搜索'
      ImageIndex = 1
      object Bevel4: TBevel
        Left = 16
        Top = 120
        Width = 257
        Height = 41
        Shape = bsFrame
      end
      object Bevel2: TBevel
        Left = 16
        Top = 174
        Width = 257
        Height = 67
        Shape = bsFrame
      end
      object Label2: TLabel
        Left = 24
        Top = 135
        Width = 144
        Height = 12
        Caption = '自动搜索时的并发线程数：'
      end
      object Label3: TLabel
        Left = 31
        Top = 191
        Width = 60
        Height = 12
        Caption = '超时设置：'
      end
      object Label4: TLabel
        Left = 176
        Top = 191
        Width = 24
        Height = 12
        Caption = '分钟'
      end
      object Label5: TLabel
        Left = 24
        Top = 215
        Width = 216
        Height = 12
        Caption = '（若超过指定时间，将自动搜索下一组）'
      end
      object RadioGroup1: TRadioGroup
        Left = 16
        Top = 8
        Width = 257
        Height = 105
        Caption = '搜索设置'
        Items.Strings = (
          '自动搜索第一级目录'
          '只搜索到共享文件夹'
          '递归搜索所有目录')
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
      object SpinEdit1: TSpinEdit
        Left = 192
        Top = 130
        Width = 65
        Height = 21
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 3
        OnChange = SpinEdit1Change
      end
      object SpinEdit2: TSpinEdit
        Left = 99
        Top = 185
        Width = 65
        Height = 21
        MaxValue = 100
        MinValue = 1
        TabOrder = 2
        Value = 5
      end
    end
    object UserTabSheet: TTabSheet
      Caption = '用户名和密码'
      ImageIndex = 2
      object Label6: TLabel
        Left = 10
        Top = 84
        Width = 144
        Height = 12
        Caption = '遇到下列主机时单独设置：'
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 7
        Width = 273
        Height = 70
        Caption = '需要登录时默认的用户名和密码：'
        TabOrder = 0
        object Label7: TLabel
          Left = 8
          Top = 24
          Width = 48
          Height = 12
          Caption = '用户名：'
        end
        object Label8: TLabel
          Left = 8
          Top = 48
          Width = 48
          Height = 12
          Caption = '密  码：'
        end
        object edtDftUser: TEdit
          Left = 59
          Top = 19
          Width = 118
          Height = 20
          Color = clMenu
          Enabled = False
          TabOrder = 0
          Text = 'guest'
        end
        object edtDftPass: TEdit
          Left = 59
          Top = 43
          Width = 118
          Height = 20
          Color = clMenu
          Enabled = False
          TabOrder = 1
        end
        object btnChangeDft: TButton
          Left = 184
          Top = 20
          Width = 75
          Height = 20
          Caption = '修改'
          TabOrder = 2
          OnClick = btnChangeDftClick
        end
        object btnSaveDft: TButton
          Left = 184
          Top = 44
          Width = 75
          Height = 20
          Caption = '确定'
          TabOrder = 3
          OnClick = btnSaveDftClick
        end
      end
      object lvMountList: TListView
        Left = 7
        Top = 101
        Width = 274
        Height = 93
        Columns = <
          item
            Caption = '主机名'
            Width = 90
          end
          item
            Caption = '用户名'
            Width = 90
          end
          item
            Caption = '密码'
            Width = 90
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        ViewStyle = vsReport
      end
      object edtHost: TEdit
        Left = 7
        Top = 199
        Width = 91
        Height = 20
        TabOrder = 2
      end
      object edtUser: TEdit
        Left = 100
        Top = 199
        Width = 89
        Height = 20
        TabOrder = 3
      end
      object edtPass: TEdit
        Left = 191
        Top = 199
        Width = 90
        Height = 20
        TabOrder = 4
      end
      object btnSave: TButton
        Left = 224
        Top = 226
        Width = 57
        Height = 20
        Caption = '确定'
        TabOrder = 5
        OnClick = btnSaveClick
      end
      object btnChange: TButton
        Left = 151
        Top = 226
        Width = 57
        Height = 20
        Caption = '修改'
        TabOrder = 6
        OnClick = btnChangeClick
      end
      object btnDelete: TButton
        Left = 79
        Top = 226
        Width = 57
        Height = 20
        Caption = '删除'
        TabOrder = 7
        OnClick = btnDeleteClick
      end
      object btnAdd: TButton
        Left = 7
        Top = 226
        Width = 57
        Height = 20
        Caption = '添加'
        TabOrder = 8
        OnClick = btnAddClick
      end
    end
    object AdvanceTabSheet: TTabSheet
      Caption = '高级'
      ImageIndex = 3
      object cbNoPass: TCheckBox
        Left = 8
        Top = 8
        Width = 233
        Height = 17
        Caption = '访问未设置密码的主机的默认共享'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
    end
  end
end