division_unit.dfm

Delphi7编程80例(完全版)

object frmDivision: TfrmDivision
  Left = 255
  Top = 146
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '文件分割器'
  ClientHeight = 211
  ClientWidth = 445
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 445
    Height = 211
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '分割文件'
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 102
        Height = 12
        Caption = '选择要分割的文件:'
      end
      object Label2: TLabel
        Left = 8
        Top = 48
        Width = 102
        Height = 12
        Caption = '文件分割存放位置:'
      end
      object Label3: TLabel
        Left = 8
        Top = 80
        Width = 54
        Height = 12
        Caption = '分割大小:'
      end
      object Label4: TLabel
        Left = 168
        Top = 80
        Width = 24
        Height = 12
        Caption = '字节'
      end
      object Label5: TLabel
        Left = 8
        Top = 136
        Width = 54
        Height = 12
        Caption = '分割进度:'
      end
      object Edit1: TEdit
        Left = 113
        Top = 13
        Width = 248
        Height = 20
        TabOrder = 0
        OnChange = Edit1Change
      end
      object Button1: TButton
        Left = 368
        Top = 12
        Width = 65
        Height = 23
        Caption = '浏览'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Edit2: TEdit
        Left = 112
        Top = 44
        Width = 249
        Height = 20
        TabOrder = 2
      end
      object Button2: TButton
        Left = 368
        Top = 44
        Width = 65
        Height = 23
        Caption = '浏览'
        TabOrder = 3
        OnClick = Button2Click
      end
      object Edit3: TEdit
        Left = 66
        Top = 77
        Width = 97
        Height = 20
        TabOrder = 4
        Text = '1474000'
      end
      object CheckBox1: TCheckBox
        Left = 237
        Top = 78
        Width = 193
        Height = 17
        Caption = '生成合并时用的批处理文件'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = CheckBox1Click
      end
      object ProgressBar1: TProgressBar
        Left = 8
        Top = 160
        Width = 425
        Height = 17
        Min = 0
        Max = 100
        TabOrder = 6
      end
      object Button3: TButton
        Left = 341
        Top = 112
        Width = 89
        Height = 25
        Caption = '开始分割'
        TabOrder = 7
        OnClick = Button3Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '合并文件'
      ImageIndex = 1
      object Label6: TLabel
        Left = 6
        Top = 156
        Width = 54
        Height = 12
        Caption = '合并进度:'
      end
      object Button4: TButton
        Left = 358
        Top = 152
        Width = 75
        Height = 25
        Caption = '开始合并'
        TabOrder = 0
        OnClick = Button4Click
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 425
        Height = 137
        Caption = '选项'
        TabOrder = 1
        object SpeedButton1: TSpeedButton
          Left = 376
          Top = 37
          Width = 41
          Height = 25
          Caption = '浏览'
          Flat = True
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 376
          Top = 79
          Width = 41
          Height = 25
          Caption = '浏览'
          Enabled = False
          Flat = True
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 376
          Top = 107
          Width = 41
          Height = 25
          Caption = '清空'
          Enabled = False
          Flat = True
          OnClick = SpeedButton3Click
        end
        object RadioButton1: TRadioButton
          Left = 9
          Top = 17
          Width = 88
          Height = 17
          Caption = '选择文件夹'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton1Click
        end
        object Edit4: TEdit
          Left = 11
          Top = 40
          Width = 358
          Height = 20
          TabOrder = 1
        end
        object RadioButton2: TRadioButton
          Left = 9
          Top = 65
          Width = 88
          Height = 17
          Caption = '选择文件'
          TabOrder = 2
          OnClick = RadioButton2Click
        end
        object ListBox1: TListBox
          Left = 10
          Top = 85
          Width = 358
          Height = 44
          Enabled = False
          ItemHeight = 12
          TabOrder = 3
        end
      end
      object ProgressBar2: TProgressBar
        Left = 64
        Top = 154
        Width = 289
        Height = 17
        Min = 0
        Max = 100
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = '关于'
      ImageIndex = 2
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 228
    Top = 175
  end
  object SaveDialog1: TSaveDialog
    Left = 260
    Top = 175
  end
  object Division1: TDivision
    BatName = '合并成'
    WorkType = ttDivision
    CreateType = ctBat
    DivisionSize = 1474000
    CombineSource = csPath
    OnBeginDivision = Division1BeginDivision
    OnDoingDivision = Division1DoingDivision
    OnEndDivision = Division1EndDivision
    OnBeginCombine = Division1BeginCombine
    OnDoingCombine = Division1DoingCombine
    OnEndCombine = Division1EndCombine
    ShowAboutBox = True
    Left = 292
    Top = 175
  end
end