home *** CD-ROM | disk | FTP | other *** search
- inherited FileMergerForm: TFileMergerForm
- Left = 273
- Top = 199
- BorderStyle = bsSizeable
- Caption = 'File Merger'
- ClientHeight = 337
- ClientWidth = 461
- Constraints.MinHeight = 200
- Constraints.MinWidth = 465
- ExplicitWidth = 469
- ExplicitHeight = 371
- PixelsPerInch = 96
- TextHeight = 13
- inherited ButtonOk: TButton
- Left = 220
- Top = 307
- Enabled = False
- ModalResult = 0
- TabOrder = 11
- Visible = False
- ExplicitLeft = 220
- ExplicitTop = 309
- end
- inherited ButtonCancel: TButton
- Left = 300
- Top = 307
- TabOrder = 9
- ExplicitLeft = 300
- ExplicitTop = 309
- end
- inherited ButtonHelp: THelpButton
- Left = 380
- Top = 307
- TabOrder = 10
- HelpKey = 'tool_merger'
- ExplicitLeft = 380
- ExplicitTop = 309
- end
- object ButtonMerge: TButton
- Left = 220
- Top = 307
- Width = 75
- Height = 25
- Action = MergeAction
- Anchors = [akRight, akBottom]
- Default = True
- TabOrder = 8
- ExplicitTop = 309
- end
- object FilesLabel: TStaticText
- Left = 6
- Top = 6
- Width = 193
- Height = 17
- Caption = 'Files to be merged in the following order:'
- TabOrder = 0
- end
- object FileList: TListView
- Left = 6
- Top = 23
- Width = 450
- Height = 246
- Anchors = [akLeft, akTop, akRight, akBottom]
- Columns = <
- item
- Caption = 'Name'
- Width = -1
- WidthType = (
- -1)
- end>
- ColumnClick = False
- DragMode = dmAutomatic
- HideSelection = False
- ReadOnly = True
- PopupMenu = ListMenu
- ShowColumnHeaders = False
- TabOrder = 1
- ViewStyle = vsReport
- OnDragDrop = FileListDragDrop
- OnDragOver = FileListDragOver
- ExplicitHeight = 248
- end
- object AddFiles: TButton
- Left = 3
- Top = 273
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Add Files...'
- TabOrder = 2
- OnClick = AddFilesClick
- ExplicitTop = 275
- end
- object RemoveFile: TButton
- Left = 83
- Top = 273
- Width = 75
- Height = 25
- Action = RemoveFileAction
- Anchors = [akLeft, akBottom]
- TabOrder = 3
- ExplicitTop = 275
- end
- object RemoveAllFiles: TButton
- Left = 163
- Top = 273
- Width = 75
- Height = 25
- Action = RemoveAllFileAction
- Anchors = [akLeft, akBottom]
- TabOrder = 4
- ExplicitTop = 275
- end
- object RateLabel: TStaticText
- Left = 250
- Top = 275
- Width = 115
- Height = 17
- Anchors = [akRight, akBottom]
- Caption = 'Preferred sampling rate:'
- TabOrder = 5
- ExplicitTop = 277
- end
- object Rate: TNumBox
- Left = 366
- Top = 273
- Width = 73
- Height = 21
- Value = 44100.000000000000000000
- Min = 1000.000000000000000000
- Max = 192000.000000000000000000
- PageChange = 100.000000000000000000
- LineChange = 100.000000000000000000
- Label = 'Rate'
- Buddy = RateBuddy
- Anchors = [akRight, akBottom]
- AutoComplete = False
- DropDownCount = 12
- Items.Strings = (
- '5500'
- '6000'
- '7333'
- '8000'
- '11025'
- '16000'
- '22050'
- '32000'
- '44100'
- '48000'
- '88200'
- '96000'
- '192000')
- TabOrder = 6
- Text = '44100'
- MaxLength = 7
- ExplicitTop = 275
- end
- object RateBuddy: TBuddyUpDown
- Left = 439
- Top = 273
- Width = 16
- Height = 21
- Anchors = [akRight, akBottom]
- Associate = Rate
- Increment = 100
- TabOrder = 7
- ExplicitTop = 275
- end
- object ActionList: TActionList
- Left = 13
- Top = 303
- object RemoveFileAction: TAction
- Caption = 'Remove'
- OnExecute = RemoveFileExecute
- OnUpdate = RemoveFileEnable
- end
- object RemoveAllFileAction: TAction
- Caption = 'Remove All'
- OnExecute = RemoveAllFileExecute
- OnUpdate = RemoveAllFileEnable
- end
- object MergeAction: TAction
- Caption = 'Merge...'
- OnExecute = Merge
- OnUpdate = MergeEnable
- end
- end
- object ListMenu: TPopupMenu
- OnPopup = ListMenuPopup
- Left = 46
- Top = 304
- object ListPaste: TMenuItem
- Caption = '&Paste'
- ShortCut = 16470
- OnClick = ListPasteClick
- end
- object ListDelete: TMenuItem
- Caption = '&Delete'
- ShortCut = 16472
- OnClick = RemoveFileExecute
- end
- end
- end
-