home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TFMARRANGE / TFMARRANGE.txt < prev   
Text File  |  1999-04-03  |  49KB  |  1,859 lines
  1. object fmArrange: TfmArrange
  2.   Left = 276
  3.   Top = 221
  4.   Width = 640
  5.   Height = 411
  6.   HelpContext = 1
  7.   Caption = 'Arrange'
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   FormStyle = fsMDIChild
  14.   KeyPreview = True
  15.   Menu = MainMenu1
  16.   Position = poDefault
  17.   Visible = True
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnCreate = FormCreate
  21.   OnDestroy = FormDestroy
  22.   OnKeyDown = FormKeyDown
  23.   OnKeyUp = FormKeyUp
  24.   OnResize = FormResize
  25.   OnShow = FormShow
  26.   PixelsPerInch = 96
  27.   TextHeight = 13
  28.   object SplitBrowser: TSplitIt
  29.     Left = 138
  30.     Top = 54
  31.     Width = 3
  32.     Height = 311
  33.     Cursor = crHSplit
  34.     Hint = 'Click and drag to resize browser'
  35.     SplitDirection = sdHorizontal
  36.     OnSplit = SplitBrowserSplit
  37.     Align = alLeft
  38.     ParentShowHint = False
  39.     ShowHint = True
  40.   end
  41.   object panelControl: TPanel
  42.     Left = 0
  43.     Top = 0
  44.     Width = 632
  45.     Height = 27
  46.     Align = alTop
  47.     BevelOuter = bvNone
  48.     Color = 13421772
  49.     Locked = True
  50.     ParentShowHint = False
  51.     ShowHint = True
  52.     TabOrder = 0
  53.     OnDblClick = panelControlDblClick
  54.     object btnLoop: TSpeedButton
  55.       Left = 2
  56.       Top = 3
  57.       Width = 55
  58.       Height = 20
  59.       Hint = '[/] Loop on/off'
  60.       AllowAllUp = True
  61.       GroupIndex = 1
  62.       Caption = 'Loop'
  63.       Flat = True
  64.       Font.Charset = ANSI_CHARSET
  65.       Font.Color = clWindowText
  66.       Font.Height = -11
  67.       Font.Name = 'Arial'
  68.       Font.Style = [fsBold]
  69.       Glyph.Data = {
  70.         C6000000424DC60000000000000076000000280000000A0000000A0000000100
  71.         0400000000005000000000000000000000001000000000000000000000000000
  72.         80000080000000808000800000008000800080800000C0C0C000808080000000
  73.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
  74.         0000FFF4444FFF000000FFCCCCC4FF000000FCC4FFFFFF000000FC4FFFF44F00
  75.         0000FC4FFF4C44000000FCC4FFFC4F000000FFCC4444FF000000FFFCCC4FFF00
  76.         0000FFFFFFFFFF000000}
  77.       ParentFont = False
  78.       ParentShowHint = False
  79.       ShowHint = True
  80.       OnClick = btnLoopClick
  81.     end
  82.     object sbBeep: TSpeedButton
  83.       Left = 59
  84.       Top = 3
  85.       Width = 54
  86.       Height = 20
  87.       Hint = '[B] Beep on/off'
  88.       AllowAllUp = True
  89.       GroupIndex = 2
  90.       Down = True
  91.       Caption = 'Beep'
  92.       Flat = True
  93.       Font.Charset = ANSI_CHARSET
  94.       Font.Color = clWindowText
  95.       Font.Height = -11
  96.       Font.Name = 'Arial'
  97.       Font.Style = [fsBold]
  98.       Glyph.Data = {
  99.         F6000000424DF600000000000000760000002800000010000000100000000100
  100.         0400000000008000000000000000000000001000000000000000000000000000
  101.         80000080000000808000800000008000800080800000C0C0C000808080000000
  102.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
  103.         000000000000000000000000000000000000000000000CC00000000000000CC0
  104.         0000000000CC0CC00000000000CC0CC00000000CC0CC0CC00000000CC0CC0CC0
  105.         0000000000CC0CC00000000000CC0CC00000000000000CC00000000000000CC0
  106.         0000000000000000000000000000000000000000000000000000}
  107.       ParentFont = False
  108.       ParentShowHint = False
  109.       ShowHint = True
  110.       Spacing = 0
  111.       OnClick = sbBeepClick
  112.     end
  113.     object btnThru: TSpeedButton
  114.       Left = 116
  115.       Top = 3
  116.       Width = 38
  117.       Height = 20
  118.       Hint = 'Midi thru on/off'
  119.       AllowAllUp = True
  120.       GroupIndex = 5
  121.       Down = True
  122.       Caption = 'Thru'
  123.       Flat = True
  124.       Font.Charset = ANSI_CHARSET
  125.       Font.Color = clWindowText
  126.       Font.Height = -11
  127.       Font.Name = 'Arial'
  128.       Font.Style = [fsBold]
  129.       ParentFont = False
  130.       ParentShowHint = False
  131.       ShowHint = True
  132.       OnClick = btnThruClick
  133.     end
  134.     object btnAutoQ: TSpeedButton
  135.       Left = 157
  136.       Top = 3
  137.       Width = 50
  138.       Height = 20
  139.       Hint = '[A] Auto quantize on/off'
  140.       AllowAllUp = True
  141.       GroupIndex = 4
  142.       Caption = 'Auto Q'
  143.       Flat = True
  144.       Font.Charset = ANSI_CHARSET
  145.       Font.Color = clWindowText
  146.       Font.Height = -11
  147.       Font.Name = 'Arial'
  148.       Font.Style = [fsBold]
  149.       ParentFont = False
  150.       ParentShowHint = False
  151.       ShowHint = True
  152.       OnClick = btnAutoQClick
  153.     end
  154.     object LabelBpm: TLabel
  155.       Left = 220
  156.       Top = 6
  157.       Width = 25
  158.       Height = 14
  159.       Caption = 'bpm'
  160.       Font.Charset = ANSI_CHARSET
  161.       Font.Color = clWindowText
  162.       Font.Height = -11
  163.       Font.Name = 'Arial'
  164.       Font.Style = [fsBold]
  165.       ParentFont = False
  166.       Transparent = True
  167.       OnClick = LabelBpmClick
  168.     end
  169.     object Label2: TLabel
  170.       Left = 296
  171.       Top = 6
  172.       Width = 39
  173.       Height = 14
  174.       Caption = 'Editres'
  175.       Font.Charset = ANSI_CHARSET
  176.       Font.Color = clWindowText
  177.       Font.Height = -11
  178.       Font.Name = 'Arial'
  179.       Font.Style = [fsBold]
  180.       ParentFont = False
  181.       Transparent = True
  182.     end
  183.     object Label3: TLabel
  184.       Left = 384
  185.       Top = 6
  186.       Width = 49
  187.       Height = 14
  188.       Cursor = crHandPoint
  189.       Hint = 'Restart current location'
  190.       Caption = 'Locators'
  191.       Font.Charset = ANSI_CHARSET
  192.       Font.Color = clWindowText
  193.       Font.Height = -11
  194.       Font.Name = 'Arial'
  195.       Font.Style = [fsBold]
  196.       ParentFont = False
  197.       Transparent = True
  198.       OnClick = Label3Click
  199.     end
  200.     object sbSTore: TSpeedButton
  201.       Left = 537
  202.       Top = 3
  203.       Width = 43
  204.       Height = 20
  205.       Hint = 'Store locators'
  206.       AllowAllUp = True
  207.       Caption = 'Store'
  208.       Flat = True
  209.       Font.Charset = ANSI_CHARSET
  210.       Font.Color = clWindowText
  211.       Font.Height = -11
  212.       Font.Name = 'Arial'
  213.       Font.Style = [fsBold]
  214.       ParentFont = False
  215.       ParentShowHint = False
  216.       ShowHint = True
  217.       OnClick = sbSToreClick
  218.     end
  219.     object sbNextLoc: TSpeedButton
  220.       Left = 603
  221.       Top = 3
  222.       Width = 18
  223.       Height = 20
  224.       Hint = '[>] Next location'
  225.       AllowAllUp = True
  226.       Caption = '>'
  227.       Flat = True
  228.       Font.Charset = ANSI_CHARSET
  229.       Font.Color = 16744448
  230.       Font.Height = -11
  231.       Font.Name = 'Arial'
  232.       Font.Style = [fsBold]
  233.       ParentFont = False
  234.       ParentShowHint = False
  235.       ShowHint = True
  236.       OnClick = sbNextLocClick
  237.     end
  238.     object sbPrevLoc: TSpeedButton
  239.       Left = 583
  240.       Top = 3
  241.       Width = 18
  242.       Height = 20
  243.       Hint = '[<] Previous location'
  244.       AllowAllUp = True
  245.       Caption = '<'
  246.       Enabled = False
  247.       Flat = True
  248.       Font.Charset = ANSI_CHARSET
  249.       Font.Color = 16744448
  250.       Font.Height = -11
  251.       Font.Name = 'Arial'
  252.       Font.Style = [fsBold]
  253.       ParentFont = False
  254.       ParentShowHint = False
  255.       ShowHint = True
  256.       OnClick = sbPrevLocClick
  257.     end
  258.     object panelRes: TPanel
  259.       Left = 340
  260.       Top = 3
  261.       Width = 30
  262.       Height = 19
  263.       Cursor = crHandPoint
  264.       Hint = '[Click] Set edit resolution'
  265.       BevelOuter = bvNone
  266.       Caption = '16'
  267.       Color = clBlack
  268.       Font.Charset = ANSI_CHARSET
  269.       Font.Color = clWhite
  270.       Font.Height = -11
  271.       Font.Name = 'Arial'
  272.       Font.Style = []
  273.       ParentFont = False
  274.       ParentShowHint = False
  275.       ShowHint = True
  276.       TabOrder = 0
  277.       OnMouseDown = panelResMouseDown
  278.       OnMouseUp = panelResMouseUp
  279.     end
  280.     object panelBpm: TPanel
  281.       Left = 252
  282.       Top = 3
  283.       Width = 30
  284.       Height = 19
  285.       BevelOuter = bvNone
  286.       Color = clBlack
  287.       Font.Charset = DEFAULT_CHARSET
  288.       Font.Color = clWhite
  289.       Font.Height = -11
  290.       Font.Name = 'MS Sans Serif'
  291.       Font.Style = []
  292.       ParentFont = False
  293.       ParentShowHint = False
  294.       ShowHint = True
  295.       TabOrder = 1
  296.       object editBpm: TEditIncDec
  297.         Left = 5
  298.         Top = 3
  299.         Width = 33
  300.         Height = 21
  301.         Hint = 'Tempo'
  302.         TabStop = False
  303.         BorderStyle = bsNone
  304.         Color = clBlack
  305.         Font.Charset = ANSI_CHARSET
  306.         Font.Color = clWhite
  307.         Font.Height = -11
  308.         Font.Name = 'Arial'
  309.         Font.Style = []
  310.         ParentFont = False
  311.         PopupMenu = PopupTempo
  312.         TabOrder = 0
  313.         Text = '120'
  314.         OnDblClick = editBpmDblClick
  315.         OnKeyDown = editBpmKeyDown
  316.         Min = 50
  317.         Max = 250
  318.       end
  319.     end
  320.     object comboPos: TComboBox
  321.       Left = 437
  322.       Top = 4
  323.       Width = 100
  324.       Height = 19
  325.       Hint = '[Shift + F1 - F10] Select defined locator positions'
  326.       TabStop = False
  327.       Style = csOwnerDrawFixed
  328.       Color = clBlack
  329.       Font.Charset = DEFAULT_CHARSET
  330.       Font.Color = clWhite
  331.       Font.Height = -11
  332.       Font.Name = 'MS Sans Serif'
  333.       Font.Style = []
  334.       ItemHeight = 13
  335.       Items.Strings = (
  336.         'Undefined'
  337.         'Undefined'
  338.         'Undefined'
  339.         'Undefined'
  340.         'Undefined')
  341.       ParentFont = False
  342.       TabOrder = 2
  343.       OnChange = comboPosChange
  344.       OnDrawItem = comboPosDrawItem
  345.     end
  346.   end
  347.   object PanelTracks: TPanel
  348.     Left = 141
  349.     Top = 54
  350.     Width = 491
  351.     Height = 311
  352.     Align = alClient
  353.     BevelOuter = bvNone
  354.     Caption = 'PanelTracks'
  355.     TabOrder = 1
  356.     object SplitIt1: TSplitIt
  357.       Left = 180
  358.       Top = 0
  359.       Width = 3
  360.       Height = 311
  361.       Cursor = crHSplit
  362.       Hint = 'Click and drag to resize tracks'
  363.       SplitDirection = sdHorizontal
  364.       OnSplit = SplitIt1Split
  365.       Align = alLeft
  366.       ParentShowHint = False
  367.       ShowHint = True
  368.     end
  369.     object PanelTT: TPanel
  370.       Left = 0
  371.       Top = 0
  372.       Width = 180
  373.       Height = 311
  374.       Align = alLeft
  375.       BevelOuter = bvNone
  376.       BorderStyle = bsSingle
  377.       Caption = 'PanelTT'
  378.       TabOrder = 0
  379.       object Panel1: TPanel
  380.         Left = 0
  381.         Top = 0
  382.         Width = 176
  383.         Height = 307
  384.         Align = alClient
  385.         BevelOuter = bvNone
  386.         FullRepaint = False
  387.         Caption = 'Panel1'
  388.         Color = clSilver
  389.         TabOrder = 0
  390.         object trackTitles: THeaderControl
  391.           Left = 0
  392.           Top = 0
  393.           Width = 176
  394.           Height = 19
  395.           HotTrack = True
  396.           Sections = <
  397.             item
  398.               AllowClick = False
  399.               MaxWidth = 40
  400.               MinWidth = 10
  401.               Style = hsOwnerDraw
  402.               Text = 'Inp'
  403.               Width = 16
  404.             end
  405.             item
  406.               MinWidth = 40
  407.               Text = 'Name'
  408.               Width = 80
  409.             end
  410.             item
  411.               Alignment = taCenter
  412.               MaxWidth = 30
  413.               MinWidth = 30
  414.               Text = 'Ch'
  415.               Width = 30
  416.             end
  417.             item
  418.               Alignment = taCenter
  419.               MaxWidth = 25
  420.               MinWidth = 25
  421.               Text = 'M'
  422.               Width = 25
  423.             end
  424.             item
  425.               MinWidth = 60
  426.               Text = 'Output'
  427.               Width = 120
  428.             end
  429.             item
  430.               Alignment = taCenter
  431.               MaxWidth = 70
  432.               MinWidth = 35
  433.               Text = 'Prog'
  434.               Width = 50
  435.             end
  436.             item
  437.               Alignment = taCenter
  438.               MinWidth = 46
  439.               Text = 'Transp'
  440.               Width = 46
  441.             end
  442.             item
  443.               Alignment = taCenter
  444.               MinWidth = 50
  445.               Text = 'Mode'
  446.               Width = 50
  447.             end>
  448.           ShowHint = False
  449.           ParentShowHint = False
  450.           OnMouseMove = trackTitlesMouseMove
  451.           OnDrawSection = trackTitlesDrawSection
  452.           OnSectionClick = trackTitlesSectionClick
  453.           OnSectionTrack = trackTitlesSectionTrack
  454.         end
  455.         object tracks: TScroll
  456.           Left = 0
  457.           Top = 19
  458.           Width = 176
  459.           Height = 288
  460.           ShowHint = False
  461.           TabOrder = 1
  462.           ParentFont = False
  463.           ParentShowHint = False
  464.           PopupMenu = PopupTracks
  465.           Font.Charset = ANSI_CHARSET
  466.           Font.Color = clWhite
  467.           Font.Height = -11
  468.           Font.Name = 'Arial'
  469.           Font.Style = [fsBold, fsItalic]
  470.           Align = alClient
  471.           Color = clBlack
  472.           OnPaint = tracksPaint
  473.           OnMouseDown = tracksMouseDown
  474.           OnMouseMove = tracksMouseMove
  475.           OnMouseUp = tracksMouseUp
  476.           OnDblClick = tracksDblClick
  477.         end
  478.       end
  479.     end
  480.     object panelBackArrange: TPanel
  481.       Left = 183
  482.       Top = 0
  483.       Width = 308
  484.       Height = 311
  485.       Align = alClient
  486.       BevelOuter = bvNone
  487.       FullRepaint = False
  488.       Caption = 'panelBackArrange'
  489.       TabOrder = 1
  490.       object panelMeter: TPanel
  491.         Left = 0
  492.         Top = 0
  493.         Width = 308
  494.         Height = 19
  495.         Align = alTop
  496.         BevelOuter = bvNone
  497.         BorderStyle = bsSingle
  498.         Caption = 'panelMeter'
  499.         TabOrder = 0
  500.         object meter: TScroll
  501.           Left = 0
  502.           Top = 0
  503.           Width = 304
  504.           Height = 15
  505.           TabOrder = 0
  506.           ParentFont = False
  507.           Font.Charset = DEFAULT_CHARSET
  508.           Font.Color = clGray
  509.           Font.Height = -9
  510.           Font.Name = 'Small Fonts'
  511.           Font.Style = []
  512.           Align = alClient
  513.           Color = clWhite
  514.           OnPaint = meterPaint
  515.           OnMouseDown = meterMouseDown
  516.           OnMouseMove = meterMouseMove
  517.           OnMouseUp = meterMouseUp
  518.         end
  519.       end
  520.       object panelArrange: TPanel
  521.         Left = 0
  522.         Top = 19
  523.         Width = 308
  524.         Height = 292
  525.         Align = alClient
  526.         BevelOuter = bvNone
  527.         BorderStyle = bsSingle
  528.         FullRepaint = False
  529.         Caption = 'Panel2'
  530.         TabOrder = 1
  531.         object Image1: TImage
  532.           Left = 56
  533.           Top = 40
  534.           Width = 16
  535.           Height = 16
  536.           AutoSize = True
  537.           Picture.Data = {<image000.bmp>}
  538.         end
  539.         object arrange: TScroll
  540.           Left = 0
  541.           Top = 0
  542.           Width = 288
  543.           Height = 272
  544.           TabOrder = 2
  545.           ParentFont = False
  546.           PopupMenu = popupArrange
  547.           Font.Charset = ANSI_CHARSET
  548.           Font.Color = clWindowText
  549.           Font.Height = -11
  550.           Font.Name = 'Arial'
  551.           Font.Style = [fsBold, fsItalic]
  552.           Align = alClient
  553.           Color = clBlack
  554.           OnPaint = arrangePaint
  555.           OnMouseDown = arrangeMouseDown
  556.           OnMouseMove = arrangeMouseMove
  557.           OnMouseUp = arrangeMouseUp
  558.           OnDblClick = arrangeDblClick
  559.         end
  560.         object panelScrollHorz: TPanel
  561.           Left = 0
  562.           Top = 272
  563.           Width = 304
  564.           Height = 16
  565.           Align = alBottom
  566.           BevelOuter = bvNone
  567.           FullRepaint = False
  568.           Caption = 'panelScrollHorz'
  569.           TabOrder = 1
  570.           object panelScrollArrangeVert: TPanel
  571.             Left = 0
  572.             Top = 0
  573.             Width = 288
  574.             Height = 16
  575.             Align = alClient
  576.             BevelOuter = bvNone
  577.             FullRepaint = False
  578.             TabOrder = 0
  579.             object sbHorzLess: TSpeedButton
  580.               Left = 209
  581.               Top = 0
  582.               Width = 15
  583.               Height = 16
  584.               Hint = 'Zoom out'
  585.               Font.Charset = DEFAULT_CHARSET
  586.               Font.Color = clBlack
  587.               Font.Height = -11
  588.               Font.Name = 'MS Sans Serif'
  589.               Font.Style = [fsBold]
  590.               Glyph.Data = {
  591.                 BE000000424DBE00000000000000760000002800000009000000090000000100
  592.                 0400000000004800000000000000000000001000000000000000000000000000
  593.                 80000080000000808000800000008000800080800000C0C0C000808080000000
  594.                 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFF000
  595.                 0000FFFFFCCFF0000000FFFFCCCFF0000000FFFCCCCFF0000000FFCCCCCFF000
  596.                 0000FFFCCCCFF0000000FFFFCCCFF0000000FFFFFCCFF0000000FFFFFFCFF000
  597.                 0000}
  598.               ParentFont = False
  599.               ParentShowHint = False
  600.               ShowHint = True
  601.               Spacing = 0
  602.               OnClick = sbHorzLessClick
  603.             end
  604.             object sbHorzMore: TSpeedButton
  605.               Left = 225
  606.               Top = 0
  607.               Width = 15
  608.               Height = 16
  609.               Hint = 'Zoom in'
  610.               Font.Charset = DEFAULT_CHARSET
  611.               Font.Color = clBlack
  612.               Font.Height = -11
  613.               Font.Name = 'MS Sans Serif'
  614.               Font.Style = [fsBold]
  615.               Glyph.Data = {
  616.                 BE000000424DBE00000000000000760000002800000009000000090000000100
  617.                 0400000000004800000000000000000000001000000000000000000000000000
  618.                 80000080000000808000800000008000800080800000C0C0C000808080000000
  619.                 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFF000
  620.                 0000FFCCFFFFF0000000FFCCCFFFF0000000FFCCCCFFF0000000FFCCCCCFF000
  621.                 0000FFCCCCFFF0000000FFCCCFFFF0000000FFCCFFFFF0000000FFCFFFFFF000
  622.                 0000}
  623.               ParentFont = False
  624.               ParentShowHint = False
  625.               ShowHint = True
  626.               Spacing = 0
  627.               OnClick = sbHorzMoreClick
  628.             end
  629.             object sbNavigator: TSpeedButton
  630.               Left = 192
  631.               Top = 0
  632.               Width = 15
  633.               Height = 16
  634.               Hint = 'Transporter on/off'
  635.               Caption = 'T'
  636.               Font.Charset = DEFAULT_CHARSET
  637.               Font.Color = clBlue
  638.               Font.Height = -11
  639.               Font.Name = 'MS Sans Serif'
  640.               Font.Style = [fsBold]
  641.               ParentFont = False
  642.               ParentShowHint = False
  643.               ShowHint = True
  644.               Spacing = 0
  645.               OnClick = sbNavigatorClick
  646.             end
  647.             object scrollx: TScrollBar
  648.               Left = 56
  649.               Top = 0
  650.               Width = 121
  651.               Height = 16
  652.               Max = 1000
  653.               TabOrder = 0
  654.               TabStop = False
  655.               OnChange = scrollxChange
  656.               OnScroll = scrollxScroll
  657.             end
  658.           end
  659.           object panelCorner: TPanel
  660.             Left = 288
  661.             Top = 0
  662.             Width = 16
  663.             Height = 16
  664.             Align = alRight
  665.             BevelOuter = bvNone
  666.             TabOrder = 1
  667.             object SpeedButton2: TSpeedButton
  668.               Left = 0
  669.               Top = 0
  670.               Width = 15
  671.               Height = 16
  672.               Hint = 'Zoom 1:1'
  673.               Font.Charset = DEFAULT_CHARSET
  674.               Font.Color = clBlack
  675.               Font.Height = -11
  676.               Font.Name = 'MS Sans Serif'
  677.               Font.Style = [fsBold]
  678.               Glyph.Data = {
  679.                 C6000000424DC60000000000000076000000280000000A0000000A0000000100
  680.                 0400000000005000000000000000000000001000000000000000000000000000
  681.                 80000080000000808000800000008000800080800000C0C0C000808080000000
  682.                 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
  683.                 0000FCCCCCCFFF000000FCCCCCFFFF000000FCCCCFFFCF000000FCCCFFFCCF00
  684.                 0000FCCFFFCCCF000000FCFFFCCCCF000000FFFFCCCCCF000000FFFCCCCCCF00
  685.                 0000FFFFFFFFFF000000}
  686.               ParentFont = False
  687.               ParentShowHint = False
  688.               ShowHint = True
  689.               Spacing = 0
  690.               OnClick = SpeedButton2Click
  691.             end
  692.           end
  693.         end
  694.         object panelArrangeScrollVert: TPanel
  695.           Left = 288
  696.           Top = 0
  697.           Width = 16
  698.           Height = 272
  699.           Align = alRight
  700.           BevelOuter = bvNone
  701.           FullRepaint = False
  702.           Caption = 'panelArrangeScrollVert'
  703.           TabOrder = 0
  704.           object sbVertMore: TSpeedButton
  705.             Left = 1
  706.             Top = 168
  707.             Width = 15
  708.             Height = 16
  709.             Hint = 'Zoom in'
  710.             Font.Charset = DEFAULT_CHARSET
  711.             Font.Color = clBlack
  712.             Font.Height = -11
  713.             Font.Name = 'MS Sans Serif'
  714.             Font.Style = [fsBold]
  715.             Glyph.Data = {
  716.               BE000000424DBE00000000000000760000002800000009000000090000000100
  717.               0400000000004800000000000000000000001000000000000000000000000000
  718.               80000080000000808000800000008000800080800000C0C0C000808080000000
  719.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  720.               0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
  721.               0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  722.               0000}
  723.             ParentFont = False
  724.             ParentShowHint = False
  725.             ShowHint = True
  726.             Spacing = 0
  727.             OnClick = sbVertMoreClick
  728.           end
  729.           object sbVertLess: TSpeedButton
  730.             Left = 1
  731.             Top = 152
  732.             Width = 15
  733.             Height = 16
  734.             Hint = 'Zoom out'
  735.             Font.Charset = DEFAULT_CHARSET
  736.             Font.Color = clBlack
  737.             Font.Height = -11
  738.             Font.Name = 'MS Sans Serif'
  739.             Font.Style = [fsBold]
  740.             Glyph.Data = {
  741.               BE000000424DBE00000000000000760000002800000009000000090000000100
  742.               0400000000004800000000000000000000001000000000000000000000000000
  743.               80000080000000808000800000008000800080800000C0C0C000808080000000
  744.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  745.               0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
  746.               0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  747.               0000}
  748.             ParentFont = False
  749.             ParentShowHint = False
  750.             ShowHint = True
  751.             Spacing = 0
  752.             OnClick = sbVertLessClick
  753.           end
  754.           object scrolly: TScrollBar
  755.             Left = 0
  756.             Top = 8
  757.             Width = 16
  758.             Height = 121
  759.             Kind = sbVertical
  760.             LargeChange = 72
  761.             Max = 50
  762.             SmallChange = 18
  763.             TabOrder = 0
  764.             TabStop = False
  765.             OnChange = scrollyChange
  766.           end
  767.         end
  768.       end
  769.     end
  770.   end
  771.   object panelBrowse: TPanel
  772.     Left = 0
  773.     Top = 54
  774.     Width = 138
  775.     Height = 311
  776.     Align = alLeft
  777.     BevelOuter = bvNone
  778.     Caption = 'panelBrowse'
  779.     TabOrder = 2
  780.     Visible = False
  781.     object Panel2: TPanel
  782.       Left = 0
  783.       Top = 0
  784.       Width = 138
  785.       Height = 24
  786.       Align = alTop
  787.       BevelOuter = bvNone
  788.       Color = clSilver
  789.       TabOrder = 0
  790.       object btnNextBrowser: TSpeedButton
  791.         Left = 3
  792.         Top = 4
  793.         Width = 23
  794.         Height = 17
  795.         Cursor = crHandPoint
  796.         Hint = 'Browse locators'
  797.         Caption = '>>'
  798.         Flat = True
  799.         Font.Charset = ANSI_CHARSET
  800.         Font.Color = clBlack
  801.         Font.Height = -11
  802.         Font.Name = 'Arial'
  803.         Font.Style = [fsBold]
  804.         ParentFont = False
  805.         ParentShowHint = False
  806.         ShowHint = True
  807.         OnClick = btnNextBrowserClick
  808.       end
  809.       object Panel3: TPanel
  810.         Left = 121
  811.         Top = 0
  812.         Width = 17
  813.         Height = 24
  814.         Align = alRight
  815.         BevelOuter = bvNone
  816.         Color = clSilver
  817.         TabOrder = 0
  818.         object SpeedButton5: TSpeedButton
  819.           Left = 0
  820.           Top = 4
  821.           Width = 17
  822.           Height = 17
  823.           Cursor = crHandPoint
  824.           Hint = 'Close'
  825.           Flat = True
  826.           Font.Charset = ANSI_CHARSET
  827.           Font.Color = clWhite
  828.           Font.Height = -11
  829.           Font.Name = 'Arial'
  830.           Font.Style = [fsBold]
  831.           Glyph.Data = {
  832.             BE000000424DBE00000000000000760000002800000009000000090000000100
  833.             0400000000004800000000000000000000001000000000000000000000000000
  834.             80000080000000808000800000008000800080800000C0C0C000808080000000
  835.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000
  836.             000077777777700000007777F77770000000777777777000000077FFFFF77000
  837.             00007777777770000000FFFFFFFFF00000007777777770000000777777777000
  838.             0000}
  839.           ParentFont = False
  840.           ParentShowHint = False
  841.           ShowHint = True
  842.           OnClick = SpeedButton5Click
  843.         end
  844.       end
  845.     end
  846.     object panelFile: TPanel
  847.       Left = 8
  848.       Top = 48
  849.       Width = 185
  850.       Height = 177
  851.       BevelOuter = bvNone
  852.       Caption = 'panelFile'
  853.       TabOrder = 1
  854.       object SplitIt2: TSplitIt
  855.         Left = 0
  856.         Top = 100
  857.         Width = 185
  858.         Height = 3
  859.         Hint = 'Click and drag to resize'
  860.         OnSplit = SplitIt2Split
  861.         Align = alTop
  862.         ParentShowHint = False
  863.         ShowHint = True
  864.       end
  865.       object DirectoryListBox1: TDirectoryListBox
  866.         Left = 0
  867.         Top = 0
  868.         Width = 185
  869.         Height = 100
  870.         Cursor = crHandPoint
  871.         TabStop = False
  872.         Align = alTop
  873.         Color = clBlack
  874.         FileList = FileListBox1
  875.         Font.Charset = ANSI_CHARSET
  876.         Font.Color = clWhite
  877.         Font.Height = -11
  878.         Font.Name = 'Arial'
  879.         Font.Style = []
  880.         ItemHeight = 16
  881.         ParentFont = False
  882.         TabOrder = 0
  883.         OnMouseUp = DirectoryListBox1MouseUp
  884.       end
  885.       object FileListBox1: TFileListBox
  886.         Left = 0
  887.         Top = 103
  888.         Width = 185
  889.         Height = 74
  890.         Cursor = crHandPoint
  891.         TabStop = False
  892.         Align = alClient
  893.         Color = clBlack
  894.         Ctl3D = True
  895.         Font.Charset = ANSI_CHARSET
  896.         Font.Color = clWhite
  897.         Font.Height = -11
  898.         Font.Name = 'Arial'
  899.         Font.Style = []
  900.         ItemHeight = 16
  901.         Mask = '*.seq;*.mid'
  902.         ParentCtl3D = False
  903.         ParentFont = False
  904.         TabOrder = 1
  905.         OnDblClick = FileListBox1DblClick
  906.         OnMouseUp = FileListBox1MouseUp
  907.       end
  908.     end
  909.     object panelArea: TPanel
  910.       Left = 48
  911.       Top = 112
  912.       Width = 185
  913.       Height = 161
  914.       BevelOuter = bvNone
  915.       Caption = 'panelArea'
  916.       TabOrder = 2
  917.       Visible = False
  918.       object listArea: TListBox
  919.         Left = 0
  920.         Top = 0
  921.         Width = 185
  922.         Height = 161
  923.         Cursor = crHandPoint
  924.         TabStop = False
  925.         Align = alClient
  926.         Color = clBlack
  927.         Font.Charset = ANSI_CHARSET
  928.         Font.Color = clWhite
  929.         Font.Height = -11
  930.         Font.Name = 'Arial'
  931.         Font.Style = []
  932.         ItemHeight = 14
  933.         ParentFont = False
  934.         TabOrder = 0
  935.         OnDblClick = listAreaDblClick
  936.         OnMouseUp = listAreaMouseUp
  937.       end
  938.     end
  939.   end
  940.   object panelTrackInfo: TPanel
  941.     Left = 0
  942.     Top = 27
  943.     Width = 632
  944.     Height = 27
  945.     Align = alTop
  946.     BevelOuter = bvNone
  947.     Color = 13421772
  948.     TabOrder = 3
  949.     object Label1: TLabel
  950.       Left = 8
  951.       Top = 6
  952.       Width = 15
  953.       Height = 14
  954.       Caption = 'Ch'
  955.       Font.Charset = ANSI_CHARSET
  956.       Font.Color = clWindowText
  957.       Font.Height = -11
  958.       Font.Name = 'Arial'
  959.       Font.Style = [fsBold]
  960.       ParentFont = False
  961.       Transparent = True
  962.     end
  963.     object Label4: TLabel
  964.       Left = 128
  965.       Top = 6
  966.       Width = 37
  967.       Height = 14
  968.       Caption = 'Output'
  969.       Font.Charset = ANSI_CHARSET
  970.       Font.Color = clWindowText
  971.       Font.Height = -11
  972.       Font.Name = 'Arial'
  973.       Font.Style = [fsBold]
  974.       ParentFont = False
  975.       Transparent = True
  976.     end
  977.     object Label5: TLabel
  978.       Left = 336
  979.       Top = 5
  980.       Width = 27
  981.       Height = 14
  982.       Caption = 'Bank'
  983.       Font.Charset = ANSI_CHARSET
  984.       Font.Color = clWindowText
  985.       Font.Height = -11
  986.       Font.Name = 'Arial'
  987.       Font.Style = [fsBold]
  988.       ParentFont = False
  989.       Transparent = True
  990.     end
  991.     object Label6: TLabel
  992.       Left = 456
  993.       Top = 5
  994.       Width = 26
  995.       Height = 14
  996.       Caption = 'Prog'
  997.       Font.Charset = ANSI_CHARSET
  998.       Font.Color = clWindowText
  999.       Font.Height = -11
  1000.       Font.Name = 'Arial'
  1001.       Font.Style = [fsBold]
  1002.       ParentFont = False
  1003.       Transparent = True
  1004.     end
  1005.     object sbMoveUp1: TSpeedButton
  1006.       Left = 402
  1007.       Top = 2
  1008.       Width = 20
  1009.       Height = 20
  1010.       Flat = True
  1011.       Glyph.Data = {
  1012.         E2000000424DE200000000000000760000002800000012000000090000000100
  1013.         0400000000006C00000000000000000000001000000000000000000000000000
  1014.         80000080000000808000800000008000800080800000C0C0C000808080000000
  1015.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  1016.         FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  1017.         CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  1018.         0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  1019.         FFFFFF000000}
  1020.       NumGlyphs = 2
  1021.       ParentShowHint = False
  1022.       ShowHint = True
  1023.       OnClick = sbMoveUp1Click
  1024.     end
  1025.     object sbMoveDown1: TSpeedButton
  1026.       Left = 423
  1027.       Top = 2
  1028.       Width = 20
  1029.       Height = 20
  1030.       Flat = True
  1031.       Glyph.Data = {
  1032.         E2000000424DE200000000000000760000002800000012000000090000000100
  1033.         0400000000006C00000000000000000000001000000000000000000000000000
  1034.         80000080000000808000800000008000800080800000C0C0C000808080000000
  1035.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  1036.         FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  1037.         CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  1038.         0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  1039.         FFFFFF000000}
  1040.       NumGlyphs = 2
  1041.       ParentShowHint = False
  1042.       ShowHint = True
  1043.       OnClick = sbMoveDown1Click
  1044.     end
  1045.     object SpeedButton3: TSpeedButton
  1046.       Left = 522
  1047.       Top = 2
  1048.       Width = 20
  1049.       Height = 20
  1050.       Flat = True
  1051.       Glyph.Data = {
  1052.         E2000000424DE200000000000000760000002800000012000000090000000100
  1053.         0400000000006C00000000000000000000001000000000000000000000000000
  1054.         80000080000000808000800000008000800080800000C0C0C000808080000000
  1055.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  1056.         FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  1057.         CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  1058.         0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  1059.         FFFFFF000000}
  1060.       NumGlyphs = 2
  1061.       ParentShowHint = False
  1062.       ShowHint = True
  1063.       OnClick = SpeedButton3Click
  1064.     end
  1065.     object SpeedButton4: TSpeedButton
  1066.       Left = 543
  1067.       Top = 2
  1068.       Width = 20
  1069.       Height = 20
  1070.       Flat = True
  1071.       Glyph.Data = {
  1072.         E2000000424DE200000000000000760000002800000012000000090000000100
  1073.         0400000000006C00000000000000000000001000000000000000000000000000
  1074.         80000080000000808000800000008000800080800000C0C0C000808080000000
  1075.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  1076.         FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  1077.         CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  1078.         0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  1079.         FFFFFF000000}
  1080.       NumGlyphs = 2
  1081.       ParentShowHint = False
  1082.       ShowHint = True
  1083.       OnClick = SpeedButton4Click
  1084.     end
  1085.     object btnMute: TSpeedButton
  1086.       Left = 73
  1087.       Top = 3
  1088.       Width = 44
  1089.       Height = 20
  1090.       Hint = 'Mute on/off'
  1091.       AllowAllUp = True
  1092.       GroupIndex = 5
  1093.       Caption = 'Mute'
  1094.       Flat = True
  1095.       Font.Charset = ANSI_CHARSET
  1096.       Font.Color = clWindowText
  1097.       Font.Height = -11
  1098.       Font.Name = 'Arial'
  1099.       Font.Style = [fsBold]
  1100.       ParentFont = False
  1101.       ParentShowHint = False
  1102.       ShowHint = True
  1103.       OnClick = btnMuteClick
  1104.     end
  1105.     object panelChannel: TPanel
  1106.       Left = 32
  1107.       Top = 3
  1108.       Width = 30
  1109.       Height = 19
  1110.       Cursor = crHandPoint
  1111.       Hint = 'Click to select MIDI channel'
  1112.       BevelOuter = bvNone
  1113.       Caption = '1'
  1114.       Color = clBlack
  1115.       Font.Charset = ANSI_CHARSET
  1116.       Font.Color = clWhite
  1117.       Font.Height = -11
  1118.       Font.Name = 'Arial'
  1119.       Font.Style = []
  1120.       ParentFont = False
  1121.       ParentShowHint = False
  1122.       ShowHint = True
  1123.       TabOrder = 0
  1124.       OnMouseDown = panelChannelMouseDown
  1125.       OnMouseUp = panelChannelMouseUp
  1126.     end
  1127.     object panelOutput: TPanel
  1128.       Left = 172
  1129.       Top = 3
  1130.       Width = 149
  1131.       Height = 19
  1132.       Cursor = crHandPoint
  1133.       Hint = 'Click to select MIDI output device'
  1134.       Alignment = taLeftJustify
  1135.       BevelOuter = bvNone
  1136.       Color = clBlack
  1137.       Font.Charset = ANSI_CHARSET
  1138.       Font.Color = clWhite
  1139.       Font.Height = -11
  1140.       Font.Name = 'Arial'
  1141.       Font.Style = []
  1142.       Locked = True
  1143.       ParentFont = False
  1144.       ParentShowHint = False
  1145.       ShowHint = True
  1146.       TabOrder = 1
  1147.       OnMouseDown = panelOutputMouseDown
  1148.       OnMouseUp = panelOutputMouseUp
  1149.     end
  1150.     object TPanel
  1151.       Left = 368
  1152.       Top = 3
  1153.       Width = 30
  1154.       Height = 19
  1155.       Hint = 'Enter bank number'
  1156.       BevelOuter = bvNone
  1157.       Color = clBlack
  1158.       Font.Charset = DEFAULT_CHARSET
  1159.       Font.Color = clWhite
  1160.       Font.Height = -11
  1161.       Font.Name = 'MS Sans Serif'
  1162.       Font.Style = []
  1163.       ParentFont = False
  1164.       ParentShowHint = False
  1165.       ShowHint = True
  1166.       TabOrder = 2
  1167.       object editBank: TEditIncDec
  1168.         Left = 5
  1169.         Top = 3
  1170.         Width = 33
  1171.         Height = 21
  1172.         TabStop = False
  1173.         BorderStyle = bsNone
  1174.         Color = clBlack
  1175.         Font.Charset = ANSI_CHARSET
  1176.         Font.Color = clWhite
  1177.         Font.Height = -11
  1178.         Font.Name = 'Arial'
  1179.         Font.Style = []
  1180.         ParentFont = False
  1181.         PopupMenu = editBank.
  1182.         TabOrder = 0
  1183.         Text = '120'
  1184.         OnChange = editBankChange
  1185.         OnDblClick = editBankDblClick
  1186.         OnKeyDown = editBankKeyDown
  1187.         Min = 50
  1188.         Max = 250
  1189.       end
  1190.     end
  1191.     object TPanel
  1192.       Left = 488
  1193.       Top = 3
  1194.       Width = 30
  1195.       Height = 19
  1196.       Hint = 'Enter program number'
  1197.       BevelOuter = bvNone
  1198.       Color = clBlack
  1199.       Font.Charset = DEFAULT_CHARSET
  1200.       Font.Color = clWhite
  1201.       Font.Height = -11
  1202.       Font.Name = 'MS Sans Serif'
  1203.       Font.Style = []
  1204.       ParentFont = False
  1205.       ParentShowHint = False
  1206.       ShowHint = True
  1207.       TabOrder = 3
  1208.       object editProgram: TEditIncDec
  1209.         Left = 5
  1210.         Top = 3
  1211.         Width = 33
  1212.         Height = 21
  1213.         TabStop = False
  1214.         BorderStyle = bsNone
  1215.         Color = clBlack
  1216.         Font.Charset = ANSI_CHARSET
  1217.         Font.Color = clWhite
  1218.         Font.Height = -11
  1219.         Font.Name = 'Arial'
  1220.         Font.Style = []
  1221.         ParentFont = False
  1222.         PopupMenu = editProgram.
  1223.         TabOrder = 0
  1224.         Text = '120'
  1225.         OnChange = editProgramChange
  1226.         OnDblClick = editProgramDblClick
  1227.         OnKeyDown = editProgramKeyDown
  1228.         Min = 50
  1229.         Max = 250
  1230.       end
  1231.     end
  1232.   end
  1233.   object MainMenu1: TMainMenu
  1234.     Left = 144
  1235.     Top = 64
  1236.     object Edit2: TMenuItem
  1237.       Caption = '&Edit'
  1238.       GroupIndex = 1
  1239.       OnClick = Edit2Click
  1240.       object Undo1: TMenuItem
  1241.         Caption = '&Undo'
  1242.         ShortCut = 16474
  1243.         OnClick = Undo1Click
  1244.       end
  1245.       object N8: TMenuItem
  1246.         Caption = '-'
  1247.       end
  1248.       object Selectall1: TMenuItem
  1249.         Caption = 'Select &all parts'
  1250.         ShortCut = 16449
  1251.         OnClick = Selectall1Click
  1252.       end
  1253.       object N16: TMenuItem
  1254.         Caption = '-'
  1255.       end
  1256.       object Copy1: TMenuItem
  1257.         Caption = '&Copy'
  1258.         Enabled = False
  1259.         ShortCut = 16451
  1260.         OnClick = Copy1Click
  1261.       end
  1262.       object Cut1: TMenuItem
  1263.         Caption = 'C&ut'
  1264.         Enabled = False
  1265.         OnClick = Cut1Click
  1266.       end
  1267.       object Paste1: TMenuItem
  1268.         Caption = '&Paste'
  1269.         Enabled = False
  1270.         OnClick = Paste1Click
  1271.       end
  1272.       object N9: TMenuItem
  1273.         Caption = '-'
  1274.       end
  1275.       object Key1: TMenuItem
  1276.         Caption = '&Edit part'
  1277.         ShortCut = 16453
  1278.         OnClick = Key1Click
  1279.       end
  1280.     end
  1281.     object Track1: TMenuItem
  1282.       Caption = '&Track'
  1283.       GroupIndex = 1
  1284.       object Ch1: TMenuItem
  1285.         Caption = '&Ch'
  1286.       end
  1287.       object Device1: TMenuItem
  1288.         Caption = '&Output'
  1289.         OnClick = Device1Click
  1290.       end
  1291.       object Program2: TMenuItem
  1292.         Caption = '&Bank/program...'
  1293.         OnClick = Program2Click
  1294.       end
  1295.       object Name2: TMenuItem
  1296.         Caption = '&Rename...'
  1297.         OnClick = Name2Click
  1298.       end
  1299.       object Transpose4: TMenuItem
  1300.         Caption = '&Transpose input...'
  1301.         OnClick = Transpose4Click
  1302.       end
  1303.       object Mode1: TMenuItem
  1304.         Caption = 'Mo&de'
  1305.         Enabled = False
  1306.         Visible = False
  1307.         object Midi1: TMenuItem
  1308.           Caption = '&Midi'
  1309.           OnClick = Midi1Click
  1310.         end
  1311.         object Audio1: TMenuItem
  1312.           Caption = '&Audio'
  1313.           OnClick = Audio1Click
  1314.         end
  1315.       end
  1316.       object N18: TMenuItem
  1317.         Caption = '-'
  1318.         Enabled = False
  1319.       end
  1320.       object Mute4: TMenuItem
  1321.         Caption = '&Mute'
  1322.         ShortCut = 77
  1323.         OnClick = Mute4Click
  1324.       end
  1325.       object Solo2: TMenuItem
  1326.         Caption = '&Solo'
  1327.         ShortCut = 83
  1328.         OnClick = Solo2Click
  1329.       end
  1330.       object N19: TMenuItem
  1331.         Caption = '-'
  1332.       end
  1333.       object View1: TMenuItem
  1334.         Caption = '&View'
  1335.         object Trackname1: TMenuItem
  1336.           Caption = '&Track name'
  1337.           Checked = True
  1338.           GroupIndex = 1
  1339.           RadioItem = True
  1340.           OnClick = Trackname1Click
  1341.         end
  1342.         object GMinstrument1: TMenuItem
  1343.           Caption = '&GM instrument'
  1344.           GroupIndex = 1
  1345.           RadioItem = True
  1346.           OnClick = GMinstrument1Click
  1347.         end
  1348.       end
  1349.     end
  1350.     object Part1: TMenuItem
  1351.       Caption = '&Part'
  1352.       GroupIndex = 1
  1353.       OnClick = Part1Click
  1354.       object Insert1: TMenuItem
  1355.         Caption = '&Insert'
  1356.         ShortCut = 45
  1357.         OnClick = Insert1Click
  1358.       end
  1359.       object Delete1: TMenuItem
  1360.         Caption = '&Delete'
  1361.         ShortCut = 46
  1362.         OnClick = Delete1Click
  1363.       end
  1364.       object N17: TMenuItem
  1365.         Caption = '-'
  1366.       end
  1367.       object XRay1: TMenuItem
  1368.         Caption = '&X-Ray'
  1369.         ShortCut = 88
  1370.         OnClick = XRay1Click
  1371.       end
  1372.       object N7: TMenuItem
  1373.         Caption = '-'
  1374.       end
  1375.       object Compose1: TMenuItem
  1376.         Caption = '&Compose'
  1377.         OnClick = Compose1Click
  1378.         object Notea1: TMenuItem
  1379.           Caption = '&Notes...'
  1380.           ShortCut = 16433
  1381.           OnClick = Notea1Click
  1382.         end
  1383.         object Controllers2: TMenuItem
  1384.           Caption = '&Controllers...'
  1385.           ShortCut = 16434
  1386.           OnClick = Controllers2Click
  1387.         end
  1388.         object AWENRPN1: TMenuItem
  1389.           Caption = '&AWE NRPN'
  1390.           ShortCut = 16435
  1391.           OnClick = AWENRPN1Click
  1392.         end
  1393.       end
  1394.       object Delete2: TMenuItem
  1395.         Caption = '&Delete'
  1396.         OnClick = Delete2Click
  1397.         object Aftertouch1: TMenuItem
  1398.           Caption = '&Aftertouch'
  1399.           Enabled = False
  1400.         end
  1401.         object AWENRPN3: TMenuItem
  1402.           Caption = '&AWE NRPN'
  1403.           OnClick = AWENRPN3Click
  1404.         end
  1405.         object Controllers1: TMenuItem
  1406.           Caption = '&Control change'
  1407.           OnClick = Controllers1Click
  1408.         end
  1409.         object Notes3: TMenuItem
  1410.           Caption = '&Notes'
  1411.           OnClick = Notes3Click
  1412.         end
  1413.         object Pitchbend2: TMenuItem
  1414.           Caption = '&Pitch bend'
  1415.           OnClick = Pitchbend2Click
  1416.         end
  1417.         object Programchange1: TMenuItem
  1418.           Caption = 'P&rogram change'
  1419.           OnClick = Programchange1Click
  1420.         end
  1421.         object Sysex1: TMenuItem
  1422.           Caption = '&Sysex'
  1423.           Enabled = False
  1424.         end
  1425.         object N11: TMenuItem
  1426.           Caption = '-'
  1427.         end
  1428.         object Doubles1: TMenuItem
  1429.           Caption = '&Double notes'
  1430.           OnClick = Doubles1Click
  1431.         end
  1432.       end
  1433.       object Echo1: TMenuItem
  1434.         Caption = '&Echo...'
  1435.         OnClick = Echo1Click
  1436.       end
  1437.       object Groove1: TMenuItem
  1438.         Caption = 'Grooves...'
  1439.         Enabled = False
  1440.         ShortCut = 8263
  1441.         OnClick = Groove1Click
  1442.       end
  1443.       object Legato1: TMenuItem
  1444.         Caption = '&Legato'
  1445.         OnClick = Legato1Click
  1446.       end
  1447.       object Length1: TMenuItem
  1448.         Caption = 'L&ength'
  1449.         OnClick = Length1Click
  1450.       end
  1451.       object Overlap1: TMenuItem
  1452.         Caption = 'Overlap'
  1453.         OnClick = Overlap1Click
  1454.       end
  1455.       object Quantize1: TMenuItem
  1456.         Caption = '&Quantize'
  1457.         ShortCut = 81
  1458.         OnClick = Quantize1Click
  1459.       end
  1460.       object Transpose1: TMenuItem
  1461.         Caption = '&Transpose...'
  1462.         ShortCut = 16468
  1463.         OnClick = Transpose1Click
  1464.       end
  1465.       object Velocity1: TMenuItem
  1466.         Caption = '&Velocity...'
  1467.         ShortCut = 86
  1468.         OnClick = Velocity1Click
  1469.       end
  1470.       object N12: TMenuItem
  1471.         Caption = '-'
  1472.       end
  1473.       object Append1: TMenuItem
  1474.         Caption = '&Append'
  1475.         ShortCut = 16459
  1476.         OnClick = Append1Click
  1477.       end
  1478.       object Mute2: TMenuItem
  1479.         Caption = '&Mute'
  1480.         ShortCut = 16461
  1481.         OnClick = Mute2Click
  1482.       end
  1483.       object Glue1: TMenuItem
  1484.         Caption = '&Glue'
  1485.         ShortCut = 16455
  1486.         OnClick = Glue1Click
  1487.       end
  1488.       object Rename1: TMenuItem
  1489.         Caption = '&Rename...'
  1490.         OnClick = Rename1Click
  1491.       end
  1492.     end
  1493.     object Sequence1: TMenuItem
  1494.       Caption = 'Se&quence'
  1495.       GroupIndex = 1
  1496.       OnClick = Sequence1Click
  1497.       object InsertArea1: TMenuItem
  1498.         Caption = '&Insert area'
  1499.         OnClick = InsertArea1Click
  1500.       end
  1501.       object Cutatselection1: TMenuItem
  1502.         Caption = '&Cut area'
  1503.         OnClick = Cutatselection1Click
  1504.       end
  1505.       object N2: TMenuItem
  1506.         Caption = '-'
  1507.       end
  1508.       object Split1: TMenuItem
  1509.         Caption = '&Split selected parts'
  1510.         OnClick = Split1Click
  1511.       end
  1512.       object N5: TMenuItem
  1513.         Caption = '-'
  1514.       end
  1515.       object Group1: TMenuItem
  1516.         Caption = '&Group'
  1517.         OnClick = Group1Click
  1518.       end
  1519.       object Ungroup1: TMenuItem
  1520.         Caption = '&Ungroup'
  1521.         OnClick = Ungroup1Click
  1522.       end
  1523.       object N14: TMenuItem
  1524.         Caption = '-'
  1525.       end
  1526.       object Loopselection1: TMenuItem
  1527.         Caption = '&Loop selected parts'
  1528.         ShortCut = 16464
  1529.         OnClick = Loopselection1Click
  1530.       end
  1531.       object N24: TMenuItem
  1532.         Caption = '-'
  1533.         Visible = False
  1534.       end
  1535.       object Sysexpatches1: TMenuItem
  1536.         Caption = '&Sysex dumps'
  1537.         Enabled = False
  1538.         Visible = False
  1539.         OnClick = Sysexpatches1Click
  1540.       end
  1541.     end
  1542.     object Show1: TMenuItem
  1543.       Caption = '&Show'
  1544.       GroupIndex = 1
  1545.       OnClick = Show1Click
  1546.       object Toolbar1: TMenuItem
  1547.         Caption = 'T&oolbar'
  1548.         OnClick = Toolbar1Click
  1549.       end
  1550.       object Trackinfo1: TMenuItem
  1551.         Caption = 'Trac&k info'
  1552.         OnClick = Trackinfo1Click
  1553.       end
  1554.       object Tracks1: TMenuItem
  1555.         Caption = '&Tracks'
  1556.         ShortCut = 121
  1557.         OnClick = Tracks1Click
  1558.       end
  1559.       object N21: TMenuItem
  1560.         Caption = '-'
  1561.       end
  1562.       object Midifarder1: TMenuItem
  1563.         Caption = '&Midi faders'
  1564.         OnClick = Midifarder1Click
  1565.       end
  1566.       object AWEfaders1: TMenuItem
  1567.         Caption = '&AWE faders'
  1568.         OnClick = AWEfaders1Click
  1569.       end
  1570.       object XGfaders1: TMenuItem
  1571.         Caption = '&XG faders'
  1572.         Visible = False
  1573.         OnClick = XGfaders1Click
  1574.       end
  1575.       object N1: TMenuItem
  1576.         Caption = '-'
  1577.       end
  1578.       object Transporer1: TMenuItem
  1579.         Caption = 'T&ransporter'
  1580.         ShortCut = 123
  1581.         OnClick = Transporer1Click
  1582.       end
  1583.       object N20: TMenuItem
  1584.         Caption = '-'
  1585.       end
  1586.       object Customize1: TMenuItem
  1587.         Caption = '&Customize...'
  1588.         OnClick = Customize1Click
  1589.       end
  1590.     end
  1591.   end
  1592.   object PopupTracks: TPopupMenu
  1593.     OnPopup = PopupTracksPopup
  1594.     Left = 144
  1595.     Top = 152
  1596.     object Midichannel1: TMenuItem
  1597.       Caption = 'Ch'
  1598.       OnClick = Midichannel1Click
  1599.     end
  1600.     object Ouputdevice1: TMenuItem
  1601.       Caption = 'Ouput'
  1602.       OnClick = Ouputdevice1Click
  1603.     end
  1604.     object Program1: TMenuItem
  1605.       Caption = 'Bank/program...'
  1606.       OnClick = Program1Click
  1607.     end
  1608.     object Name1: TMenuItem
  1609.       Caption = 'Rename...'
  1610.       OnClick = Name1Click
  1611.     end
  1612.     object Transpose2: TMenuItem
  1613.       Caption = 'Transpose input...'
  1614.       OnClick = Transpose2Click
  1615.     end
  1616.     object Mode2: TMenuItem
  1617.       Caption = 'Mode'
  1618.       Enabled = False
  1619.       Visible = False
  1620.       object Midi2: TMenuItem
  1621.         Caption = 'Midi'
  1622.         OnClick = Midi2Click
  1623.       end
  1624.       object Audio2: TMenuItem
  1625.         Caption = 'Audio'
  1626.         OnClick = Audio2Click
  1627.       end
  1628.     end
  1629.     object N4: TMenuItem
  1630.       Caption = '-'
  1631.     end
  1632.     object Mute1: TMenuItem
  1633.       Caption = 'Mute'
  1634.       ShortCut = 77
  1635.       OnClick = Mute1Click
  1636.     end
  1637.     object Solo1: TMenuItem
  1638.       Caption = 'Solo'
  1639.       ShortCut = 83
  1640.       OnClick = Solo1Click
  1641.     end
  1642.     object N6: TMenuItem
  1643.       Caption = '-'
  1644.     end
  1645.     object Hide1: TMenuItem
  1646.       Caption = 'Hide'
  1647.       OnClick = Hide1Click
  1648.     end
  1649.     object Showall1: TMenuItem
  1650.       Caption = 'Show all'
  1651.       OnClick = Showall1Click
  1652.     end
  1653.   end
  1654.   object PopupRes: TPopupMenu
  1655.     Left = 432
  1656.     Top = 64
  1657.     object N641: TMenuItem
  1658.       Caption = '64'
  1659.       OnClick = N641Click
  1660.     end
  1661.     object N321: TMenuItem
  1662.       Caption = '32'
  1663.       OnClick = N321Click
  1664.     end
  1665.     object N162: TMenuItem
  1666.       Caption = '16'
  1667.       OnClick = N162Click
  1668.     end
  1669.     object N42: TMenuItem
  1670.       Caption = '8'
  1671.       OnClick = N42Click
  1672.     end
  1673.     object N22: TMenuItem
  1674.       Caption = '4'
  1675.       OnClick = N22Click
  1676.     end
  1677.     object N23: TMenuItem
  1678.       Caption = '2'
  1679.       OnClick = N23Click
  1680.     end
  1681.     object N64T1: TMenuItem
  1682.       Break = mbBarBreak
  1683.       Caption = '64T'
  1684.       OnClick = N64T1Click
  1685.     end
  1686.     object N32T1: TMenuItem
  1687.       Caption = '32T'
  1688.       OnClick = N32T1Click
  1689.     end
  1690.     object N16T1: TMenuItem
  1691.       Caption = '16T'
  1692.       OnClick = N16T1Click
  1693.     end
  1694.     object N8T1: TMenuItem
  1695.       Caption = '8T'
  1696.       OnClick = N8T1Click
  1697.     end
  1698.     object N4T1: TMenuItem
  1699.       Caption = '4T'
  1700.       OnClick = N4T1Click
  1701.     end
  1702.     object N2T1: TMenuItem
  1703.       Caption = '2T'
  1704.       OnClick = N2T1Click
  1705.     end
  1706.   end
  1707.   object scrollTimer: TTimer
  1708.     Enabled = False
  1709.     Interval = 50
  1710.     OnTimer = scrollTimerTimer
  1711.     Left = 439
  1712.     Top = 198
  1713.   end
  1714.   object popupArrange: TPopupMenu
  1715.     OnPopup = popupArrangePopup
  1716.     Left = 359
  1717.     Top = 152
  1718.     object Undo2: TMenuItem
  1719.       Caption = 'Undo'
  1720.       OnClick = Undo2Click
  1721.     end
  1722.     object N15: TMenuItem
  1723.       Caption = '-'
  1724.     end
  1725.     object Edit1: TMenuItem
  1726.       Caption = 'Edit part'
  1727.       OnClick = Edit1Click
  1728.     end
  1729.     object N10: TMenuItem
  1730.       Caption = '-'
  1731.     end
  1732.     object Compose2: TMenuItem
  1733.       Caption = 'Compose'
  1734.       OnClick = Compose2Click
  1735.       object Notes1: TMenuItem
  1736.         Caption = 'Notes...'
  1737.         OnClick = Notes1Click
  1738.       end
  1739.       object Controllers3: TMenuItem
  1740.         Caption = 'Controllers...'
  1741.         OnClick = Controllers3Click
  1742.       end
  1743.       object AWENRPN2: TMenuItem
  1744.         Caption = '&AWE NRPN'
  1745.         OnClick = AWENRPN2Click
  1746.       end
  1747.     end
  1748.     object Delete3: TMenuItem
  1749.       Caption = 'Delete'
  1750.       OnClick = Delete3Click
  1751.       object Aftertouch2: TMenuItem
  1752.         Caption = 'Aftertouch'
  1753.         Enabled = False
  1754.       end
  1755.       object AWENRPN4: TMenuItem
  1756.         Caption = '&AWE NRPN'
  1757.         OnClick = AWENRPN4Click
  1758.       end
  1759.       object Controllers4: TMenuItem
  1760.         Caption = 'Control change'
  1761.         OnClick = Controllers4Click
  1762.       end
  1763.       object Notes2: TMenuItem
  1764.         Caption = 'Notes'
  1765.         OnClick = Notes2Click
  1766.       end
  1767.       object Pitchbend1: TMenuItem
  1768.         Caption = 'Pitch bend'
  1769.         OnClick = Pitchbend1Click
  1770.       end
  1771.       object Programchange2: TMenuItem
  1772.         Caption = 'Program change'
  1773.         OnClick = Programchange2Click
  1774.       end
  1775.       object Sysex2: TMenuItem
  1776.         Caption = 'Sysex'
  1777.         Enabled = False
  1778.       end
  1779.       object N13: TMenuItem
  1780.         Caption = '-'
  1781.       end
  1782.       object Doublenotes1: TMenuItem
  1783.         Caption = 'Double notes'
  1784.         OnClick = Doublenotes1Click
  1785.       end
  1786.     end
  1787.     object Echo2: TMenuItem
  1788.       Caption = 'Echo...'
  1789.       OnClick = Echo2Click
  1790.     end
  1791.     object Grooves1: TMenuItem
  1792.       Caption = 'Grooves...'
  1793.       OnClick = Grooves1Click
  1794.     end
  1795.     object Legato2: TMenuItem
  1796.       Caption = 'Legato'
  1797.       OnClick = Legato2Click
  1798.     end
  1799.     object Length2: TMenuItem
  1800.       Caption = 'Length'
  1801.       OnClick = Length2Click
  1802.     end
  1803.     object Overlap2: TMenuItem
  1804.       Caption = 'Overlap'
  1805.       OnClick = Overlap2Click
  1806.     end
  1807.     object Quantize2: TMenuItem
  1808.       Caption = 'Quantize'
  1809.       OnClick = Quantize2Click
  1810.     end
  1811.     object Transpose3: TMenuItem
  1812.       Caption = 'Transpose...'
  1813.       OnClick = Transpose3Click
  1814.     end
  1815.     object Velocity2: TMenuItem
  1816.       Caption = 'Velocity...'
  1817.       OnClick = Velocity2Click
  1818.     end
  1819.     object N3: TMenuItem
  1820.       Caption = '-'
  1821.     end
  1822.     object Append2: TMenuItem
  1823.       Caption = 'Append'
  1824.       OnClick = Append2Click
  1825.     end
  1826.     object Mute3: TMenuItem
  1827.       Caption = 'Mute'
  1828.       OnClick = Mute3Click
  1829.     end
  1830.     object Glue2: TMenuItem
  1831.       Caption = 'Glue'
  1832.       OnClick = Glue2Click
  1833.     end
  1834.     object Rename2: TMenuItem
  1835.       Caption = 'Rename...'
  1836.       OnClick = Rename2Click
  1837.     end
  1838.   end
  1839.   object PopupDevice: TPopupMenu
  1840.     OnPopup = PopupDevicePopup
  1841.     Left = 144
  1842.     Top = 184
  1843.   end
  1844.   object PopupCh: TPopupMenu
  1845.     Left = 144
  1846.     Top = 216
  1847.   end
  1848.   object ledTimer: TTimer
  1849.     Interval = 100
  1850.     OnTimer = ledTimerTimer
  1851.     Left = 178
  1852.     Top = 149
  1853.   end
  1854.   object PopupTempo: TPopupMenu
  1855.     Left = 328
  1856.     Top = 72
  1857.   end
  1858. end
  1859.