MTK

开发平台：
C++ Builder

form_ringComposer.dfm：源码内容
							object frmRingComposer: TfrmRingComposer
  Left = 102
  Top = 216
  Width = 824
  Height = 516
  Caption = 'Ring composer'
  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 GroupBoxToneLength: TGroupBox
    Left = 8
    Top = 8
    Width = 801
    Height = 433
    Caption = 'Ring composer'
    TabOrder = 0
    object labelRepeat: TLabel
      Left = 552
      Top = 24
      Width = 40
      Height = 13
      Caption = 'Repeats'
      FocusControl = sb_L1sp
    end
    object Label1: TLabel
      Left = 624
      Top = 24
      Width = 77
      Height = 13
      Caption = 'Speaker volume'
    end
    object Label2: TLabel
      Left = 720
      Top = 24
      Width = 69
      Height = 13
      Caption = 'Buzzer volume'
    end
    object Label3: TLabel
      Left = 416
      Top = 24
      Width = 35
      Height = 13
      Caption = 'Octave'
    end
    object labelDuration: TLabel
      Left = 480
      Top = 24
      Width = 40
      Height = 13
      Caption = 'Duration'
    end
    object Label4: TLabel
      Left = 360
      Top = 24
      Width = 23
      Height = 13
      Caption = 'Style'
    end
    object memoRingComposer: TMemo
      Left = 8
      Top = 160
      Width = 649
      Height = 257
      Lines.Strings = (
        '')
      ReadOnly = True
      TabOrder = 0
    end
    object btnDo: TBitBtn
      Left = 8
      Top = 16
      Width = 25
      Height = 81
      Caption = 'Do'
      TabOrder = 1
      OnClick = btnDoClick
    end
    object btnRe: TBitBtn
      Left = 40
      Top = 16
      Width = 25
      Height = 81
      Caption = 'Re'
      TabOrder = 2
      OnClick = btnReClick
    end
    object BtnMi: TBitBtn
      Left = 72
      Top = 16
      Width = 25
      Height = 81
      Caption = 'Mi'
      TabOrder = 3
      OnClick = BtnMiClick
    end
    object btnFa: TBitBtn
      Left = 104
      Top = 16
      Width = 25
      Height = 81
      Caption = 'Fa'
      TabOrder = 4
      OnClick = btnFaClick
    end
    object btnSo: TBitBtn
      Left = 136
      Top = 16
      Width = 25
      Height = 81
      Caption = 'So'
      TabOrder = 5
      OnClick = btnSoClick
    end
    object btnLa: TBitBtn
      Left = 168
      Top = 16
      Width = 25
      Height = 81
      Caption = 'La'
      TabOrder = 6
      OnClick = btnLaClick
    end
    object btnSi: TBitBtn
      Left = 200
      Top = 16
      Width = 25
      Height = 81
      Caption = 'Si'
      TabOrder = 7
      OnClick = btnSiClick
    end
    object GroupBoxNotes: TGroupBox
      Left = 232
      Top = 16
      Width = 105
      Height = 81
      Caption = ' notes  '
      TabOrder = 8
      object RadioButtonBasicNotes: TRadioButton
        Left = 16
        Top = 16
        Width = 113
        Height = 17
        Caption = 'basic notes'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButtonFlatNotes: TRadioButton
        Left = 16
        Top = 36
        Width = 113
        Height = 17
        Caption = 'flat notes'
        TabOrder = 1
      end
      object RadioButtonSharpNotes: TRadioButton
        Left = 16
        Top = 56
        Width = 113
        Height = 17
        Caption = 'sharp notes'
        TabOrder = 2
      end
    end
    object Device: TGroupBox
      Left = 672
      Top = 88
      Width = 113
      Height = 65
      Caption = 'Device'
      TabOrder = 9
      object RadioButtonSpeaker: TRadioButton
        Left = 8
        Top = 16
        Width = 113
        Height = 17
        Caption = 'Speaker'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButtonBuzzer: TRadioButton
        Left = 8
        Top = 40
        Width = 113
        Height = 17
        Caption = 'Buzzer'
        TabOrder = 1
      end
    end
    object edtRepeats: TEdit
      Left = 544
      Top = 48
      Width = 65
      Height = 21
      TabOrder = 10
      Text = '1'
      OnExit = edtRepeatsCheck
    end
    object edtSpeakerVolume: TEdit
      Left = 632
      Top = 48
      Width = 65
      Height = 21
      TabOrder = 11
      Text = '128'
      OnExit = edtSpeakerVolumeCheck
    end
    object edtBuzzerVolume: TEdit
      Left = 720
      Top = 48
      Width = 65
      Height = 21
      TabOrder = 12
      Text = '4'
      OnExit = edtBuzzerVolumeCheck
    end
    object lblHint: TStaticText
      Left = 424
      Top = 0
      Width = 33
      Height = 17
      BorderStyle = sbsSingle
      Caption = 'lblHint'
      Color = clYellow
      ParentColor = False
      TabOrder = 13
      Visible = False
    end
    object btnSaveMemotoFile: TBitBtn
      Left = 672
      Top = 214
      Width = 113
      Height = 41
      Caption = 'Save to file'
      TabOrder = 14
      OnClick = btnSaveMemotoFileClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFF00000000000FFFF0330000FF030FFFF0330000FF0
        30FFFF033000000030FFFF033333333330FFFF033000000330FFFF030FFFFFF0
        30FFFF030FFFFFF030FFFF030FFFFFF030FFFF030FFFFFF000FFFF030FFFFFF0
        F0FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object btnLoadFromFile: TBitBtn
      Left = 672
      Top = 268
      Width = 113
      Height = 41
      Caption = 'Load from file'
      TabOrder = 15
      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 btnPlayiMelody: TBitBtn
      Left = 672
      Top = 322
      Width = 113
      Height = 41
      Caption = 'play iMelody'
      TabOrder = 16
      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 = 672
      Top = 376
      Width = 113
      Height = 41
      Caption = 'stop play'
      TabOrder = 17
      OnClick = btnStopPlayiMelodyClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF999999FFFFFFFF9999999999FFFFFF999FFFFF9
        9FFFFFF9999FFFF99FFFFF99F999FFFF99FFFF99FF999FFF99FFFF99FFF999FF
        99FFFF99FFFF999F99FFFFF99FFFF9999FFFFFF99FFFFF999FFFFFF999999999
        9FFFFFFFF999999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object edtNotes: TEdit
      Left = 8
      Top = 120
      Width = 649
      Height = 21
      ReadOnly = True
      TabOrder = 18
    end
    object btnLoadFromEditor: TBitBtn
      Left = 672
      Top = 160
      Width = 113
      Height = 41
      Caption = 'Load from Editor'
      TabOrder = 19
      OnClick = btnLoadFromEditorClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
        1F7C1F7C1F7C1F7C1F7C100010001000100010001F7C1F7C1F7C1F7C1F7C1000
        1F7C1F7C1F7C1F7C1F7C10001000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        10001F7C1F7C1F7C1F7C1000100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        10001F7C1F7C1F7C1F7C100010001F7C10001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        10001F7C1F7C1F7C1F7C10001F7C1F7C1F7C100010001F7C1F7C1F7C1F7C1000
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001000100010001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object ComboBoxOctave: TComboBox
      Left = 416
      Top = 48
      Width = 41
      Height = 21
      ItemHeight = 13
      TabOrder = 20
      Text = '*4'
      OnChange = OctaveOnChange
      Items.Strings = (
        '*0'
        '*1'
        '*2'
        '*3'
        '*4'
        '*5'
        '*6'
        '*7'
        '*8')
    end
    object ComboBoxDuration: TComboBox
      Left = 480
      Top = 48
      Width = 41
      Height = 21
      ItemHeight = 13
      TabOrder = 21
      Text = '3'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5')
    end
    object ComboBoxStyle: TComboBox
      Left = 352
      Top = 48
      Width = 41
      Height = 21
      ItemHeight = 13
      TabOrder = 22
      Text = 'S0'
      Items.Strings = (
        'S0'
        'S1'
        'S2')
    end
  end
  object sb_L1sp: TStatusBar
    Left = 0
    Top = 448
    Width = 816
    Height = 41
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object SaveDialog: TSaveDialog
    Left = 352
    Top = 65530
  end
  object OpenDialog: TOpenDialog
    Left = 392
    Top = 65530
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    Left = 472
    Top = 65520
  end
end

						