MTK

开发平台：
C++ Builder

form_melody.dfm：源码内容
							object frmMelody: TfrmMelody
  Left = 294
  Top = 181
  Width = 512
  Height = 480
  Caption = 'Melody'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object sb_L1sp: TStatusBar
    Left = 0
    Top = 424
    Width = 504
    Height = 29
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object lblHint: TStaticText
    Left = 440
    Top = 16
    Width = 33
    Height = 17
    BorderStyle = sbsSingle
    Caption = 'lblHint'
    Color = clYellow
    ParentColor = False
    TabOrder = 1
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 489
    Height = 409
    Caption = 'Melody'
    TabOrder = 2
    object labelRepeat: TLabel
      Left = 24
      Top = 24
      Width = 40
      Height = 13
      Caption = 'Repeats'
      FocusControl = sb_L1sp
    end
    object Label1: TLabel
      Left = 104
      Top = 24
      Width = 77
      Height = 13
      Caption = 'Speaker volume'
    end
    object ListBoxMelody: TListBox
      Left = 8
      Top = 72
      Width = 337
      Height = 329
      ItemHeight = 13
      TabOrder = 0
    end
    object btnPlayMelody: TBitBtn
      Left = 360
      Top = 264
      Width = 115
      Height = 41
      Caption = 'play Melody'
      TabOrder = 1
      OnClick = btnPlayMelodyClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F00
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object btnStopPlayMelody: TBitBtn
      Left = 360
      Top = 360
      Width = 115
      Height = 41
      Caption = 'stop play'
      TabOrder = 2
      OnClick = btnStopPlayMelodyClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF999999FFFFFFFF9999999999FFFFFF999FFFFF9
        9FFFFFF9999FFFF99FFFFF99F999FFFF99FFFF99FF999FFF99FFFF99FFF999FF
        99FFFF99FFFF999F99FFFFF99FFFF9999FFFFFF99FFFFF999FFFFFF999999999
        9FFFFFFFF999999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object StaticText1: TStaticText
      Left = 408
      Top = 0
      Width = 33
      Height = 17
      BorderStyle = sbsSingle
      Caption = 'lblHint'
      Color = clYellow
      ParentColor = False
      TabOrder = 3
      Visible = False
    end
    object edtRepeats: TEdit
      Left = 16
      Top = 40
      Width = 57
      Height = 21
      TabOrder = 4
      Text = '1'
      OnExit = edtRepeatsCheck
    end
    object edtSpeakerVolume: TEdit
      Left = 112
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 5
      Text = '128'
      OnExit = edtSpeakerVolumeCheck
    end
    object btnAddToList: TBitBtn
      Left = 360
      Top = 72
      Width = 115
      Height = 41
      Caption = 'Add to list'
      TabOrder = 6
      OnClick = btnAddToListClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
        00001F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C1F7C10421042104210421F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C1F7C1042E003E00310421F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C104210421042E003E0031042104210421F7C1F7C0000
        00001F7C1F7C1F7C1F7C1863E003E003E003E003E003E00310421F7C1F7C0000
        00001F7C1F7C1F7C1F7C1863E003E003E003E003E003E0031042000000000000
        00001F7C1F7C1F7C1F7C186318631863E003E003186318631042000000000000
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1863E003E00318631F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C18631863186318631F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object btnRemoveFromList: TBitBtn
      Left = 360
      Top = 168
      Width = 115
      Height = 41
      Caption = 'Remove from list'
      TabOrder = 7
      OnClick = btnRemoveFromListClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
        00001F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        00001F7C1F7C1F7C1F7C104210421042104210421042104210421F7C1F7C0000
        00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C10421F7C1F7C0000
        00001F7C1F7C1F7C1F7C1863007C007C007C007C007C007C1042000000000000
        00001F7C1F7C1F7C1F7C18631863186318631863186318631042000000000000
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
  end
  object OpenDialog: TOpenDialog
    Left = 376
    Top = 8
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    Left = 464
    Top = 8
  end
  object SaveDialog: TSaveDialog
    Left = 336
    Top = 10
  end
end

						