490 lines
9.3 KiB
Plaintext
490 lines
9.3 KiB
Plaintext
object Keyboard: TKeyboard
|
|
Left = 145
|
|
Top = 347
|
|
Width = 528
|
|
Height = 243
|
|
HorzScrollBar.Range = 517
|
|
VertScrollBar.Range = 209
|
|
ActiveControl = MidiProgramNum
|
|
AutoScroll = False
|
|
Caption = 'MIDI Example'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Scaled = False
|
|
ShowHint = True
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Key48: TSpeedButton
|
|
Tag = 48
|
|
Left = 4
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 48
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key50: TSpeedButton
|
|
Tag = 50
|
|
Left = 24
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 50
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key52: TSpeedButton
|
|
Tag = 52
|
|
Left = 44
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 52
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key53: TSpeedButton
|
|
Tag = 53
|
|
Left = 64
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 53
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key49: TSpeedButton
|
|
Tag = 49
|
|
Left = 18
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 49
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key51: TSpeedButton
|
|
Tag = 51
|
|
Left = 38
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 51
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key55: TSpeedButton
|
|
Tag = 55
|
|
Left = 84
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 55
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key57: TSpeedButton
|
|
Tag = 57
|
|
Left = 104
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 57
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key59: TSpeedButton
|
|
Tag = 59
|
|
Left = 124
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 59
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key54: TSpeedButton
|
|
Tag = 54
|
|
Left = 78
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 54
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key56: TSpeedButton
|
|
Tag = 56
|
|
Left = 98
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 56
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key58: TSpeedButton
|
|
Tag = 58
|
|
Left = 118
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 58
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key60: TSpeedButton
|
|
Tag = 60
|
|
Left = 144
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 60
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key62: TSpeedButton
|
|
Tag = 62
|
|
Left = 164
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 62
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key64: TSpeedButton
|
|
Tag = 64
|
|
Left = 184
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 64
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key65: TSpeedButton
|
|
Tag = 65
|
|
Left = 204
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 65
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key61: TSpeedButton
|
|
Tag = 61
|
|
Left = 158
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 61
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key63: TSpeedButton
|
|
Tag = 63
|
|
Left = 178
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 63
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key67: TSpeedButton
|
|
Tag = 67
|
|
Left = 224
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 67
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key69: TSpeedButton
|
|
Tag = 69
|
|
Left = 244
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 69
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key71: TSpeedButton
|
|
Tag = 71
|
|
Left = 264
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 71
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key66: TSpeedButton
|
|
Tag = 66
|
|
Left = 218
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 66
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key68: TSpeedButton
|
|
Tag = 68
|
|
Left = 238
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 68
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key70: TSpeedButton
|
|
Tag = 70
|
|
Left = 258
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 70
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key72: TSpeedButton
|
|
Tag = 72
|
|
Left = 284
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 72
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key74: TSpeedButton
|
|
Tag = 74
|
|
Left = 304
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 74
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key76: TSpeedButton
|
|
Tag = 76
|
|
Left = 324
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 76
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key77: TSpeedButton
|
|
Tag = 77
|
|
Left = 344
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 77
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key73: TSpeedButton
|
|
Tag = 73
|
|
Left = 298
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 73
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key75: TSpeedButton
|
|
Tag = 75
|
|
Left = 318
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 75
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key79: TSpeedButton
|
|
Tag = 79
|
|
Left = 364
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 79
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key81: TSpeedButton
|
|
Tag = 81
|
|
Left = 384
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 81
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key83: TSpeedButton
|
|
Tag = 83
|
|
Left = 404
|
|
Top = 36
|
|
Width = 21
|
|
Height = 97
|
|
AllowAllUp = True
|
|
GroupIndex = 83
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key78: TSpeedButton
|
|
Tag = 78
|
|
Left = 358
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 78
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key80: TSpeedButton
|
|
Tag = 80
|
|
Left = 378
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 80
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Key82: TSpeedButton
|
|
Tag = 82
|
|
Left = 398
|
|
Top = 36
|
|
Width = 13
|
|
Height = 61
|
|
AllowAllUp = True
|
|
GroupIndex = 82
|
|
OnMouseDown = KeyMouseDown
|
|
end
|
|
object Label1: TLabel
|
|
Left = 440
|
|
Top = 36
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'MIDI Program #'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 43
|
|
Height = 13
|
|
Caption = 'MIDI Out'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 144
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Pitch Wheel'
|
|
FocusControl = PitchBender
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 184
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Mod. Wheel'
|
|
FocusControl = ModWheel
|
|
end
|
|
object MidiProgramNum: TSpinEdit
|
|
Left = 440
|
|
Top = 60
|
|
Width = 77
|
|
Height = 22
|
|
MaxValue = 127
|
|
MinValue = 0
|
|
TabOrder = 0
|
|
Value = 0
|
|
OnChange = MidiProgramNumChange
|
|
end
|
|
object PitchBender: TTrackBar
|
|
Left = 72
|
|
Top = 136
|
|
Width = 441
|
|
Height = 33
|
|
Hint = 'Pitch bender'
|
|
Max = 8191
|
|
Min = -8192
|
|
Orientation = trHorizontal
|
|
PageSize = 256
|
|
Frequency = 2048
|
|
Position = 0
|
|
SelEnd = 0
|
|
SelStart = 0
|
|
TabOrder = 1
|
|
TickMarks = tmBottomRight
|
|
TickStyle = tsAuto
|
|
OnChange = PitchBenderChange
|
|
end
|
|
object btnAllNotesOff: TButton
|
|
Left = 440
|
|
Top = 104
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&All Notes Off'
|
|
TabOrder = 2
|
|
OnClick = btnAllNotesOffClick
|
|
end
|
|
object cbMidiOutSelect: TComboBox
|
|
Left = 68
|
|
Top = 8
|
|
Width = 253
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
OnChange = cbMidiOutSelectChange
|
|
end
|
|
object ModWheel: TTrackBar
|
|
Left = 73
|
|
Top = 176
|
|
Width = 440
|
|
Height = 33
|
|
Hint = 'Pitch bender'
|
|
Max = 16383
|
|
Orientation = trHorizontal
|
|
PageSize = 256
|
|
Frequency = 2048
|
|
Position = 0
|
|
SelEnd = 0
|
|
SelStart = 0
|
|
TabOrder = 4
|
|
TickMarks = tmBottomRight
|
|
TickStyle = tsAuto
|
|
OnChange = ModWheelChange
|
|
end
|
|
object KeyMenu: TPopupMenu
|
|
Left = 336
|
|
Top = 8
|
|
object TuningItem: TMenuItem
|
|
Caption = 'Tuning...'
|
|
OnClick = TuningItemClick
|
|
end
|
|
end
|
|
end
|