home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TFMAUDIO / TFMAUDIO.txt
Text File  |  1999-04-03  |  26KB  |  944 lines
  1. object fmAudio: TfmAudio
  2.   Left = 54
  3.   Top = 117
  4.   Width = 533
  5.   Height = 301
  6.   Caption = 'Audio'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   FormStyle = fsMDIChild
  13.   Menu = MainMenu1
  14.   Position = poDefault
  15.   Visible = True
  16.   OnActivate = FormActivate
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   OnKeyDown = FormKeyDown
  21.   OnKeyUp = FormKeyUp
  22.   OnResize = FormResize
  23.   OnShow = FormShow
  24.   PixelsPerInch = 96
  25.   TextHeight = 13
  26.   object SplitIt1: TSplitIt
  27.     Left = 112
  28.     Top = 50
  29.     Width = 3
  30.     Height = 205
  31.     Cursor = crHSplit
  32.     SplitDirection = sdHorizontal
  33.     OnSplit = SplitIt1Split
  34.     Align = alLeft
  35.   end
  36.   object Toolbar: TPanel
  37.     Left = 0
  38.     Top = 0
  39.     Width = 525
  40.     Height = 25
  41.     Hint = 'Toolbar'
  42.     Align = alTop
  43.     BevelOuter = bvNone
  44.     Color = 13421772
  45.     ParentShowHint = False
  46.     ShowHint = True
  47.     TabOrder = 0
  48.     object btnLoop: TSpeedButton
  49.       Left = 2
  50.       Top = 3
  51.       Width = 55
  52.       Height = 20
  53.       Hint = 'Loop between left - right on/off'
  54.       AllowAllUp = True
  55.       GroupIndex = 1
  56.       Caption = 'Loop'
  57.       Flat = True
  58.       Font.Charset = ANSI_CHARSET
  59.       Font.Color = clWindowText
  60.       Font.Height = -11
  61.       Font.Name = 'Arial'
  62.       Font.Style = [fsBold]
  63.       Glyph.Data = {
  64.         C6000000424DC60000000000000076000000280000000A0000000A0000000100
  65.         0400000000005000000000000000000000001000000000000000000000000000
  66.         80000080000000808000800000008000800080800000C0C0C000808080000000
  67.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
  68.         0000FFF4444FFF000000FFCCCCC4FF000000FCC4FFFFFF000000FC4FFFF44F00
  69.         0000FC4FFF4C44000000FCC4FFFC4F000000FFCC4444FF000000FFFCCC4FFF00
  70.         0000FFFFFFFFFF000000}
  71.       ParentFont = False
  72.       ParentShowHint = False
  73.       ShowHint = True
  74.       OnClick = btnLoopClick
  75.     end
  76.     object sbSolo: TSpeedButton
  77.       Left = 60
  78.       Top = 3
  79.       Width = 37
  80.       Height = 20
  81.       Hint = '[S] Track solo on/off'
  82.       AllowAllUp = True
  83.       GroupIndex = 20
  84.       Caption = 'Solo'
  85.       Flat = True
  86.       Font.Charset = ANSI_CHARSET
  87.       Font.Color = clWindowText
  88.       Font.Height = -11
  89.       Font.Name = 'Arial'
  90.       Font.Style = [fsBold]
  91.       ParentFont = False
  92.       ParentShowHint = False
  93.       ShowHint = True
  94.       OnClick = sbSoloClick
  95.     end
  96.     object sbDefault: TSpeedButton
  97.       Left = 104
  98.       Top = 3
  99.       Width = 23
  100.       Height = 20
  101.       Hint = '[F2] Default mode'
  102.       GroupIndex = 4
  103.       Down = True
  104.       Flat = True
  105.       Font.Charset = ANSI_CHARSET
  106.       Font.Color = clWindowText
  107.       Font.Height = -12
  108.       Font.Name = 'Arial'
  109.       Font.Style = [fsBold, fsItalic]
  110.       Glyph.Data = {
  111.         E2000000424DE200000000000000760000002800000012000000090000000100
  112.         0400000000006C00000000000000000000001000000000000000000000000000
  113.         80000080000000808000800000008000800080800000C0C0C000808080000000
  114.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  115.         FFFFFF000000FFFFF4FFFFFFFF8FFF000000FFCF4FFFFFF8F8FFFF000000FFCC
  116.         CFFFFFF888FFFF000000FFCCC4FFFFF8888FFF000000FFCC4FFFFFF888FFFF00
  117.         0000FFC4FFFFFFF88FFFFF000000FF4FFFFFFFF8FFFFFF000000FFFFFFFFFFFF
  118.         FFFFFF000000}
  119.       NumGlyphs = 2
  120.       ParentFont = False
  121.       ParentShowHint = False
  122.       ShowHint = True
  123.       OnClick = sbDefaultClick
  124.     end
  125.     object sbInsert: TSpeedButton
  126.       Left = 130
  127.       Top = 3
  128.       Width = 23
  129.       Height = 20
  130.       Hint = '[F3] Insert mode'
  131.       GroupIndex = 4
  132.       Flat = True
  133.       Font.Charset = ANSI_CHARSET
  134.       Font.Color = clWindowText
  135.       Font.Height = -12
  136.       Font.Name = 'Arial'
  137.       Font.Style = [fsBold, fsItalic]
  138.       Glyph.Data = {
  139.         26010000424D260100000000000076000000280000001E0000000B0000000100
  140.         040000000000B000000000000000000000001000000000000000000000000000
  141.         80000080000000808000800000008000800080800000C0C0C000808080000000
  142.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  143.         FFFFFFFFFFFFFFFFFF00CF44FCF444FFFFF8F88F8F888FFFFF00FFFFFFFCCC4F
  144.         FFFFFFFFFF8888FFFF00FFFFFFFCCCF4FFFFFFFFFF888F8FFF00FFFFFFFFCFCC
  145.         4FFFFFFFFFF8F888FF00FFFFFFFFFCCCC4FFFFFFFFFF88888F00FFFFFFFFFFCC
  146.         CCFFFFFFFFFFF8888F00FFFFFFFFFFFCCCFFFFFFFFFFFF888F00FFFFFFFFFFFF
  147.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
  148.         FFFFFFFFFFFFFFFFFF00}
  149.       NumGlyphs = 2
  150.       ParentFont = False
  151.       ParentShowHint = False
  152.       ShowHint = True
  153.       OnClick = sbInsertClick
  154.     end
  155.     object sbStep: TSpeedButton
  156.       Left = 155
  157.       Top = 3
  158.       Width = 22
  159.       Height = 20
  160.       Hint = '[F4] Step mode'
  161.       GroupIndex = 4
  162.       Enabled = False
  163.       Flat = True
  164.       Font.Charset = ANSI_CHARSET
  165.       Font.Color = clWindowText
  166.       Font.Height = -12
  167.       Font.Name = 'Arial'
  168.       Font.Style = [fsBold, fsItalic]
  169.       Glyph.Data = {
  170.         FA000000424DFA000000000000007600000028000000160000000B0000000100
  171.         0400000000008400000000000000000000001000000000000000000000000000
  172.         80000080000000808000800000008000800080800000C0C0C000808080000000
  173.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF44FF
  174.         FFFFFFF88F00FFFFFFFCCC4FFFFFFF888800F44FFFFCCC4F88FFFF888800CCC4
  175.         FFFFFFF8888FFFFFFF00CCC4FFF4CC48888FFF888800FFFFFFFCCC4FFFFFFF88
  176.         88004CC4FFCCCC48888FF8888800CCC4FFCCCC48888FF8888800CCCC4FFCC4F8
  177.         8888FF888F00CCCC4FFFFFF88888FFFFFF00FCC4FFFFFFFF888FFFFFFF00}
  178.       NumGlyphs = 2
  179.       ParentFont = False
  180.       ParentShowHint = False
  181.       ShowHint = True
  182.     end
  183.     object sbSnap: TSpeedButton
  184.       Left = 185
  185.       Top = 3
  186.       Width = 65
  187.       Height = 20
  188.       Hint = 'Snap to editres'
  189.       AllowAllUp = True
  190.       GroupIndex = 8
  191.       Down = True
  192.       Caption = 'Snap'
  193.       Flat = True
  194.       Font.Charset = ANSI_CHARSET
  195.       Font.Color = clWindowText
  196.       Font.Height = -11
  197.       Font.Name = 'Arial'
  198.       Font.Style = [fsBold]
  199.       Glyph.Data = {
  200.         CE000000424DCE0000000000000076000000280000000F0000000B0000000100
  201.         0400000000005800000000000000000000001000000000000000000000000000
  202.         80000080000000808000800000008000800080800000C0C0C000808080000000
  203.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F8FFF8FFF8FF
  204.         F8F088888CCCCCCCCC80F8FFFCCCCCCCCCF0F8FFFCCCCCCCCCF0F8FFFCCCCCCC
  205.         CCF088888CCCCCCCCC80F8FFF8FFF8FFF8F0F8FFF8FFF8FFF8F0F8FFF8FFF8FF
  206.         F8F08888888888888880F8FFF8FFF8FFF8F0}
  207.       ParentFont = False
  208.       ParentShowHint = False
  209.       ShowHint = True
  210.     end
  211.     object Label1: TLabel
  212.       Left = 261
  213.       Top = 6
  214.       Width = 25
  215.       Height = 14
  216.       Caption = 'bpm'
  217.       Font.Charset = ANSI_CHARSET
  218.       Font.Color = clWindowText
  219.       Font.Height = -11
  220.       Font.Name = 'Arial'
  221.       Font.Style = [fsBold]
  222.       ParentFont = False
  223.     end
  224.     object Label2: TLabel
  225.       Left = 333
  226.       Top = 6
  227.       Width = 39
  228.       Height = 14
  229.       Caption = 'Editres'
  230.       Font.Charset = ANSI_CHARSET
  231.       Font.Color = clWindowText
  232.       Font.Height = -11
  233.       Font.Name = 'Arial'
  234.       Font.Style = [fsBold]
  235.       ParentFont = False
  236.     end
  237.     object Panel6: TPanel
  238.       Left = 292
  239.       Top = 3
  240.       Width = 30
  241.       Height = 19
  242.       BevelOuter = bvNone
  243.       Color = clBlack
  244.       Font.Charset = DEFAULT_CHARSET
  245.       Font.Color = clWhite
  246.       Font.Height = -11
  247.       Font.Name = 'MS Sans Serif'
  248.       Font.Style = []
  249.       ParentFont = False
  250.       ParentShowHint = False
  251.       ShowHint = False
  252.       TabOrder = 0
  253.       object editBpm: TEditNew
  254.         Left = 3
  255.         Top = 3
  256.         Width = 34
  257.         Height = 21
  258.         Hint = 'Tempo'
  259.         TabStop = False
  260.         BorderStyle = bsNone
  261.         Color = clBlack
  262.         Font.Charset = DEFAULT_CHARSET
  263.         Font.Color = clWhite
  264.         Font.Height = -11
  265.         Font.Name = 'MS Sans Serif'
  266.         Font.Style = []
  267.         ParentFont = False
  268.         ParentShowHint = False
  269.         PopupMenu = fmArrange.PopupTempo
  270.         ShowHint = True
  271.         TabOrder = 0
  272.         OnDblClick = editBpmDblClick
  273.         OnKeyDown = editBpmKeyDown
  274.         OnKeyPress = editBpmKeyPress
  275.         FocusColor = clBlack
  276.         FocusFontColor = clWhite
  277.         NoFocusColor = clBlack
  278.         NoFocusFontColor = clWhite
  279.       end
  280.     end
  281.     object panelRes: TPanel
  282.       Left = 380
  283.       Top = 3
  284.       Width = 30
  285.       Height = 19
  286.       Cursor = crHandPoint
  287.       Hint = '[Click or 1 - 5] Set edit resolution'
  288.       BevelOuter = bvNone
  289.       Caption = '16'
  290.       Color = clBlack
  291.       Font.Charset = DEFAULT_CHARSET
  292.       Font.Color = clWhite
  293.       Font.Height = -11
  294.       Font.Name = 'MS Sans Serif'
  295.       Font.Style = []
  296.       ParentFont = False
  297.       ParentShowHint = False
  298.       PopupMenu = Popupres
  299.       ShowHint = True
  300.       TabOrder = 1
  301.       OnMouseDown = panelResMouseDown
  302.       OnMouseUp = panelResMouseUp
  303.     end
  304.   end
  305.   object panelWaves: TPanel
  306.     Left = 0
  307.     Top = 50
  308.     Width = 112
  309.     Height = 205
  310.     Align = alLeft
  311.     BevelOuter = bvNone
  312.     TabOrder = 1
  313.     object Panel1: TPanel
  314.       Left = 0
  315.       Top = 0
  316.       Width = 112
  317.       Height = 21
  318.       Align = alTop
  319.       BevelOuter = bvNone
  320.       TabOrder = 0
  321.       object Label3: TLabel
  322.         Left = 5
  323.         Top = 3
  324.         Width = 79
  325.         Height = 14
  326.         Caption = 'Samples in track'
  327.         Font.Charset = ANSI_CHARSET
  328.         Font.Color = clWindowText
  329.         Font.Height = -11
  330.         Font.Name = 'Arial'
  331.         Font.Style = []
  332.         ParentFont = False
  333.       end
  334.     end
  335.     object Panel4: TPanel
  336.       Left = 0
  337.       Top = 21
  338.       Width = 112
  339.       Height = 184
  340.       Align = alClient
  341.       BevelOuter = bvNone
  342.       BorderStyle = bsSingle
  343.       Caption = 'Panel4'
  344.       TabOrder = 1
  345.       object samples: TScroll
  346.         Left = 0
  347.         Top = 0
  348.         Width = 108
  349.         Height = 180
  350.         TabOrder = 0
  351.         ParentFont = False
  352.         PopupMenu = PopupWaves
  353.         Font.Charset = ANSI_CHARSET
  354.         Font.Color = clWhite
  355.         Font.Height = -11
  356.         Font.Name = 'Arial'
  357.         Font.Style = [fsBold, fsItalic]
  358.         Align = alClient
  359.         Color = clBlack
  360.         OnPaint = samplesPaint
  361.         OnMouseDown = samplesMouseDown
  362.       end
  363.     end
  364.   end
  365.   object Panel7: TPanel
  366.     Left = 115
  367.     Top = 50
  368.     Width = 410
  369.     Height = 205
  370.     Align = alClient
  371.     BevelOuter = bvNone
  372.     Caption = 'Panel7'
  373.     TabOrder = 2
  374.     object Panel2: TPanel
  375.       Left = 0
  376.       Top = 0
  377.       Width = 410
  378.       Height = 205
  379.       Align = alClient
  380.       BevelOuter = bvNone
  381.       Caption = 'Panel2'
  382.       TabOrder = 0
  383.       object panelMeter: TPanel
  384.         Left = 0
  385.         Top = 0
  386.         Width = 410
  387.         Height = 21
  388.         Align = alTop
  389.         BevelOuter = bvNone
  390.         BorderStyle = bsSingle
  391.         Caption = 'panelMeter'
  392.         TabOrder = 0
  393.         object meter: TScroll
  394.           Left = 0
  395.           Top = 0
  396.           Width = 406
  397.           Height = 17
  398.           TabOrder = 0
  399.           ParentFont = False
  400.           Font.Charset = ANSI_CHARSET
  401.           Font.Color = clGray
  402.           Font.Height = -9
  403.           Font.Name = 'Small Fonts'
  404.           Font.Style = []
  405.           Align = alClient
  406.           Color = clWhite
  407.           OnPaint = meterPaint
  408.           OnMouseDown = meterMouseDown
  409.           OnMouseMove = meterMouseMove
  410.           OnMouseUp = meterMouseUp
  411.         end
  412.       end
  413.       object Panel3: TPanel
  414.         Left = 0
  415.         Top = 21
  416.         Width = 410
  417.         Height = 184
  418.         Align = alClient
  419.         BevelOuter = bvNone
  420.         BorderStyle = bsSingle
  421.         Caption = 'Panel3'
  422.         TabOrder = 1
  423.         OnResize = Panel3Resize
  424.         object audio: TScroll
  425.           Left = 0
  426.           Top = 0
  427.           Width = 390
  428.           Height = 164
  429.           TabOrder = 0
  430.           ParentFont = False
  431.           Font.Charset = ANSI_CHARSET
  432.           Font.Color = clWhite
  433.           Font.Height = -11
  434.           Font.Name = 'Arial'
  435.           Font.Style = [fsBold, fsItalic]
  436.           Align = alClient
  437.           Color = clBlack
  438.           OnPaint = audioPaint
  439.           OnMouseDown = audioMouseDown
  440.           OnMouseMove = audioMouseMove
  441.           OnMouseUp = audioMouseUp
  442.         end
  443.         object Panel5: TPanel
  444.           Left = 390
  445.           Top = 0
  446.           Width = 16
  447.           Height = 164
  448.           Align = alRight
  449.           BevelOuter = bvNone
  450.           Caption = 'Panel5'
  451.           TabOrder = 1
  452.           object sbVertLess: TSpeedButton
  453.             Left = 1
  454.             Top = 131
  455.             Width = 15
  456.             Height = 16
  457.             Hint = 'Zoom in'
  458.             Font.Charset = DEFAULT_CHARSET
  459.             Font.Color = clBlack
  460.             Font.Height = -11
  461.             Font.Name = 'MS Sans Serif'
  462.             Font.Style = [fsBold]
  463.             Glyph.Data = {
  464.               BE000000424DBE00000000000000760000002800000009000000090000000100
  465.               0400000000004800000000000000000000001000000000000000000000000000
  466.               80000080000000808000800000008000800080800000C0C0C000808080000000
  467.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  468.               0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
  469.               0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  470.               0000}
  471.             ParentFont = False
  472.             ParentShowHint = False
  473.             ShowHint = True
  474.             Spacing = 0
  475.             OnClick = sbVertLessClick
  476.           end
  477.           object sbVertMore: TSpeedButton
  478.             Left = 1
  479.             Top = 147
  480.             Width = 15
  481.             Height = 16
  482.             Hint = 'Zoom out'
  483.             Font.Charset = DEFAULT_CHARSET
  484.             Font.Color = clBlack
  485.             Font.Height = -11
  486.             Font.Name = 'MS Sans Serif'
  487.             Font.Style = [fsBold]
  488.             Glyph.Data = {
  489.               BE000000424DBE00000000000000760000002800000009000000090000000100
  490.               0400000000004800000000000000000000001000000000000000000000000000
  491.               80000080000000808000800000008000800080800000C0C0C000808080000000
  492.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  493.               0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
  494.               0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  495.               0000}
  496.             ParentFont = False
  497.             ParentShowHint = False
  498.             ShowHint = True
  499.             Spacing = 0
  500.             OnClick = sbVertMoreClick
  501.           end
  502.           object sbKeyVert: TScrollBar
  503.             Left = 0
  504.             Top = 0
  505.             Width = 16
  506.             Height = 121
  507.             Kind = sbVertical
  508.             TabOrder = 0
  509.             TabStop = False
  510.             OnChange = sbKeyVertChange
  511.           end
  512.         end
  513.         object Panel8: TPanel
  514.           Left = 0
  515.           Top = 164
  516.           Width = 406
  517.           Height = 16
  518.           Align = alBottom
  519.           BevelOuter = bvNone
  520.           Caption = 'Panel8'
  521.           TabOrder = 2
  522.           object sbNavigator: TSpeedButton
  523.             Left = 288
  524.             Top = 0
  525.             Width = 15
  526.             Height = 16
  527.             Hint = 'Transporter on/off'
  528.             Caption = 'T'
  529.             Font.Charset = DEFAULT_CHARSET
  530.             Font.Color = clBlue
  531.             Font.Height = -11
  532.             Font.Name = 'MS Sans Serif'
  533.             Font.Style = [fsBold]
  534.             ParentFont = False
  535.             ParentShowHint = False
  536.             ShowHint = True
  537.             Spacing = 0
  538.             OnClick = sbNavigatorClick
  539.           end
  540.           object sbHorzLess: TSpeedButton
  541.             Left = 305
  542.             Top = 0
  543.             Width = 15
  544.             Height = 16
  545.             Hint = 'Zoom in'
  546.             Enabled = False
  547.             Font.Charset = DEFAULT_CHARSET
  548.             Font.Color = clBlack
  549.             Font.Height = -11
  550.             Font.Name = 'MS Sans Serif'
  551.             Font.Style = [fsBold]
  552.             Glyph.Data = {
  553.               BE000000424DBE00000000000000760000002800000009000000090000000100
  554.               0400000000004800000000000000000000001000000000000000000000000000
  555.               80000080000000808000800000008000800080800000C0C0C000808080000000
  556.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFF000
  557.               0000FFFFFCCFF0000000FFFFCCCFF0000000FFFCCCCFF0000000FFCCCCCFF000
  558.               0000FFFCCCCFF0000000FFFFCCCFF0000000FFFFFCCFF0000000FFFFFFCFF000
  559.               0000}
  560.             ParentFont = False
  561.             ParentShowHint = False
  562.             ShowHint = True
  563.             Spacing = 0
  564.           end
  565.           object sbHorzMore: TSpeedButton
  566.             Left = 329
  567.             Top = 0
  568.             Width = 15
  569.             Height = 16
  570.             Hint = 'Zoom out'
  571.             Enabled = False
  572.             Font.Charset = DEFAULT_CHARSET
  573.             Font.Color = clBlack
  574.             Font.Height = -11
  575.             Font.Name = 'MS Sans Serif'
  576.             Font.Style = [fsBold]
  577.             Glyph.Data = {
  578.               BE000000424DBE00000000000000760000002800000009000000090000000100
  579.               0400000000004800000000000000000000001000000000000000000000000000
  580.               80000080000000808000800000008000800080800000C0C0C000808080000000
  581.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFF000
  582.               0000FFCCFFFFF0000000FFCCCFFFF0000000FFCCCCFFF0000000FFCCCCCFF000
  583.               0000FFCCCCFFF0000000FFCCCFFFF0000000FFCCFFFFF0000000FFCFFFFFF000
  584.               0000}
  585.             ParentFont = False
  586.             ParentShowHint = False
  587.             ShowHint = True
  588.             Spacing = 0
  589.           end
  590.           object sbKeyHorz: TScrollBar
  591.             Left = 71
  592.             Top = 0
  593.             Width = 121
  594.             Height = 16
  595.             Max = 0
  596.             TabOrder = 0
  597.             TabStop = False
  598.             OnChange = sbKeyHorzChange
  599.           end
  600.           object Panel9: TPanel
  601.             Left = 390
  602.             Top = 0
  603.             Width = 16
  604.             Height = 16
  605.             Align = alRight
  606.             BevelOuter = bvNone
  607.             Caption = 'Panel9'
  608.             TabOrder = 1
  609.             object SpeedButton2: TSpeedButton
  610.               Left = 0
  611.               Top = 0
  612.               Width = 15
  613.               Height = 16
  614.               Hint = 'Zoom 1:1'
  615.               Enabled = False
  616.               Font.Charset = DEFAULT_CHARSET
  617.               Font.Color = clBlack
  618.               Font.Height = -11
  619.               Font.Name = 'MS Sans Serif'
  620.               Font.Style = [fsBold]
  621.               Glyph.Data = {
  622.                 C6000000424DC60000000000000076000000280000000A0000000A0000000100
  623.                 0400000000005000000000000000000000001000000000000000000000000000
  624.                 80000080000000808000800000008000800080800000C0C0C000808080000000
  625.                 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
  626.                 0000FCCCCCCFFF000000FCCCCCFFFF000000FCCCCFFFCF000000FCCCFFFCCF00
  627.                 0000FCCFFFCCCF000000FCFFFCCCCF000000FFFFCCCCCF000000FFFCCCCCCF00
  628.                 0000FFFFFFFFFF000000}
  629.               ParentFont = False
  630.               ParentShowHint = False
  631.               ShowHint = True
  632.               Spacing = 0
  633.             end
  634.           end
  635.         end
  636.       end
  637.     end
  638.   end
  639.   object Panel10: TPanel
  640.     Left = 0
  641.     Top = 25
  642.     Width = 525
  643.     Height = 25
  644.     Hint = 'Toolbar'
  645.     Align = alTop
  646.     BevelOuter = bvNone
  647.     Color = 13421772
  648.     ParentShowHint = False
  649.     ShowHint = True
  650.     TabOrder = 3
  651.     object Label4: TLabel
  652.       Left = 5
  653.       Top = 6
  654.       Width = 43
  655.       Height = 14
  656.       Caption = 'Volume'
  657.       Font.Charset = ANSI_CHARSET
  658.       Font.Color = clWindowText
  659.       Font.Height = -11
  660.       Font.Name = 'Arial'
  661.       Font.Style = [fsBold]
  662.       ParentFont = False
  663.     end
  664.     object Label5: TLabel
  665.       Left = 101
  666.       Top = 6
  667.       Width = 20
  668.       Height = 14
  669.       Caption = 'Pan'
  670.       Font.Charset = ANSI_CHARSET
  671.       Font.Color = clWindowText
  672.       Font.Height = -11
  673.       Font.Name = 'Arial'
  674.       Font.Style = [fsBold]
  675.       ParentFont = False
  676.     end
  677.     object Panel11: TPanel
  678.       Left = 60
  679.       Top = 3
  680.       Width = 30
  681.       Height = 19
  682.       BevelOuter = bvNone
  683.       Color = clBlack
  684.       Font.Charset = DEFAULT_CHARSET
  685.       Font.Color = clWhite
  686.       Font.Height = -11
  687.       Font.Name = 'MS Sans Serif'
  688.       Font.Style = []
  689.       ParentFont = False
  690.       ParentShowHint = False
  691.       ShowHint = False
  692.       TabOrder = 0
  693.       object editVolume: TEditNew
  694.         Left = 3
  695.         Top = 3
  696.         Width = 34
  697.         Height = 21
  698.         Hint = 'Tempo'
  699.         TabStop = False
  700.         BorderStyle = bsNone
  701.         Color = clBlack
  702.         Font.Charset = DEFAULT_CHARSET
  703.         Font.Color = clWhite
  704.         Font.Height = -11
  705.         Font.Name = 'MS Sans Serif'
  706.         Font.Style = []
  707.         ParentFont = False
  708.         ParentShowHint = False
  709.         PopupMenu = fmArrange.PopupTempo
  710.         ShowHint = True
  711.         TabOrder = 0
  712.         OnKeyDown = editVolumeKeyDown
  713.         FocusColor = clBlack
  714.         FocusFontColor = clWhite
  715.         NoFocusColor = clBlack
  716.         NoFocusFontColor = clWhite
  717.       end
  718.     end
  719.     object Panel12: TPanel
  720.       Left = 132
  721.       Top = 3
  722.       Width = 30
  723.       Height = 19
  724.       BevelOuter = bvNone
  725.       Color = clBlack
  726.       Font.Charset = DEFAULT_CHARSET
  727.       Font.Color = clWhite
  728.       Font.Height = -11
  729.       Font.Name = 'MS Sans Serif'
  730.       Font.Style = []
  731.       ParentFont = False
  732.       ParentShowHint = False
  733.       ShowHint = False
  734.       TabOrder = 1
  735.       object editPan: TEditNew
  736.         Left = 3
  737.         Top = 3
  738.         Width = 34
  739.         Height = 21
  740.         Hint = 'Tempo'
  741.         TabStop = False
  742.         BorderStyle = bsNone
  743.         Color = clBlack
  744.         Font.Charset = DEFAULT_CHARSET
  745.         Font.Color = clWhite
  746.         Font.Height = -11
  747.         Font.Name = 'MS Sans Serif'
  748.         Font.Style = []
  749.         ParentFont = False
  750.         ParentShowHint = False
  751.         PopupMenu = fmArrange.PopupTempo
  752.         ShowHint = True
  753.         TabOrder = 0
  754.         OnDblClick = editBpmDblClick
  755.         OnKeyDown = editBpmKeyDown
  756.         OnKeyPress = editBpmKeyPress
  757.         FocusColor = clBlack
  758.         FocusFontColor = clWhite
  759.         NoFocusColor = clBlack
  760.         NoFocusFontColor = clWhite
  761.       end
  762.     end
  763.   end
  764.   object MainMenu1: TMainMenu
  765.     Left = 8
  766.     Top = 56
  767.     object Edit1: TMenuItem
  768.       Caption = '&Edit'
  769.       GroupIndex = 5
  770.       OnClick = Edit1Click
  771.       object Undo1: TMenuItem
  772.         Caption = '&Undo'
  773.         ShortCut = 16474
  774.         OnClick = Undo1Click
  775.       end
  776.       object N2: TMenuItem
  777.         Caption = '-'
  778.       end
  779.       object Selectall1: TMenuItem
  780.         Caption = 'Select &all'
  781.         ShortCut = 16449
  782.         OnClick = Selectall1Click
  783.       end
  784.       object N3: TMenuItem
  785.         Caption = '-'
  786.         Enabled = False
  787.       end
  788.       object Songedit1: TMenuItem
  789.         Caption = '&Song edit'
  790.         ShortCut = 27
  791.         OnClick = Songedit1Click
  792.       end
  793.     end
  794.     object Part1: TMenuItem
  795.       Caption = '&Part'
  796.       GroupIndex = 5
  797.       object Legato1: TMenuItem
  798.         Caption = '&Legato'
  799.         OnClick = Legato1Click
  800.       end
  801.       object Length2: TMenuItem
  802.         Caption = 'L&ength'
  803.         OnClick = Length2Click
  804.       end
  805.       object Quantize1: TMenuItem
  806.         Caption = '&Quantize'
  807.         OnClick = Quantize1Click
  808.       end
  809.     end
  810.     object Waveform1: TMenuItem
  811.       Caption = '&Samples'
  812.       GroupIndex = 5
  813.       OnClick = Waveform1Click
  814.       object Add1: TMenuItem
  815.         Caption = '&Add...'
  816.         OnClick = Add1Click
  817.       end
  818.       object Delete1: TMenuItem
  819.         Caption = '&Delete'
  820.         OnClick = Delete1Click
  821.       end
  822.     end
  823.     object Event1: TMenuItem
  824.       Caption = '&Event'
  825.       GroupIndex = 5
  826.       object Delete3: TMenuItem
  827.         Caption = '&Delete'
  828.         ShortCut = 46
  829.         OnClick = Delete3Click
  830.       end
  831.     end
  832.     object Show1: TMenuItem
  833.       Caption = '&Show'
  834.       GroupIndex = 5
  835.       object Toolbar1: TMenuItem
  836.         Caption = 'T&oolbar'
  837.         Enabled = False
  838.       end
  839.       object Editbar1: TMenuItem
  840.         Caption = '&Editbar'
  841.         Enabled = False
  842.       end
  843.       object Waves1: TMenuItem
  844.         Caption = '&Samples'
  845.         OnClick = Waves1Click
  846.       end
  847.       object N1: TMenuItem
  848.         Caption = '-'
  849.       end
  850.       object Transporter1: TMenuItem
  851.         Caption = '&Transporter'
  852.         OnClick = Transporter1Click
  853.       end
  854.     end
  855.   end
  856.   object OpenDialog1: TOpenDialog
  857.     Left = 40
  858.     Top = 56
  859.   end
  860.   object Popupres: TPopupMenu
  861.     Left = 408
  862.     object N641: TMenuItem
  863.       Caption = '64'
  864.       OnClick = N641Click
  865.     end
  866.     object N321: TMenuItem
  867.       Caption = '32'
  868.       OnClick = N321Click
  869.     end
  870.     object N162: TMenuItem
  871.       Caption = '16'
  872.       OnClick = N162Click
  873.     end
  874.     object N81: TMenuItem
  875.       Caption = '8'
  876.       OnClick = N81Click
  877.     end
  878.     object N42: TMenuItem
  879.       Caption = '4'
  880.       OnClick = N42Click
  881.     end
  882.     object N22: TMenuItem
  883.       Caption = '2'
  884.       OnClick = N22Click
  885.     end
  886.     object N64T1: TMenuItem
  887.       Break = mbBarBreak
  888.       Caption = '64T'
  889.       Enabled = False
  890.     end
  891.     object N32T1: TMenuItem
  892.       Caption = '32T'
  893.       Enabled = False
  894.     end
  895.     object N16T1: TMenuItem
  896.       Caption = '16T'
  897.       Enabled = False
  898.     end
  899.     object N8T1: TMenuItem
  900.       Caption = '8T'
  901.       Enabled = False
  902.     end
  903.     object N4T1: TMenuItem
  904.       Caption = '4T'
  905.       Enabled = False
  906.     end
  907.     object N2T1: TMenuItem
  908.       Caption = '2T'
  909.       Enabled = False
  910.     end
  911.   end
  912.   object PopupWaves: TPopupMenu
  913.     OnPopup = PopupWavesPopup
  914.     Left = 18
  915.     Top = 168
  916.     object Add2: TMenuItem
  917.       Caption = 'Add...'
  918.       OnClick = Add2Click
  919.     end
  920.     object Delete2: TMenuItem
  921.       Caption = 'Delete'
  922.       OnClick = Delete2Click
  923.     end
  924.     object N4: TMenuItem
  925.       Caption = '-'
  926.     end
  927.     object Audition1: TMenuItem
  928.       Caption = 'Audition'
  929.       OnClick = Audition1Click
  930.     end
  931.     object Fullrelease1: TMenuItem
  932.       Caption = 'Full release'
  933.       Enabled = False
  934.     end
  935.   end
  936.   object scrollTimer: TTimer
  937.     Enabled = False
  938.     Interval = 50
  939.     OnTimer = scrollTimerTimer
  940.     Left = 447
  941.     Top = 166
  942.   end
  943. end
  944.