object FormMain: TFormMain Left = 322 Top = 260 BorderStyle = bsDialog Caption = 'Joinfile' ClientHeight = 209 ClientWidth = 313 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 13 object LabelJoining: TLabel Left = 8 Top = 216 Width = 52 Height = 13 Caption = 'Joining file:' end object Label3: TLabel Left = 8 Top = 256 Width = 34 Height = 13 Caption = 'Joined:' end object PanelStart: TPanel Left = 0 Top = 0 Width = 313 Height = 209 TabOrder = 0 object Label1: TLabel Left = 8 Top = 8 Width = 85 Height = 13 Caption = 'Select files to join:' end object Label2: TLabel Left = 8 Top = 152 Width = 55 Height = 13 Caption = 'Join files to:' end object LabelSelAmount: TLabel Left = 160 Top = 8 Width = 3 Height = 13 end object FileListBox: TFileListBox Left = 8 Top = 24 Width = 145 Height = 121 ItemHeight = 13 MultiSelect = True TabOrder = 0 OnChange = FileListBoxChange OnClick = FileListBoxChange end object DirectoryListBox: TDirectoryListBox Left = 160 Top = 24 Width = 145 Height = 97 FileList = FileListBox ItemHeight = 16 TabOrder = 1 end object DriveComboBox: TDriveComboBox Left = 160 Top = 128 Width = 145 Height = 19 DirList = DirectoryListBox TabOrder = 2 end object EditNewFile: TEdit Left = 8 Top = 168 Width = 145 Height = 21 TabOrder = 3 Text = 'joinedfiles.txt' end object BitBtnJoin: TBitBtn Left = 160 Top = 168 Width = 145 Height = 25 Caption = 'Join' Enabled = False TabOrder = 4 OnClick = BitBtnJoinClick Kind = bkAll end end object ProgressBarFile: TProgressBar Left = 8 Top = 232 Width = 297 Height = 16 Min = 0 Max = 100 TabOrder = 1 end object ProgressBarJoined: TProgressBar Left = 8 Top = 272 Width = 297 Height = 16 Min = 0 Max = 100 TabOrder = 2 end object BitBtnCancel: TBitBtn Left = 8 Top = 296 Width = 297 Height = 25 TabOrder = 3 OnClick = BitBtnCancelClick Kind = bkCancel end end