fnotes.dfm

模拟钢琴源代码,个人感觉不错,自己可以尝试往上面添加歌词

object frmNotes: TfrmNotes
  Left = 542
  Top = 310
  Width = 308
  Height = 302
  Caption = 'frmNotes'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 0
    Top = 0
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007007777777777777700700007007
      7770000007777007000070077000000000077007000070070000077777007007
      0000700000007777777000070000700000077777777700070000700000777777
      7777000700007000077777777770000700007000777777777700000700007000
      7777777770000007000070000777777700000007000070070077777000007007
      0000700770000000000770070000700777700000077770070000700777777777
      7777700700007777777777777777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton2: TSpeedButton
    Left = 32
    Top = 0
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777777777777777777700007777
      7770000007777777000077777000000000077777000077770000077777007777
      0000777000007777777007770000770000077777777700770000770000777777
      7777007700007700077777777770007700007700777777777700007700007700
      7777777770000077000077700777777700000777000077770077777000007777
      0000777770000000000777770000777777700000077777770000777777777777
      7777777700007777777777777777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton3: TSpeedButton
    Left = 64
    Top = 0
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777770000077777777700007777000077700777777700007770
      0007777770777777000077700077777700777777000077700777777000777777
      0000777077777700007777770000777700777000707777770000777777000007
      7077777700007777777777777077777700007777777777777077777700007777
      7777777770777777000077777777777770777777000077777777777770777777
      0000777777777777707777770000777777777777707777770000777777777777
      7077777700007777777777777077777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton4: TSpeedButton
    Left = 96
    Top = 0
    Width = 32
    Height = 32
    GroupIndex = 1
    Down = True
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000077777777700007777
      7000000077777777000077770000000007777777000077770000000007777777
      0000777700000000077777770000777770000000077777770000777777000007
      0777777700007777777777770777777700007777777777770777777700007777
      7777777707777777000077777777777707777777000077777777777707777777
      0000777777777777077777770000777777777777077777770000777777777777
      0777777700007777777777770777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton5: TSpeedButton
    Left = 0
    Top = 32
    Width = 33
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000777777777700007777
      7000000777777777000077770000000077777777000077770000000077777777
      0000777700000000777777770000777770000000777777770000777777000070
      7777777700007777777777707777777700007777777777707777777700007777
      7777777077777777000077777777777077777777000077777777777077077777
      0000777777777770700777770000777777777770007777770000777777777770
      0777777700007777777777707777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton6: TSpeedButton
    Left = 32
    Top = 32
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000777777777700007777
      7000000777777777000077770000000077777777000077770000000077777777
      0000777700000000777777770000777770000000777777770000777777000070
      7777777700007777777777707777777700007777777777707707777700007777
      7777777070077777000077777777777000777777000077777777777007077777
      0000777777777770700777770000777777777770007777770000777777777770
      0777777700007777777777707777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton7: TSpeedButton
    Left = 64
    Top = 32
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000777777777700007777
      7000000777777777000077770000000077777777000077770000000077777777
      0000777700000000777777770000777770000000770777770000777777000070
      7007777700007777777777700077777700007777777777700707777700007777
      7777777070077777000077777777777000777777000077777777777007077777
      0000777777777770700777770000777777777770007777770000777777777770
      0777777700007777777777707777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton8: TSpeedButton
    Left = 96
    Top = 32
    Width = 32
    Height = 32
    GroupIndex = 1
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000777777777700007777
      7000000777777777000077770000000077077777000077770000000070077777
      0000777700000000007777770000777770000000070777770000777777000070
      7007777700007777777777700077777700007777777777700707777700007777
      7777777070077777000077777777777000777777000077777777777007077777
      0000777777777770700777770000777777777770007777770000777777777770
      0777777700007777777777707777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton9: TSpeedButton
    Left = 0
    Top = 64
    Width = 32
    Height = 32
    AllowAllUp = True
    GroupIndex = 2
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777770000777777777700007777
      7000000777777777000077770000000077707777000077770000000077000777
      0000777700000000777077770000777770000000777777770000777777000070
      7777777700007777777777707777777700007777777777707777777700007777
      7777777077777777000077777777777077777777000077777777777077777777
      0000777777777770777777770000777777777770777777770000777777777770
      7777777700007777777777707777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton10: TSpeedButton
    Left = 32
    Top = 64
    Width = 32
    Height = 32
    AllowAllUp = True
    GroupIndex = 2
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700000007777000777700077700000000
      7770000777000077000070707777070777707077000077707777770777777077
      0000777077777707777770770000777077777707777770770000777077777707
      7777707700007770777777077777707700007770777777077777707700007770
      7777770777777077000077700000000000000077000077777777777777777777
      0000777077777007777770770000777077777770777770770000777707777707
      7777077700007777707777707770777700007777770070077007777700007777
      77777777777777770000}
  end
  object SpeedButton11: TSpeedButton
    Left = 64
    Top = 64
    Width = 32
    Height = 32
    AllowAllUp = True
    GroupIndex = 3
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777077777777777700007777770007777777777700007777
      7770777777777777000077777777777777777777000077777000007777777777
      0000777700000007777777770000777700000007777777770000777700000007
      7777777700007777700000077777777700007777777777077777777700007777
      7777770777777777000077777777770777777777000077777777770777777777
      0000777777777707777777770000777777777707777777770000777777777707
      7777777700007777777777077777777700007777777777777777777700007777
      77777777777777770000}
  end
  object SpeedButton12: TSpeedButton
    Left = 96
    Top = 64
    Width = 32
    Height = 32
    AllowAllUp = True
    GroupIndex = 4
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777700007777777777777777777700007777777777777700777700007777
      7770000000007777000077777000000000077777000077770000777000007777
      0000777700077700000077770000777000077000700007770000777000777777
      7700077700007770007777777700077700007770007777777700077700007770
      0077777777000777000077700077777777000777000077700007777770000777
      0000777700077777700077770000777700007777000077770000777770000000
      0007777700007777777000000777777700007777777777777777777700007777
      77777777777777770000}
  end
end