Chip Hitware 10/Chip_Hitware_Vol_10.iso/chiphit/tools/95filesp/fsplit.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-07-25 | 8.5 KB | 344 lines

object MainForm: TMainForm
  Left = 400
  Top = 312
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'File Split'
  ClientHeight = 312
  ClientWidth = 440
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poDefaultPosOnly
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LabelProgress: TLabel
    Left = 12
    Top = 259
    Width = 44
    Height = 13
    Caption = 'Progress:'
  end
  object BtnExecute: TButton
    Left = 112
    Top = 284
    Width = 88
    Height = 24
    HelpContext = 110
    Caption = '&Execute'
    Default = True
    TabOrder = 1
    OnClick = BtnExecuteClick
  end
  object BtnExit: TButton
    Left = 240
    Top = 284
    Width = 88
    Height = 24
    HelpContext = 110
    Caption = 'E&xit'
    TabOrder = 2
    OnClick = BtnExitClick
  end
  object Gauge95: TGauge95
    Left = 64
    Top = 256
    Width = 364
    Height = 20
    BevelOuter = bvLowered
    CurrValue = 0
    Spots = 40
    VSpace = 2
    HSpace = 2
  end
  object PageControl: TPageControl
    Left = 8
    Top = 8
    Width = 424
    Height = 240
    ActivePage = TabSheetSplit
    TabOrder = 0
    TabStop = False
    object TabSheetSplit: TTabSheet
      HelpContext = 110
      Caption = 'Split'
      object GroupBoxSplitFileName: TGroupBox
        Left = 8
        Top = 8
        Width = 400
        Height = 76
        Caption = '&File to split:'
        TabOrder = 0
        object LabelSplitFileNameSize: TLabel
          Left = 8
          Top = 52
          Width = 39
          Height = 13
          Caption = 'FileSize:'
        end
        object LabelSplitFileNameSizeVal: TLabel
          Left = 56
          Top = 52
          Width = 30
          Height = 13
          Caption = '0 Byte'
        end
        object LabelSplitSuppFileCount: TLabel
          Left = 208
          Top = 52
          Width = 85
          Height = 13
          Caption = 'Splited File-Count:'
        end
        object LabelSplitSuppFileCountVal: TLabel
          Left = 320
          Top = 52
          Width = 6
          Height = 13
          Alignment = taRightJustify
          Caption = '0'
        end
        object BtnSplitSearchFile: TButton
          Left = 320
          Top = 23
          Width = 72
          Height = 24
          Caption = 'Searc&h ...'
          TabOrder = 1
          OnClick = BtnSplitSearchFileClick
        end
        object EditSplitFileName: TEdit
          Left = 8
          Top = 24
          Width = 300
          Height = 21
          TabOrder = 0
          OnExit = EditSplitFileNameExit
          OnKeyPress = EditSplitFileNameKeyPress
        end
      end
      object GroupBoxSplitDestinationFiles: TGroupBox
        Left = 8
        Top = 96
        Width = 400
        Height = 104
        Caption = 'Destination Files:'
        TabOrder = 1
        object LabelSplitDesFileCount: TLabel
          Left = 38
          Top = 78
          Width = 50
          Height = 13
          Alignment = taRightJustify
          Caption = 'File &Count:'
          FocusControl = EditSplitDesFileCount
        end
        object LabelSplitDesFileName: TLabel
          Left = 22
          Top = 20
          Width = 66
          Height = 13
          Alignment = taRightJustify
          Caption = '&Base Fileame:'
          FocusControl = EditSplitDesFileName
        end
        object LabelSplitDesFileSize: TLabel
          Left = 12
          Top = 49
          Width = 76
          Height = 13
          Alignment = taRightJustify
          Caption = 'File &Size (in KB):'
          FocusControl = ComboBoxSplitDesFileSize
        end
        object LabelSplitDesFree1File: TLabel
          Left = 192
          Top = 49
          Width = 128
          Height = 13
          Alignment = taRightJustify
          Caption = 'Free Size in &1st File (in KB):'
          FocusControl = EditSplitDesFree1File
        end
        object EditSplitDesFileCount: TEdit
          Left = 96
          Top = 74
          Width = 63
          Height = 21
          TabOrder = 4
          Text = '0'
          OnKeyPress = EditSplitDesFileCountKeyPress
        end
        object EditSplitDesFileName: TEdit
          Left = 96
          Top = 16
          Width = 212
          Height = 21
          TabOrder = 0
          OnExit = EditSplitDesFileNameExit
          OnKeyPress = EditSplitDesFileNameKeyPress
        end
        object BtnSplitDesFileName: TButton
          Left = 320
          Top = 15
          Width = 72
          Height = 24
          Caption = 'Se&lect ...'
          TabOrder = 1
          OnClick = BtnSplitDesFileNameClick
        end
        object ComboBoxSplitDesFileSize: TComboBox
          Left = 96
          Top = 45
          Width = 80
          Height = 21
          DropDownCount = 4
          ItemHeight = 13
          Items.Strings = (
            '2847'
            '1423'
            '712'
            '356')
          TabOrder = 2
          Text = '1423'
          OnChange = ComboBoxSplitDesFileSizeChange
          OnKeyPress = ComboBoxSplitDesFileSizeKeyPress
        end
        object EditSplitDesFree1File: TEdit
          Left = 328
          Top = 45
          Width = 63
          Height = 21
          TabOrder = 3
          Text = '0'
          OnChange = EditSplitDesFree1FileChange
          OnKeyPress = EditSplitDesFree1FileKeyPress
        end
        object CheckSplitNoZeroInExt: TCheckBox
          Left = 180
          Top = 76
          Width = 200
          Height = 17
          Caption = '&Don'#39't fill FileExt. with preceding Zeros'
          TabOrder = 5
        end
      end
    end
    object TabSheetConcat: TTabSheet
      HelpContext = 120
      Caption = 'Concat'
      object LabelConcatFileName: TLabel
        Left = 8
        Top = 166
        Width = 75
        Height = 13
        Caption = 'Destination &File:'
        FocusControl = EditConcatFileName
      end
      object Bevel1: TBevel
        Left = 8
        Top = 156
        Width = 400
        Height = 4
        Shape = bsTopLine
      end
      object LabelConcatTotalSize: TLabel
        Left = 248
        Top = 128
        Width = 69
        Height = 13
        Caption = 'Total File-Size:'
      end
      object LabelConcatTotalSizeVal: TLabel
        Left = 376
        Top = 128
        Width = 30
        Height = 13
        Alignment = taRightJustify
        Caption = '0 Byte'
      end
      object ListBoxConcat: TListBox
        Left = 8
        Top = 8
        Width = 400
        Height = 108
        IntegralHeight = True
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnKeyUp = ListBoxConcatKeyUp
      end
      object BtnConcatAddFiles: TButton
        Left = 8
        Top = 124
        Width = 72
        Height = 24
        Caption = '&Add Files'
        TabOrder = 1
        OnClick = BtnConcatAddFilesClick
      end
      object BtnConcatDeleteFiles: TButton
        Left = 88
        Top = 124
        Width = 72
        Height = 24
        Caption = '&Delete Files'
        TabOrder = 2
        OnClick = BtnConcatDeleteFilesClick
      end
      object BtnConcatSortList: TButton
        Left = 168
        Top = 124
        Width = 72
        Height = 24
        Caption = '&Sort List'
        TabOrder = 3
        OnClick = BtnConcatSortListClick
      end
      object EditConcatFileName: TEdit
        Left = 8
        Top = 184
        Width = 320
        Height = 21
        TabOrder = 4
        OnExit = EditConcatFileNameExit
        OnKeyPress = EditConcatFileNameKeyPress
      end
      object BtnConcatSelectFile: TButton
        Left = 336
        Top = 183
        Width = 72
        Height = 24
        Caption = 'Se&lect'
        TabOrder = 5
        OnClick = BtnConcatSelectFileClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'All Files (*.*)|*.*|Executable-, DLL- Files (*.exe;*.dll)|*.exe;' +
      '*.dll|Archive Files (*.zip;*.arj;*.lzh)|*.zip;*.arj;*.lzh'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Search for Split-File'
    Left = 12
    Top = 280
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter =
      'All Files (*.*)|*.*|Executable-, DLL- Files (*.exe;*.dll)|*.exe;' +
      '*.dll|Archive Files (*.zip;*.arj;*.lzh)|*.zip;*.arj;*.lzh'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Select Destination Filename'
    Left = 40
    Top = 280
  end
end