PC World 1999 July/PCWorld_1999-07_cd.bin/software/TemaCD/Massiva/MASSIVA.EXE/0/RCDATA/TFMKEY/TFMKEY.txt

Text File | 1999-04-03 | 71KB | 2,514 lines

object fmKey: TfmKey
  Left = 161
  Top = 153
  HelpContext = 2
  AutoScroll = False
  Caption = 'Key'
  ClientHeight = 435
  ClientWidth = 792
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnMouseDown = FormMouseDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SplitIt2: TSplitIt
    Left = 185
    Top = 54
    Width = 3
    Height = 381
    Cursor = crHSplit
    Hint = 'Click and drag to resize list'
    SplitDirection = sdHorizontal
    OnSplit = SplitIt2Split
    Align = alLeft
    ParentShowHint = False
    ShowHint = True
  end
  object Panel9: TPanel
    Left = 188
    Top = 54
    Width = 604
    Height = 381
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel9'
    TabOrder = 0
    object SplitIt1: TSplitIt
      Left = 0
      Top = 295
      Width = 604
      Hint = 'Click and drag to resize controller'
      OnSplit = SplitIt1Split
      Align = alBottom
      Color = 13421772
      ParentShowHint = False
      ShowHint = True
    end
    object panelBottom: TPanel
      Tag = 82
      Left = 0
      Top = 299
      Width = 604
      Height = 82
      Align = alBottom
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 0
      object Panel8: TPanel
        Left = 34
        Top = 21
        Width = 570
        Height = 61
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel8'
        TabOrder = 0
        object panelControll: TPanel
          Left = 0
          Top = 0
          Width = 570
          Height = 45
          Align = alClient
          BevelOuter = bvNone
          BorderStyle = bsSingle
          Caption = 'panelControll'
          TabOrder = 0
          object control: TScroll
            Left = 0
            Top = 0
            Width = 566
            Height = 41
            TabOrder = 0
            ParentFont = False
            PopupMenu = PopupControl
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -12
            Font.Name = 'Arial'
            Font.Style = []
            Align = alClient
            Color = clBlack
            OnPaint = controlPaint
            OnMouseDown = controlMouseDown
            OnMouseMove = controlMouseMove
            OnMouseUp = controlMouseUp
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 45
          Width = 570
          Height = 16
          Align = alBottom
          BevelOuter = bvNone
          Caption = 'Panel3'
          TabOrder = 1
          object sbHorzMore: TSpeedButton
            Left = 233
            Top = 0
            Width = 15
            Height = 16
            Hint = 'Zoom in'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Glyph.Data = {
              BE000000424DBE00000000000000760000002800000009000000090000000100
              0400000000004800000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFF000
              0000FFCCFFFFF0000000FFCCCFFFF0000000FFCCCCFFF0000000FFCCCCCFF000
              0000FFCCCCFFF0000000FFCCCFFFF0000000FFCCFFFFF0000000FFCFFFFFF000
              0000}
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            Spacing = 0
            OnClick = sbHorzMoreClick
          end
          object sbHorzLess: TSpeedButton
            Left = 217
            Top = 0
            Width = 15
            Height = 16
            Hint = 'Zoom out'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Glyph.Data = {
              BE000000424DBE00000000000000760000002800000009000000090000000100
              0400000000004800000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFF000
              0000FFFFFCCFF0000000FFFFCCCFF0000000FFFCCCCFF0000000FFCCCCCFF000
              0000FFFCCCCFF0000000FFFFCCCFF0000000FFFFFCCFF0000000FFFFFFCFF000
              0000}
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            Spacing = 0
            OnClick = sbHorzLessClick
          end
          object sbNavigator: TSpeedButton
            Left = 200
            Top = 0
            Width = 15
            Height = 16
            Hint = 'Transporter on/off'
            Caption = 'T'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            Spacing = 0
            OnClick = sbNavigatorClick
          end
          object sbKeyHorz: TScrollBar
            Left = 71
            Top = 0
            Width = 121
            Height = 16
            Max = 0
            TabOrder = 0
            TabStop = False
            OnChange = sbKeyHorzChange
            OnScroll = sbKeyHorzScroll
          end
          object Panel5: TPanel
            Left = 554
            Top = 0
            Width = 16
            Height = 16
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 1
            object SpeedButton2: TSpeedButton
              Left = 0
              Top = 0
              Width = 15
              Height = 16
              Hint = 'Zoom 1:1'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Glyph.Data = {
                C6000000424DC60000000000000076000000280000000A0000000A0000000100
                0400000000005000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
                0000FCCCCCCFFF000000FCCCCCFFFF000000FCCCCFFFCF000000FCCCFFFCCF00
                0000FCCFFFCCCF000000FCFFFCCCCF000000FFFFCCCCCF000000FFFCCCCCCF00
                0000FFFFFFFFFF000000}
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = SpeedButton2Click
            end
          end
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 21
        Width = 34
        Height = 61
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel7'
        TabOrder = 1
        object Panel1: TPanel
          Left = 0
          Top = 0
          Width = 34
          Height = 61
          Align = alLeft
          BevelOuter = bvNone
          Caption = 'Panel7'
          TabOrder = 0
          object panelValue2: TPanel
            Left = 0
            Top = 0
            Width = 34
            Height = 61
            Align = alLeft
            BevelOuter = bvNone
            FullRepaint = False
            TabOrder = 0
            object panelValue: TPanel
              Left = 0
              Top = 0
              Width = 34
              Height = 45
              Align = alClient
              BevelOuter = bvNone
              Color = clBlack
              Font.Charset = ANSI_CHARSET
              Font.Color = clWhite
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold]
              ParentFont = False
              TabOrder = 0
            end
            object Panel4: TPanel
              Left = 0
              Top = 45
              Width = 34
              Height = 16
              Cursor = crHandPoint
              Hint = '[F8] Velocity'
              Align = alBottom
              BevelOuter = bvNone
              Caption = 'Vel'
              Color = clBlack
              Font.Charset = ANSI_CHARSET
              Font.Color = clWhite
              Font.Height = -11
              Font.Name = 'Arial'
              Font.Style = [fsBold]
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              OnMouseDown = Panel4MouseDown
              OnMouseUp = Panel4MouseUp
            end
          end
        end
      end
      object PanelToolCC: TPanel
        Left = 0
        Top = 0
        Width = 604
        Height = 21
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object labelCtrlValue: TLabel
          Left = 259
          Top = 3
          Width = 65
          Height = 14
          AutoSize = False
          Caption = 'Insert �'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Transparent = True
          Visible = False
        end
        object SS: TBevel
          Left = 141
          Top = 2
          Width = 4
          Height = 15
        end
        object bevelCtrlValue: TBevel
          Left = 248
          Top = 2
          Width = 4
          Height = 15
          Visible = False
        end
        object sbCC: TSpeedButton
          Left = 4
          Top = 0
          Width = 133
          Height = 19
          Cursor = crHandPoint
          Hint = '[F8] Controllers...'
          Caption = 'Velocity'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            BE000000424DBE00000000000000760000002800000009000000090000000100
            0400000000004800000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF0FFFF000
            0000FFFF0FFFF0000000FFF000FFF0000000FFF000FFF0000000FF00000FF000
            0000FF00000FF0000000F0000000F0000000F0000000F0000000FFFFFFFFF000
            0000}
          Margin = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Spacing = 2
          OnClick = sbCCClick
        end
        object sbIns: TSpeedButton
          Left = 353
          Top = 0
          Width = 35
          Height = 19
          Cursor = crHandPoint
          Hint = 'Insert event'
          Caption = 'Ins'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Spacing = 0
          Visible = False
          OnClick = sbInsClick
        end
        object sbDel: TSpeedButton
          Left = 390
          Top = 0
          Width = 35
          Height = 19
          Cursor = crHandPoint
          Hint = 'Delete event'
          Caption = 'Del'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Spacing = 0
          Visible = False
          OnClick = sbDelClick
        end
        object sbQuick: TSpeedButton
          Left = 152
          Top = 0
          Width = 91
          Height = 19
          Cursor = crHandPoint
          Hint = 'Quick select...'
          Caption = 'Quick select'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            BE000000424DBE00000000000000760000002800000009000000090000000100
            0400000000004800000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF0FFFF000
            0000FFFF0FFFF0000000FFF000FFF0000000FFF000FFF0000000FF00000FF000
            0000FF00000FF0000000F0000000F0000000F0000000F0000000FFFFFFFFF000
            0000}
          Margin = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Spacing = 2
          OnClick = sbQuickClick
        end
        object editCtrlValue: TEditIncDec
          Left = 312
          Top = 0
          Width = 37
          Height = 21
          Hint = 'Step insert value'
          TabStop = False
          AutoSize = False
          Color = clBlack
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ParentShowHint = False
          PopupMenu = editCtrlValue.
          ShowHint = True
          TabOrder = 0
          Text = '64'
          Visible = False
          OnExit = editCtrlvalueExit
          OnKeyDown = editCtrlValueKeyDown
          Min = 50
          Max = 250
        end
        object Panel18: TPanel
          Left = 586
          Top = 0
          Width = 18
          Height = 21
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 1
          object SpeedButton1: TSpeedButton
            Left = 0
            Top = 0
            Width = 16
            Height = 17
            Cursor = crHandPoint
            Hint = 'Close'
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            Glyph.Data = {
              BE000000424DBE00000000000000760000002800000009000000090000000100
              0400000000004800000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000
              000077777777700000007777F77770000000777777777000000077FFFFF77000
              00007777777770000000FFFFFFFFF00000007777777770000000777777777000
              0000}
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton1Click
          end
        end
      end
    end
    object panelTop: TPanel
      Left = 0
      Top = 0
      Width = 604
      Height = 295
      Align = alClient
      BevelOuter = bvNone
      Caption = 'panelTop'
      TabOrder = 1
      object panelLeft: TPanel
        Left = 0
        Top = 0
        Width = 34
        Height = 295
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'panelLeft'
        TabOrder = 0
        object panelKeyboardTop: TPanel
          Left = 0
          Top = 0
          Width = 34
          Height = 21
          Align = alTop
          BevelOuter = bvNone
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
        end
        object panelKeyboard: TPanel
          Left = 0
          Top = 21
          Width = 34
          Height = 274
          Align = alClient
          BevelOuter = bvNone
          BorderStyle = bsSingle
          Caption = 'panelKeyboard'
          TabOrder = 1
          object Keyboard: TScroll
            Left = 0
            Top = 0
            Width = 30
            Height = 270
            Cursor = crHandPoint
            TabOrder = 0
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clGray
            Font.Height = -7
            Font.Name = 'Small Fonts'
            Font.Style = []
            Align = alClient
            Color = clWhite
            OnPaint = KeyboardPaint
            OnMouseDown = KeyboardMouseDown
            OnMouseMove = KeyboardMouseMove
            OnMouseUp = KeyboardMouseUp
          end
        end
      end
      object panelKeyRight: TPanel
        Left = 34
        Top = 0
        Width = 570
        Height = 295
        Align = alClient
        BevelOuter = bvNone
        Caption = 'panelKeyRight'
        TabOrder = 1
        object Panel2: TPanel
          Left = 0
          Top = 21
          Width = 570
          Height = 274
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel2'
          Color = clHighlightText
          TabOrder = 0
          object panelKey: TPanel
            Left = 0
            Top = 0
            Width = 570
            Height = 274
            Align = alClient
            BevelOuter = bvNone
            BorderStyle = bsSingle
            Caption = 'panelKey'
            TabOrder = 0
            OnResize = panelKeyResize
            object key: TScroll
              Left = 0
              Top = 0
              Width = 550
              Height = 270
              TabOrder = 0
              ParentFont = False
              PopupMenu = PopupKey
              Font.Charset = ANSI_CHARSET
              Font.Color = clSilver
              Font.Height = -8
              Font.Name = 'Small Fonts'
              Font.Style = [fsBold]
              Align = alClient
              Color = clBlack
              OnPaint = keyPaint
              OnMouseDown = keyMouseDown
              OnMouseMove = keyMouseMove
              OnMouseUp = keyMouseUp
            end
            object Panel10: TPanel
              Left = 550
              Top = 0
              Width = 16
              Height = 270
              Align = alRight
              BevelOuter = bvNone
              Caption = 'Panel9'
              TabOrder = 1
              object sbVertMore: TSpeedButton
                Left = 1
                Top = 147
                Width = 15
                Height = 16
                Hint = 'Zoom in'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                Glyph.Data = {
                  BE000000424DBE00000000000000760000002800000009000000090000000100
                  0400000000004800000000000000000000001000000000000000000000000000
                  80000080000000808000800000008000800080800000C0C0C000808080000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
                  0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
                  0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
                  0000}
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                Spacing = 0
                OnClick = sbVertMoreClick
              end
              object sbVertLess: TSpeedButton
                Left = 1
                Top = 131
                Width = 15
                Height = 16
                Hint = 'Zoom out'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                Glyph.Data = {
                  BE000000424DBE00000000000000760000002800000009000000090000000100
                  0400000000004800000000000000000000001000000000000000000000000000
                  80000080000000808000800000008000800080800000C0C0C000808080000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
                  0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
                  0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
                  0000}
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                Spacing = 0
                OnClick = sbVertLessClick
              end
              object sbKeyVert: TScrollBar
                Left = 1
                Top = 7
                Width = 16
                Height = 121
                Kind = sbVertical
                TabOrder = 0
                TabStop = False
                OnChange = sbKeyVertChange
                OnScroll = sbKeyVertScroll
              end
            end
          end
        end
        object panelMeter: TPanel
          Left = 0
          Top = 0
          Width = 570
          Height = 21
          Align = alTop
          BevelOuter = bvNone
          BorderStyle = bsSingle
          Caption = 'panelMeter'
          TabOrder = 1
          object meter: TScroll
            Left = 0
            Top = 0
            Width = 566
            Height = 17
            TabOrder = 0
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clGray
            Font.Height = -9
            Font.Name = 'Small Fonts'
            Font.Style = []
            Align = alClient
            Color = clWhite
            OnPaint = meterPaint
            OnMouseDown = meterMouseDown
            OnMouseMove = meterMouseMove
            OnMouseUp = meterMouseUp
          end
        end
      end
    end
  end
  object panelList: TPanel
    Left = 0
    Top = 54
    Width = 185
    Height = 381
    Align = alLeft
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    Visible = False
    object Panel14: TPanel
      Left = 165
      Top = 0
      Width = 16
      Height = 377
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Panel15: TPanel
        Left = 0
        Top = 0
        Width = 16
        Height = 17
        Align = alTop
        BevelOuter = bvNone
        Color = clSilver
        TabOrder = 0
        object SpeedButton5: TSpeedButton
          Left = 0
          Top = 0
          Width = 16
          Height = 17
          Cursor = crHandPoint
          Hint = 'Close'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Glyph.Data = {
            BE000000424DBE00000000000000760000002800000009000000090000000100
            0400000000004800000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000
            000077777777700000007777F77770000000777777777000000077FFFFF77000
            00007777777770000000FFFFFFFFF00000007777777770000000777777777000
            0000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton5Click
        end
      end
      object sbListVert: TScrollBar
        Left = 1
        Top = 47
        Width = 16
        Height = 121
        Kind = sbVertical
        LargeChange = 54
        SmallChange = 18
        TabOrder = 1
        TabStop = False
        OnChange = sbListVertChange
        OnScroll = sbListVertScroll
      end
    end
    object Panel16: TPanel
      Left = 0
      Top = 0
      Width = 165
      Height = 377
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel16'
      TabOrder = 1
      object listTitles: THeaderControl
        Left = 0
        Top = 0
        Width = 165
        Height = 19
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Sections = <
          item
            Text = 'Time'
            Width = 70
          end
          item
            Text = 'Ch'
            Width = 50
          end
          item
            Text = 'Status'
            Width = 50
          end
          item
            Text = 'Data-1'
            Width = 50
          end
          item
            Text = 'Data-2'
            Width = 50
          end>
        ParentFont = False
        OnSectionClick = listTitlesSectionClick
        OnSectionResize = listTitlesSectionResize
      end
      object list: TScroll
        Left = 0
        Top = 19
        Width = 165
        Height = 358
        Cursor = crHandPoint
        TabOrder = 1
        ParentFont = False
        PopupMenu = PopupKey
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        Align = alClient
        Color = clBlack
        OnPaint = listPaint
        OnMouseDown = listMouseDown
        OnMouseMove = listMouseMove
        OnMouseUp = listMouseUp
        OnDblClick = listDblClick
      end
    end
  end
  object editbar: TPanel
    Left = 0
    Top = 25
    Width = 792
    Height = 29
    Hint = 'Editbar'
    Align = alTop
    BevelOuter = bvNone
    Color = 13421772
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object sbVelUp: TSpeedButton
      Left = 310
      Top = 4
      Width = 20
      Height = 20
      Hint = 'Inc velocity'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
        CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
        0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbVelUpClick
    end
    object sbVelDown: TSpeedButton
      Left = 331
      Top = 4
      Width = 20
      Height = 20
      Hint = 'Dec velocity'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
        CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
        0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbVelDownClick
    end
    object sbMoveLeft1: TSpeedButton
      Left = 489
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Left] Move left'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFFFFF
        FFF8FF000000FFFFFCCFFFFFFF88FF000000FFFFCCCFFFFFF888FF000000FFFC
        CCCFFFFF8888FF000000FFCCCCCFFFF88888FF000000FFFCCCCFFFFF8888FF00
        0000FFFFCCCFFFFFF888FF000000FFFFFCCFFFFFFF88FF000000FFFFFFCFFFFF
        FFF8FF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveLeft1Click
    end
    object sbMoveRight1: TSpeedButton
      Left = 510
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Right] Move right'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFFFF8
        FFFFFF000000FFCCFFFFFFF88FFFFF000000FFCCCFFFFFF888FFFF000000FFCC
        CCFFFFF8888FFF000000FFCCCCCFFFF88888FF000000FFCCCCFFFFF8888FFF00
        0000FFCCCFFFFFF888FFFF000000FFCCFFFFFFF88FFFFF000000FFCFFFFFFFF8
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveRight1Click
    end
    object Label4: TLabel
      Left = 453
      Top = 8
      Width = 30
      Height = 14
      Caption = 'Move'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object sbMoveUp12: TSpeedButton
      Left = 535
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Shift + Up] Up 12'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FFFF
        FFFFFFFFFFFFFF000000FFCCCCCFFFF88888FF000000FFFFFFFFFFFFFFFFFF00
        0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveUp12Click
    end
    object sbMoveDown12: TSpeedButton
      Left = 556
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Shift + Down] Down 12'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFF
        FFFFFFFFFFFFFF000000FFCCCCCFFFF88888FF000000FFFFFFFFFFFFFFFFFF00
        0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveDown12Click
    end
    object sbMoveUp1: TSpeedButton
      Left = 581
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Up] Up one'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
        CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
        0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveUp1Click
    end
    object sbMoveDown1: TSpeedButton
      Left = 602
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Ctrl + Down] Down one'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
        CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
        0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveDown1Click
    end
    object Label5: TLabel
      Left = 641
      Top = 8
      Width = 39
      Height = 14
      Caption = 'Length'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object sbLengthLeft: TSpeedButton
      Left = 722
      Top = 4
      Width = 21
      Height = 20
      Hint = '[Alt + Left] Shrink event'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFFFFF
        FFF8FF000000FFFFFCCFFFFFFF88FF000000FFFFCCCFFFFFF888FF000000FFFC
        CCCFFFFF8888FF000000FFCCCCCFFFF88888FF000000FFFCCCCFFFFF8888FF00
        0000FFFFCCCFFFFFF888FF000000FFFFFCCFFFFFFF88FF000000FFFFFFCFFFFF
        FFF8FF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbLengthLeftClick
    end
    object sbLengthRight: TSpeedButton
      Left = 744
      Top = 4
      Width = 20
      Height = 20
      Hint = '[Alt + Right] Expand event'
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFFFF8
        FFFFFF000000FFCCFFFFFFF88FFFFF000000FFCCCFFFFFF888FFFF000000FFCC
        CCFFFFF8888FFF000000FFCCCCCFFFF88888FF000000FFCCCCFFFFF8888FFF00
        0000FFCCCFFFFFF888FFFF000000FFCCFFFFFFF88FFFFF000000FFCFFFFFFFF8
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbLengthRightClick
    end
    object Label6: TLabel
      Left = 371
      Top = 8
      Width = 25
      Height = 14
      Caption = 'Note'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Bevel6: TBevel
      Left = 361
      Top = 5
      Width = 4
      Height = 19
    end
    object Bevel4: TBevel
      Left = 630
      Top = 5
      Width = 4
      Height = 19
    end
    object Bevel8: TBevel
      Left = 443
      Top = 5
      Width = 4
      Height = 19
    end
    object Label3: TLabel
      Left = 7
      Top = 8
      Width = 28
      Height = 14
      Caption = 'Time'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 79
      Top = 8
      Width = 3
      Height = 14
      Caption = ':'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 112
      Top = 8
      Width = 3
      Height = 14
      Caption = ':'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 167
      Top = 8
      Width = 15
      Height = 14
      Caption = 'Ch'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Bevel9: TBevel
      Left = 157
      Top = 5
      Width = 4
      Height = 19
    end
    object Bevel10: TBevel
      Left = 223
      Top = 5
      Width = 4
      Height = 19
    end
    object Panel11: TPanel
      Left = 263
      Top = 5
      Width = 42
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      object editVel: TEditNew
        Left = 4
        Top = 3
        Width = 33
        Height = 19
        Hint = 'Enter velocity'
        TabStop = False
        BorderStyle = bsNone
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editVelKeyDown
        OnKeyPress = editVelKeyPress
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object Panel12: TPanel
      Left = 403
      Top = 5
      Width = 33
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      object editNote: TEditNew
        Left = 5
        Top = 3
        Width = 24
        Height = 19
        Hint = 'Enter note'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editNoteKeyDown
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object Panel13: TPanel
      Left = 684
      Top = 5
      Width = 33
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 2
      object editLength: TEditNew
        Left = 5
        Top = 3
        Width = 24
        Height = 19
        Hint = 'Enter length'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editLengthKeyDown
        OnKeyPress = editLengthKeyPress
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object panelVel1: TPanel
      Left = 227
      Top = 5
      Width = 33
      Height = 19
      Cursor = crHandPoint
      Hint = 'Velocity'
      BevelOuter = bvNone
      Caption = 'Vel'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = panelVel1Click
    end
    object Panel17: TPanel
      Left = 39
      Top = 5
      Width = 37
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 4
      object editBars: TEditNew
        Left = 5
        Top = 3
        Width = 28
        Height = 19
        Hint = 'Bars'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editBarsKeyDown
        OnKeyPress = editBarsKeyPress
        OnMouseDown = editBarsMouseDown
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object Panel19: TPanel
      Left = 84
      Top = 5
      Width = 25
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 5
      object editBeats: TEditNew
        Left = 5
        Top = 3
        Width = 16
        Height = 19
        Hint = 'Beats'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editBeatsKeyDown
        OnKeyPress = editBeatsKeyPress
        OnMouseDown = editBeatsMouseDown
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object Panel20: TPanel
      Left = 117
      Top = 5
      Width = 33
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 6
      object editTicks: TEditNew
        Left = 5
        Top = 3
        Width = 24
        Height = 19
        Hint = 'Ticks'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editTicksKeyDown
        OnKeyPress = editTicksKeyPress
        OnMouseDown = editTicksMouseDown
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
    object Panel21: TPanel
      Left = 191
      Top = 5
      Width = 25
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 7
      object editCh: TEditNew
        Left = 5
        Top = 3
        Width = 16
        Height = 19
        Hint = 'MIDI ch'
        TabStop = False
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyDown = editChKeyDown
        OnKeyPress = editChKeyPress
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
  end
  object Toolbar: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 25
    Hint = 'Toolbar'
    Align = alTop
    BevelOuter = bvNone
    Color = 13421772
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDblClick = ToolbarDblClick
    object btnLoop: TSpeedButton
      Left = 2
      Top = 3
      Width = 55
      Height = 20
      Hint = 'Loop between left - right on/off'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Loop'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Glyph.Data = {
        C6000000424DC60000000000000076000000280000000A0000000A0000000100
        0400000000005000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
        0000FFF4444FFF000000FFCCCCC4FF000000FCC4FFFFFF000000FC4FFFF44F00
        0000FC4FFF4C44000000FCC4FFFC4F000000FFCC4444FF000000FFFCCC4FFF00
        0000FFFFFFFFFF000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnLoopClick
    end
    object Label1: TLabel
      Left = 394
      Top = 6
      Width = 25
      Height = 14
      Caption = 'bpm'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 466
      Top = 6
      Width = 39
      Height = 14
      Caption = 'Editres'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object sbDefault: TSpeedButton
      Left = 198
      Top = 3
      Width = 25
      Height = 20
      Hint = '[F2] Default mode'
      GroupIndex = 4
      Down = True
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFF4FFFFFFFF8FFF000000FFCF4FFFFFF8F8FFFF000000FFCC
        CFFFFFF888FFFF000000FFCCC4FFFFF8888FFF000000FFCC4FFFFFF888FFFF00
        0000FFC4FFFFFFF88FFFFF000000FF4FFFFFFFF8FFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbDefaultClick
    end
    object sbInsert: TSpeedButton
      Left = 226
      Top = 3
      Width = 21
      Height = 20
      Hint = '[F3] Insert mode'
      GroupIndex = 4
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      Glyph.Data = {
        26010000424D260100000000000076000000280000001E0000000B0000000100
        040000000000B000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF00CF44FCF444FFFFF8F88F8F888FFFFF00FFFFFFFCCC4F
        FFFFFFFFFF8888FFFF00FFFFFFFCCCF4FFFFFFFFFF888F8FFF00FFFFFFFFCFCC
        4FFFFFFFFFF8F888FF00FFFFFFFFFCCCC4FFFFFFFFFF88888F00FFFFFFFFFFCC
        CCFFFFFFFFFFF8888F00FFFFFFFFFFFCCCFFFFFFFFFFFF888F00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF00}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbInsertClick
    end
    object sbStep: TSpeedButton
      Left = 249
      Top = 3
      Width = 22
      Height = 20
      Hint = '[F4] Step mode - notes'
      GroupIndex = 4
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      Glyph.Data = {
        FA000000424DFA000000000000007600000028000000160000000B0000000100
        0400000000008400000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF44FF
        FFFFFFF88F00FFFFFFFCCC4FFFFFFF888800F44FFFFCCC4F88FFFF888800CCC4
        FFFFFFF8888FFFFFFF00CCC4FFF4CC48888FFF888800FFFFFFFCCC4FFFFFFF88
        88004CC4FFCCCC48888FF8888800CCC4FFCCCC48888FF8888800CCCC4FFCC4F8
        8888FF888F00CCCC4FFFFFF88888FFFFFF00FCC4FFFFFFFF888FFFFFFF00}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbStepClick
    end
    object sbSnap: TSpeedButton
      Left = 316
      Top = 3
      Width = 56
      Height = 20
      Hint = 'Snap to editres'
      AllowAllUp = True
      GroupIndex = 8
      Down = True
      Caption = 'Snap'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Glyph.Data = {
        CE000000424DCE0000000000000076000000280000000F0000000B0000000100
        0400000000005800000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F8FFF8FFF8FF
        F8F088888CCCCCCCCC80F8FFFCCCCCCCCCF0F8FFFCCCCCCCCCF0F8FFFCCCCCCC
        CCF088888CCCCCCCCC80F8FFF8FFF8FFF8F0F8FFF8FFF8FFF8F0F8FFF8FFF8FF
        F8F08888888888888880F8FFF8FFF8FFF8F0}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object sbSolo: TSpeedButton
      Left = 60
      Top = 3
      Width = 37
      Height = 20
      Hint = '[S] Track solo on/off'
      AllowAllUp = True
      GroupIndex = 20
      Caption = 'Solo'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbSoloClick
    end
    object sbPrior: TSpeedButton
      Left = 563
      Top = 3
      Width = 18
      Height = 20
      Hint = 'Prior part'
      AllowAllUp = True
      Caption = '<'
      Enabled = False
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbPriorClick
    end
    object sbNext: TSpeedButton
      Left = 582
      Top = 3
      Width = 18
      Height = 20
      Hint = 'Next part'
      AllowAllUp = True
      Caption = '>'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbNextClick
    end
    object sbStepCtrl: TSpeedButton
      Left = 274
      Top = 3
      Width = 22
      Height = 20
      Hint = '[F5] Step mode - controllers'
      GroupIndex = 4
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      Glyph.Data = {
        26010000424D260100000000000076000000280000001E0000000B0000000100
        040000000000B000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFCCCCCCCCCF
        FFFFF888888888FFFF00FFCCCCCCCCCFFFFFF888888888FFFF00FFCCCCCCCCCF
        FFFFF888888888FFFF00FFFFFCCCCCCFFFFFFFFF888888FFFF00FFFFFCCCCCCF
        FFFFFFFF888888FFFF00FFFFFFFFCCCFFFFFFFFFFFF888FFFF00FFFFFFFFCCCF
        FFFFFFFFFFF888FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF00}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbStepCtrlClick
    end
    object sbSoloNotes: TSpeedButton
      Left = 99
      Top = 3
      Width = 77
      Height = 20
      Hint = 'Toggle mute on/off on selected notes'
      AllowAllUp = True
      Caption = 'Mute notes'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbSoloNotesClick
    end
    object Bevel1: TBevel
      Left = 186
      Top = 3
      Width = 4
      Height = 19
    end
    object Bevel2: TBevel
      Left = 304
      Top = 3
      Width = 4
      Height = 19
    end
    object Bevel3: TBevel
      Left = 381
      Top = 3
      Width = 4
      Height = 19
    end
    object Bevel5: TBevel
      Left = 551
      Top = 3
      Width = 4
      Height = 19
    end
    object panelRes: TPanel
      Left = 513
      Top = 3
      Width = 30
      Height = 19
      Cursor = crHandPoint
      Hint = '[Click or 1 - 5] Set edit resolution'
      BevelOuter = bvNone
      Caption = '16'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnMouseDown = panelResMouseDown
      OnMouseUp = panelResMouseUp
    end
    object Panel6: TPanel
      Left = 425
      Top = 3
      Width = 30
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      object editBpm: TEditNew
        Left = 3
        Top = 3
        Width = 32
        Height = 21
        Hint = 'Tempo'
        TabStop = False
        BorderStyle = bsNone
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        PopupMenu = fmArrange.PopupTempo
        ShowHint = True
        TabOrder = 0
        OnDblClick = editBpmDblClick
        OnKeyDown = editBpmKeyDown
        OnKeyPress = editBpmKeyPress
        FocusColor = clBlack
        FocusFontColor = clWhite
        NoFocusColor = clBlack
        NoFocusFontColor = clWhite
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 64
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 5
      ShortCut = 16460
      OnClick = Edit1Click
      object Undo1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = Undo1Click
      end
      object Undoallediting1: TMenuItem
        Caption = 'U&ndo all editing'
        ShortCut = 24666
        OnClick = Undoallediting1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Selectallevents1: TMenuItem
        Caption = 'Select &all notes'
        ShortCut = 16449
        OnClick = Selectallevents1Click
      end
      object Selectallevents2: TMenuItem
        Caption = 'Select all &events'
        ShortCut = 24641
        OnClick = Selectallevents2Click
      end
      object Invertselection1: TMenuItem
        Caption = '&Invert selection'
        ShortCut = 16457
        OnClick = Invertselection1Click
      end
      object Selectallwith1: TMenuItem
        Caption = '&Select events with same...'
        object Status1: TMenuItem
          Caption = '&Status'
          OnClick = Status1Click
        end
        object N21: TMenuItem
          Caption = '-'
        end
        object Samenote1: TMenuItem
          Caption = '&Note/cc'
          OnClick = Samenote1Click
        end
        object Samevelocity1: TMenuItem
          Caption = '&Velocity/value'
          OnClick = Samevelocity1Click
        end
        object SameMIDIch1: TMenuItem
          Caption = '&MIDI ch'
          OnClick = SameMIDIch1Click
        end
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        RadioItem = True
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste at Song pos'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Arrange1: TMenuItem
        Caption = 'E&dit song'
        ShortCut = 27
        OnClick = Arrange1Click
      end
    end
    object Track1: TMenuItem
      Caption = '&Track'
      GroupIndex = 5
      object Ch1: TMenuItem
        Caption = '&Ch'
      end
      object Output1: TMenuItem
        Caption = '&Output'
      end
      object Program1: TMenuItem
        Caption = '&Bank / Program..'
        OnClick = Program1Click
      end
      object Rename1: TMenuItem
        Caption = '&Rename...'
        OnClick = Rename1Click
      end
      object Transpose3: TMenuItem
        Caption = '&Transpose input...'
        OnClick = Transpose3Click
      end
      object N16: TMenuItem
        Caption = '-'
        Enabled = False
      end
      object Mute1: TMenuItem
        Caption = '&Mute'
        ShortCut = 77
        OnClick = Mute1Click
      end
      object Solo1: TMenuItem
        Caption = '&Solo'
        ShortCut = 83
        OnClick = Solo1Click
      end
    end
    object Part1: TMenuItem
      Caption = '&Part'
      GroupIndex = 5
      OnClick = Part1Click
      object Delete5: TMenuItem
        Caption = 'Delete'
        Enabled = False
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Compose1: TMenuItem
        Caption = '&Compose'
        OnClick = Compose1Click
        object Notes1: TMenuItem
          Caption = '&Notes...'
          ShortCut = 16433
          OnClick = Notes1Click
        end
        object Controllers1: TMenuItem
          Caption = '&Controllers...'
          ShortCut = 16434
          OnClick = Controllers1Click
        end
        object AWENRPN1: TMenuItem
          Caption = '&AWE NRPN'
          ShortCut = 16435
          OnClick = AWENRPN1Click
        end
      end
      object Delete2: TMenuItem
        Caption = '&Delete'
        OnClick = Delete2Click
        object Aftertouch1: TMenuItem
          Caption = 'Aftertouch'
          Enabled = False
        end
        object AWENRPN4: TMenuItem
          Caption = '&AWE NRPN'
          OnClick = AWENRPN4Click
        end
        object Controllers2: TMenuItem
          Caption = '&Control change'
          OnClick = Controllers2Click
        end
        object Notes2: TMenuItem
          Caption = '&Notes'
          OnClick = Notes2Click
        end
        object Pithbend1: TMenuItem
          Caption = '&Pith bend'
          OnClick = Pithbend1Click
        end
        object Programchange1: TMenuItem
          Caption = 'P&rogram change'
          OnClick = Programchange1Click
        end
        object Sysex1: TMenuItem
          Caption = '&Sysex'
          Enabled = False
        end
        object N9: TMenuItem
          Caption = '-'
        end
        object Doublenotes1: TMenuItem
          Caption = '&Double notes'
          OnClick = Doublenotes1Click
        end
      end
      object Echo1: TMenuItem
        Caption = '&Echo...'
        OnClick = Echo1Click
      end
      object Grooves1: TMenuItem
        Caption = 'Grooves...'
        ShortCut = 8263
        OnClick = Grooves1Click
      end
      object Legato1: TMenuItem
        Caption = '&Legato'
        OnClick = Legato1Click
      end
      object Length1: TMenuItem
        Caption = 'L&ength'
        OnClick = Length1Click
      end
      object Overlap1: TMenuItem
        Caption = 'Overlap'
        OnClick = Overlap1Click
      end
      object Quantize1: TMenuItem
        Caption = '&Quantize'
        ShortCut = 81
        OnClick = Quantize1Click
      end
      object Transpose1: TMenuItem
        Caption = '&Transpose...'
        ShortCut = 16468
        OnClick = Transpose1Click
      end
      object Velocity1: TMenuItem
        Caption = '&Velocity...'
        ShortCut = 86
        OnClick = Velocity1Click
      end
    end
    object Event1: TMenuItem
      Caption = 'E&vent'
      GroupIndex = 5
      OnClick = Event1Click
      object Delete1: TMenuItem
        Caption = '&Delete'
        ShortCut = 46
        OnClick = Delete1Click
      end
      object Keep1: TMenuItem
        Caption = '&Keep'
        OnClick = Keep1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Deleteonly1: TMenuItem
        Caption = 'Delete same as selected'
        OnClick = Deleteonly1Click
      end
      object Keeponly1: TMenuItem
        Caption = 'Keep same as selected'
        OnClick = Keeponly1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Stretchtoend1: TMenuItem
        Caption = '&Stretch to end'
        ShortCut = 8227
        OnClick = Stretchtoend1Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object Rotateleft1: TMenuItem
        Caption = 'Rotate &left'
        ShortCut = 49189
        OnClick = Rotateleft1Click
      end
      object Rotateright1: TMenuItem
        Caption = 'Rotate &right'
        ShortCut = 49191
        OnClick = Rotateright1Click
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object Insert2: TMenuItem
        Caption = '&Insert sysex'
        OnClick = Insert2Click
      end
      object Editevents1: TMenuItem
        Caption = 'Edit sysex'
        OnClick = Editevents1Click
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object View1: TMenuItem
        Caption = '&View events as...'
        object Astext1: TMenuItem
          Caption = '&Text'
          Checked = True
          OnClick = Astext1Click
        end
        object Asnumber1: TMenuItem
          Caption = '&Number'
          OnClick = Asnumber1Click
        end
      end
    end
    object Show1: TMenuItem
      Caption = '&Show'
      GroupIndex = 5
      OnClick = Show1Click
      object Toolbar1: TMenuItem
        Caption = 'T&oolbar'
        OnClick = Toolbar1Click
      end
      object Info1: TMenuItem
        Caption = '&Editbar'
        ShortCut = 122
        OnClick = Info1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object Controll1: TMenuItem
        Caption = '&Controllers'
        ShortCut = 121
        OnClick = Controll1Click
      end
      object List2: TMenuItem
        Caption = '&List of events'
        ShortCut = 120
        OnClick = List2Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Transporter1: TMenuItem
        Caption = '&Transporter'
        ShortCut = 123
        OnClick = Transporter1Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object Customize1: TMenuItem
        Caption = '&Customize'
        OnClick = Customize1Click
      end
    end
  end
  object Popupres: TPopupMenu
    Left = 400
    Top = 72
    object N641: TMenuItem
      Caption = '64'
      OnClick = N641Click
    end
    object N321: TMenuItem
      Caption = '32'
      OnClick = N321Click
    end
    object N162: TMenuItem
      Caption = '16'
      OnClick = N162Click
    end
    object N81: TMenuItem
      Caption = '8'
      OnClick = N81Click
    end
    object N42: TMenuItem
      Caption = '4'
      OnClick = N42Click
    end
    object N22: TMenuItem
      Caption = '2'
      OnClick = N22Click
    end
    object N64T1: TMenuItem
      Break = mbBarBreak
      Caption = '64T'
      OnClick = N64T1Click
    end
    object N32T1: TMenuItem
      Caption = '32T'
      OnClick = N32T1Click
    end
    object N16T1: TMenuItem
      Caption = '16T'
      OnClick = N16T1Click
    end
    object N8T1: TMenuItem
      Caption = '8T'
      OnClick = N8T1Click
    end
    object N4T1: TMenuItem
      Caption = '4T'
      OnClick = N4T1Click
    end
    object N2T1: TMenuItem
      Caption = '2T'
      OnClick = N2T1Click
    end
  end
  object scrollTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = scrollTimerTimer
    Left = 447
    Top = 166
  end
  object PopupControl: TPopupMenu
    OnPopup = PopupControlPopup
    Left = 508
    Top = 384
    object Step2: TMenuItem
      Caption = 'Step'
      OnClick = Step2Click
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object Convert1: TMenuItem
      Caption = 'Convert/copy...'
      Enabled = False
      Visible = False
    end
    object Delete3: TMenuItem
      Caption = 'Delete'
      OnClick = Delete3Click
    end
    object Map1: TMenuItem
      Caption = 'Map sysex...'
      Visible = False
      OnClick = Map1Click
    end
    object Range1: TMenuItem
      Caption = 'Modify...'
      OnClick = Range1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object Controller1: TMenuItem
      Caption = 'Controller...'
      ShortCut = 119
      OnClick = Controller1Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Hide1: TMenuItem
      Caption = 'Hide'
      OnClick = Hide1Click
    end
  end
  object PopupKey: TPopupMenu
    OnPopup = PopupKeyPopup
    Left = 384
    Top = 149
    object Undo2: TMenuItem
      Caption = 'Undo'
      OnClick = Undo2Click
    end
    object N15: TMenuItem
      Caption = '-'
    end
    object Default1: TMenuItem
      Caption = 'Default mode'
      OnClick = Default1Click
    end
    object Insert1: TMenuItem
      Caption = 'Insert mode'
      OnClick = Insert1Click
    end
    object Step1: TMenuItem
      Caption = 'Step mode - notes'
      OnClick = Step1Click
    end
    object Stepmodecontrollers1: TMenuItem
      Caption = 'Step mode - controllers'
      OnClick = Stepmodecontrollers1Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object Delete6: TMenuItem
      Caption = 'Delete'
      ShortCut = 46
      OnClick = Delete6Click
    end
    object Keep2: TMenuItem
      Caption = 'Keep'
      OnClick = Keep2Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object Compose2: TMenuItem
      Caption = 'Compose'
      OnClick = Compose2Click
      object Notes3: TMenuItem
        Caption = 'Notes...'
        OnClick = Notes3Click
      end
      object Controllers3: TMenuItem
        Caption = 'Controllers...'
        OnClick = Controllers3Click
      end
      object AWENRPN2: TMenuItem
        Caption = '&AWE NRPN'
        OnClick = AWENRPN2Click
      end
    end
    object Delete4: TMenuItem
      Caption = 'Delete'
      OnClick = Delete4Click
      object Aftertouch2: TMenuItem
        Caption = 'Aftertouch'
        Enabled = False
      end
      object AWENRPN5: TMenuItem
        Caption = 'AWE NRPN'
        OnClick = AWENRPN5Click
      end
      object Controllers4: TMenuItem
        Caption = 'Control change'
        OnClick = Controllers4Click
      end
      object Notes4: TMenuItem
        Caption = 'Notes'
        OnClick = Notes4Click
      end
      object Pitchbend1: TMenuItem
        Caption = 'Pitch bend'
        OnClick = Pitchbend1Click
      end
      object Programchange2: TMenuItem
        Caption = 'Program change'
        OnClick = Programchange2Click
      end
      object Sysex2: TMenuItem
        Caption = 'Sysex'
        Enabled = False
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Doublenotes2: TMenuItem
        Caption = 'Double notes'
        OnClick = Doublenotes2Click
      end
    end
    object Echo2: TMenuItem
      Caption = 'Echo...'
      OnClick = Echo2Click
    end
    object Grooves2: TMenuItem
      Caption = 'Grooves...'
      OnClick = Grooves2Click
    end
    object Legato2: TMenuItem
      Caption = 'Legato'
      OnClick = Legato2Click
    end
    object Length2: TMenuItem
      Caption = 'Length'
      OnClick = Length2Click
    end
    object Overlap2: TMenuItem
      Caption = 'Overlap'
      OnClick = Overlap2Click
    end
    object Quantize2: TMenuItem
      Caption = 'Quantize'
      OnClick = Quantize2Click
    end
    object Transpose2: TMenuItem
      Caption = 'Transpose...'
      OnClick = Transpose2Click
    end
    object Velocity2: TMenuItem
      Caption = 'Velocity...'
      OnClick = Velocity2Click
    end
  end
  object PopupQuick: TPopupMenu
    Left = 352
    Top = 301
  end
end