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 = {} 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