object fmTranspose: TfmTranspose
  Left = 239
  Top = 147
  HelpContext = 17
  BorderStyle = bsDialog
  Caption = 'Transpose'
  ClientHeight = 189
  ClientWidth = 324
  Color = clSilver
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsItalic]
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object RotateLabel1: TRotateLabel
    Left = 206
    Top = 159
    Width = 108
    Height = 24
    Cursor = crHandPoint
    Hint = 'Click for help'
    Escapement = 0
    TextStyle = tsRecessed
    Caption = 'Transpose'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = RotateLabel1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 70
    Height = 189
    Align = alLeft
    BevelOuter = bvNone
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object labelText: TLabel
      Left = 6
      Top = 122
      Width = 60
      Height = 56
      AutoSize = False
      Caption = 'Set value to transpose all notes by'
      Font.Charset = ANSI_CHARSET
      Font.Color = 8454143
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object panelPlay: TPanel
      Left = 4
      Top = 170
      Width = 19
      Height = 16
      Color = clBlack
      TabOrder = 0
      object iconPlay: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Play'
        Align = alClient
        Center = True
        Picture.Data = {<image000.bmp>}
        OnMouseUp = iconPlayMouseUp
        State = stUp
      end
    end
    object Panel2: TPanel
      Left = 26
      Top = 170
      Width = 19
      Height = 16
      Color = clBlack
      TabOrder = 1
      object IconStop: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Stop'
        Align = alClient
        Center = True
        Picture.Data = {<image001.bmp>}
        OnMouseUp = IconStopMouseUp
        State = stUp
      end
    end
    object btnUndo: tnybutton
      Left = 7
      Top = 63
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Undo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = btnUndoClick
    end
    object btnClose: tnybutton
      Left = 7
      Top = 91
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Cancel = True
      Caption = '&Close'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnCloseClick
    end
    object btnApply: tnybutton
      Left = 7
      Top = 35
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Apply'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btnApplyClick
    end
    object btnOK: tnybutton
      Left = 7
      Top = 7
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&OK'
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btnOkClick
    end
  end
  object PageControl1: TPage95Control
    Left = 80
    Top = 8
    Width = 233
    Height = 145
    ActivePage = TabChange
    ButtonStyle = True
    FlatButtons = True
    FlatSeperators = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    HotTrack = True
    TabInactiveColor = clSilver
    TabInactiveFont.Charset = ANSI_CHARSET
    TabInactiveFont.Color = clWindowText
    TabInactiveFont.Height = -11
    TabInactiveFont.Name = 'Arial'
    TabInactiveFont.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = PageControl1Change
    object TabChange: TTab95Sheet
      Caption = 'Change'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Bevel1: TBevel
        Left = 75
        Top = 29
        Width = 127
        Height = 2
        Style = bsRaised
      end
      object SpeedButton1: TSpeedButton
        Left = 140
        Top = 18
        Width = 20
        Height = 20
        Hint = 'Up 1'
        Glyph.Data = {
          BE000000424DBE00000000000000760000002800000009000000090000000100
          0400000000004800000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
          0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
          0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
          0000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 165
        Top = 21
        Width = 20
        Height = 20
        Hint = 'Down 1'
        Glyph.Data = {
          BE000000424DBE00000000000000760000002800000009000000090000000100
          0400000000004800000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
          0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
          0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
          0000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 90
        Top = 15
        Width = 20
        Height = 20
        Hint = 'Up 12'
        Glyph.Data = {
          BE000000424DBE00000000000000760000002800000009000000090000000100
          0400000000004800000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
          0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000
          0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
          0000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 115
        Top = 25
        Width = 20
        Height = 20
        Hint = 'Down 12'
        Glyph.Data = {
          BE000000424DBE00000000000000760000002800000009000000090000000100
          0400000000004800000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
          0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000
          0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
          0000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton4Click
      end
      object editChange: TEditNew
        Left = 24
        Top = 20
        Width = 34
        Height = 21
        Color = clBlack
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '0'
        OnKeyPress = editChangeKeyPress
        FocusColor = 8454143
        FocusFontColor = clBlack
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object TabSet: TTab95Sheet
      Caption = 'Set'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 77
        Height = 14
        Caption = 'Set all events to'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object editNote: TEdit
        Left = 104
        Top = 20
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 3
        ParentFont = False
        TabOrder = 0
        OnChange = editNoteChange
      end
    end
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 251
    Top = 88
  end
end