home *** CD-ROM | disk | FTP | other *** search
- object JoinForm: TJoinForm
- Left = 123
- Top = 135
- BorderStyle = bsDialog
- Caption = 'Join'
- ClientHeight = 312
- ClientWidth = 504
- Color = clBlue
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 124
- Width = 85
- Height = 16
- Caption = 'Files to join:'
- Color = clBlue
- Font.Color = clAqua
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label2: TLabel
- Left = 24
- Top = 164
- Width = 101
- Height = 16
- Caption = 'File to restore:'
- Font.Color = clAqua
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 0
- Top = 0
- Width = 504
- Height = 108
- Align = alTop
- Alignment = taCenter
- Caption = 'File Joiner'
- Color = clBlue
- Font.Color = clAqua
- Font.Height = -96
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- object FileToJoinEdit: TEdit
- Left = 136
- Top = 123
- Width = 353
- Height = 25
- AutoSize = False
- TabOrder = 0
- Text = 'unknown'
- OnMouseDown = FileToJoinEditMouseDown
- end
- object FileToRestoreEdit: TEdit
- Left = 136
- Top = 163
- Width = 353
- Height = 25
- AutoSize = False
- TabOrder = 1
- Text = 'unknown'
- OnMouseDown = FileToRestoreEditMouseDown
- end
- object StartButton: TButton
- Left = 24
- Top = 216
- Width = 217
- Height = 57
- Caption = 'Start Joining'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = StartButtonClick
- end
- object HideButton: TButton
- Left = 272
- Top = 216
- Width = 217
- Height = 57
- Caption = 'Hide'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = HideButtonClick
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter = '001 split files|*.001'
- end
- object Timer1: TTimer
- Interval = 100
- OnTimer = Timer1Timer
- Left = 480
- end
- end
-