MTK

开发平台：
C++ Builder

form_imelody.dfm：源码内容
							object frmiMelody: TfrmiMelody
  Left = 251
  Top = 96
  Width = 669
  Height = 359
  Caption = 'iMelody'
  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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 649
    Height = 281
    Caption = 'iMelody'
    TabOrder = 0
    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 Label2: TLabel
      Left = 208
      Top = 24
      Width = 69
      Height = 13
      Caption = 'Buzzer volume'
    end
    object memoiMelody: TMemo
      Left = 8
      Top = 88
      Width = 529
      Height = 209
      Enabled = False
      Lines.Strings = (
        '')
      TabOrder = 0
    end
    object btnPlayiMelody: TBitBtn
      Left = 544
      Top = 184
      Width = 97
      Height = 41
      Caption = 'play iMelody'
      TabOrder = 1
      OnClick = btnPlayiMelodyClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F00
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F001F001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object btnStopPlayiMelody: TBitBtn
      Left = 544
      Top = 232
      Width = 97
      Height = 41
      Caption = 'stop play'
      TabOrder = 2
      OnClick = btnStopPlayiMelodyClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF999999FFFFFFFF9999999999FFFFFF999FFFFF9
        9FFFFFF9999FFFF99FFFFF99F999FFFF99FFFF99FF999FFF99FFFF99FFF999FF
        99FFFF99FFFF999F99FFFFF99FFFF9999FFFFFF99FFFFF999FFFFFF999999999
        9FFFFFFFF999999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object edtRepeats: TEdit
      Left = 16
      Top = 40
      Width = 57
      Height = 21
      TabOrder = 3
      Text = '1'
      OnExit = edtRepeatsCheck
    end
    object edtSpeakerVolume: TEdit
      Left = 112
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 4
      Text = '128'
      OnExit = edtSpeakerVolumeCheck
    end
    object edtBuzzerVolume: TEdit
      Left = 208
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 5
      Text = '4'
      OnExit = edtBuzzerVolumeCheck
    end
    object Device: TGroupBox
      Left = 536
      Top = 16
      Width = 105
      Height = 65
      Caption = 'Device'
      TabOrder = 6
      object RadioButtonSpeaker: TRadioButton
        Left = 8
        Top = 16
        Width = 113
        Height = 17
        Caption = 'Speaker'
        TabOrder = 0
      end
      object RadioButtonBuzzer: TRadioButton
        Left = 8
        Top = 40
        Width = 113
        Height = 17
        Caption = 'Buzzer'
        TabOrder = 1
      end
    end
    object btnSaveMemotoFile: TBitBtn
      Left = 544
      Top = 88
      Width = 97
      Height = 41
      Caption = 'Save to file'
      TabOrder = 7
      OnClick = btnSaveMemotoFileClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFF00000000000FFFF0330000FF030FFFF0330000FF0
        30FFFF033000000030FFFF033333333330FFFF033000000330FFFF030FFFFFF0
        30FFFF030FFFFFF030FFFF030FFFFFF030FFFF030FFFFFF000FFFF030FFFFFF0
        F0FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object btnLoadFromFile: TBitBtn
      Left = 544
      Top = 136
      Width = 97
      Height = 41
      Caption = 'Load from file'
      TabOrder = 8
      OnClick = btnLoadFromFileClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C0000000000420042004200420042004200420042004200001F7C
        1F7C1F7C1F7C0000E07F00000042004200420042004200420042004200420000
        1F7C1F7C1F7C00001F7CE07F0000004200420042004200420042004200420042
        00001F7C1F7C0000E07F1F7CE07F000000420042004200420042004200420042
        004200001F7C00001F7CE07F1F7CE07F00000000000000000000000000000000
        0000000000000000E07F1F7CE07F1F7CE07F1F7CE07F1F7CE07F00001F7C1F7C
        1F7C1F7C1F7C00001F7CE07F1F7CE07F1F7CE07F1F7CE07F1F7C00001F7C1F7C
        1F7C1F7C1F7C0000E07F1F7CE07F00000000000000000000000000001F7C1F7C
        1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C0000
        1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object lblHint: TStaticText
      Left = 440
      Top = 16
      Width = 33
      Height = 17
      BorderStyle = sbsSingle
      Caption = 'lblHint'
      Color = clYellow
      ParentColor = False
      TabOrder = 9
      Visible = False
    end
  end
  object sb_L1sp: TStatusBar
    Left = 0
    Top = 291
    Width = 661
    Height = 41
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object OpenDialog: TOpenDialog
    Left = 296
    Top = 58
  end
  object SaveDialog: TSaveDialog
    Left = 304
    Top = 18
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = HintTimerTimer
    Left = 464
    Top = 8
  end
end

						