midioutexamplemain.dfm

East make Tray Icon in delphi

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