home *** CD-ROM | disk | FTP | other *** search
- object MIDISettingsForm: TMIDISettingsForm
- Left = 300
- Top = 125
- ActiveControl = OKBtn
- BorderStyle = bsDialog
- Caption = 'MIDI Settings'
- ClientHeight = 233
- ClientWidth = 396
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label3: TLabel
- Left = 5
- Top = 3
- Width = 46
- Height = 13
- Caption = 'Mappings'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label1: TLabel
- Left = 254
- Top = 3
- Width = 44
- Height = 13
- Caption = 'Channels'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 5
- Top = 153
- Width = 21
- Height = 13
- Caption = 'Map'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 5
- Top = 178
- Width = 9
- Height = 13
- Caption = 'to'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 100
- Top = 153
- Width = 18
- Height = 13
- Caption = 'port'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object MidiMappingListbox: TListBox
- Left = 4
- Top = 17
- Width = 242
- Height = 128
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ItemHeight = 11
- ParentFont = False
- TabOrder = 0
- OnClick = MidiMappingListboxClick
- end
- object ChannelsListbox: TListBox
- Left = 254
- Top = 17
- Width = 138
- Height = 184
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ItemHeight = 11
- ParentFont = False
- TabOrder = 1
- end
- object MidiBusCombo: TComboBox
- Left = 30
- Top = 176
- Width = 136
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 4
- OnChange = MidiBusComboChange
- end
- object MidiIOCombo: TComboBox
- Left = 30
- Top = 150
- Width = 66
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- Items.Strings = (
- 'Input'
- 'Output')
- end
- object MIDIPortWheel: TSpinEdit
- Left = 120
- Top = 150
- Width = 46
- Height = 22
- MaxValue = 255
- MinValue = 0
- TabOrder = 3
- Value = 0
- end
- object MIDIApplyBtn: TButton
- Left = 170
- Top = 148
- Width = 75
- Height = 25
- Caption = 'Add/Change'
- TabOrder = 5
- OnClick = MidiApplyBtnClick
- end
- object MIDIDeleteBtn: TButton
- Left = 170
- Top = 174
- Width = 75
- Height = 25
- Caption = 'Delete'
- TabOrder = 6
- OnClick = MidiDeleteBtnClick
- end
- object OKBtn: TButton
- Left = 316
- Top = 205
- Width = 75
- Height = 25
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 7
- end
- end
-