home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TFMGROOVE / TFMGROOVE.txt < prev   
Text File  |  1999-04-03  |  16KB  |  717 lines
  1. object fmGroove: TfmGroove
  2.   Left = 184
  3.   Top = 101
  4.   BorderStyle = bsDialog
  5.   Caption = 'Groove'
  6.   ClientHeight = 281
  7.   ClientWidth = 340
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Image1: TImage
  20.     Left = 70
  21.     Top = 0
  22.     Width = 270
  23.     Height = 281
  24.     Align = alClient
  25.     AutoSize = True
  26.     Picture.Data = {<image000.bmp>}
  27.     Stretch = True
  28.   end
  29.   object labelGrooves: TLabel
  30.     Left = 80
  31.     Top = 8
  32.     Width = 42
  33.     Height = 14
  34.     Caption = 'Grooves'
  35.     Font.Charset = ANSI_CHARSET
  36.     Font.Color = clWindowText
  37.     Font.Height = -11
  38.     Font.Name = 'Arial'
  39.     Font.Style = []
  40.     ParentFont = False
  41.     Transparent = True
  42.   end
  43.   object Fader1: TFader
  44.     Left = 80
  45.     Top = 140
  46.     Width = 25
  47.     Height = 56
  48.     Color = 16711808
  49.     Font.Charset = ANSI_CHARSET
  50.     Font.Color = clWhite
  51.     Font.Height = -9
  52.     Font.Name = 'Small Fonts'
  53.     Font.Style = []
  54.     ParentColor = False
  55.     ParentFont = False
  56.     OnMouseUp = FaderMouseUp
  57.     Mirror = True
  58.     ShowText = True
  59.     Min = 1
  60.     Max = 127
  61.     Pos = 40
  62.     ThumbSize = 0
  63.     OnChange = FaderChange
  64.   end
  65.   object Fader2: TFader
  66.     Left = 112
  67.     Top = 140
  68.     Width = 25
  69.     Height = 56
  70.     Color = 16711808
  71.     Font.Charset = ANSI_CHARSET
  72.     Font.Color = clWhite
  73.     Font.Height = -9
  74.     Font.Name = 'Small Fonts'
  75.     Font.Style = []
  76.     ParentColor = False
  77.     ParentFont = False
  78.     OnMouseUp = FaderMouseUp
  79.     Mirror = True
  80.     ShowText = True
  81.     Min = 1
  82.     Max = 127
  83.     Pos = 40
  84.     ThumbSize = 0
  85.     OnChange = FaderChange
  86.   end
  87.   object Fader3: TFader
  88.     Left = 144
  89.     Top = 140
  90.     Width = 25
  91.     Height = 56
  92.     Color = 16711808
  93.     Font.Charset = ANSI_CHARSET
  94.     Font.Color = clWhite
  95.     Font.Height = -9
  96.     Font.Name = 'Small Fonts'
  97.     Font.Style = []
  98.     ParentColor = False
  99.     ParentFont = False
  100.     OnMouseUp = FaderMouseUp
  101.     Mirror = True
  102.     ShowText = True
  103.     Min = 1
  104.     Max = 127
  105.     Pos = 40
  106.     ThumbSize = 0
  107.     OnChange = FaderChange
  108.   end
  109.   object Fader4: TFader
  110.     Left = 176
  111.     Top = 140
  112.     Width = 25
  113.     Height = 56
  114.     Color = 16711808
  115.     Font.Charset = ANSI_CHARSET
  116.     Font.Color = clWhite
  117.     Font.Height = -9
  118.     Font.Name = 'Small Fonts'
  119.     Font.Style = []
  120.     ParentColor = False
  121.     ParentFont = False
  122.     OnMouseUp = FaderMouseUp
  123.     Mirror = True
  124.     ShowText = True
  125.     Min = 1
  126.     Max = 127
  127.     Pos = 40
  128.     ThumbSize = 0
  129.     OnChange = FaderChange
  130.   end
  131.   object Fader5: TFader
  132.     Left = 208
  133.     Top = 140
  134.     Width = 25
  135.     Height = 56
  136.     Color = 16711808
  137.     Font.Charset = ANSI_CHARSET
  138.     Font.Color = clWhite
  139.     Font.Height = -9
  140.     Font.Name = 'Small Fonts'
  141.     Font.Style = []
  142.     ParentColor = False
  143.     ParentFont = False
  144.     OnMouseUp = FaderMouseUp
  145.     Mirror = True
  146.     ShowText = True
  147.     Min = 1
  148.     Max = 127
  149.     Pos = 40
  150.     ThumbSize = 0
  151.     OnChange = FaderChange
  152.   end
  153.   object Fader6: TFader
  154.     Left = 240
  155.     Top = 140
  156.     Width = 25
  157.     Height = 56
  158.     Color = 16711808
  159.     Font.Charset = ANSI_CHARSET
  160.     Font.Color = clWhite
  161.     Font.Height = -9
  162.     Font.Name = 'Small Fonts'
  163.     Font.Style = []
  164.     ParentColor = False
  165.     ParentFont = False
  166.     OnMouseUp = FaderMouseUp
  167.     Mirror = True
  168.     ShowText = True
  169.     Min = 1
  170.     Max = 127
  171.     Pos = 40
  172.     ThumbSize = 0
  173.     OnChange = FaderChange
  174.   end
  175.   object Fader7: TFader
  176.     Left = 272
  177.     Top = 140
  178.     Width = 25
  179.     Height = 56
  180.     Color = 16711808
  181.     Font.Charset = ANSI_CHARSET
  182.     Font.Color = clWhite
  183.     Font.Height = -9
  184.     Font.Name = 'Small Fonts'
  185.     Font.Style = []
  186.     ParentColor = False
  187.     ParentFont = False
  188.     OnMouseUp = FaderMouseUp
  189.     Mirror = True
  190.     ShowText = True
  191.     Min = 1
  192.     Max = 127
  193.     Pos = 40
  194.     ThumbSize = 0
  195.     OnChange = FaderChange
  196.   end
  197.   object Fader8: TFader
  198.     Left = 304
  199.     Top = 140
  200.     Width = 25
  201.     Height = 56
  202.     Color = 16711808
  203.     Font.Charset = ANSI_CHARSET
  204.     Font.Color = clWhite
  205.     Font.Height = -9
  206.     Font.Name = 'Small Fonts'
  207.     Font.Style = []
  208.     ParentColor = False
  209.     ParentFont = False
  210.     OnMouseUp = FaderMouseUp
  211.     Mirror = True
  212.     ShowText = True
  213.     Min = 1
  214.     Max = 127
  215.     Pos = 40
  216.     ThumbSize = 0
  217.     OnChange = FaderChange
  218.   end
  219.   object Label2: TLabel
  220.     Left = 80
  221.     Top = 56
  222.     Width = 46
  223.     Height = 14
  224.     Caption = 'Time (+/-)'
  225.     Font.Charset = ANSI_CHARSET
  226.     Font.Color = clWindowText
  227.     Font.Height = -11
  228.     Font.Name = 'Arial'
  229.     Font.Style = []
  230.     ParentFont = False
  231.     Transparent = True
  232.   end
  233.   object RotateLabel1: TRotateLabel
  234.     Left = 243
  235.     Top = 247
  236.     Width = 87
  237.     Height = 24
  238.     Cursor = crHandPoint
  239.     Hint = 'Click for help'
  240.     Escapement = 8
  241.     TextStyle = tsRecessed
  242.     Caption = 'Grooves'
  243.     Font.Charset = DEFAULT_CHARSET
  244.     Font.Color = clSilver
  245.     Font.Height = -21
  246.     Font.Name = 'Arial'
  247.     Font.Style = [fsBold]
  248.     ParentFont = False
  249.     ParentShowHint = False
  250.     ShowHint = True
  251.     Transparent = True
  252.   end
  253.   object brnReset: TSpeedButton
  254.     Left = 192
  255.     Top = 224
  256.     Width = 41
  257.     Height = 25
  258.     Hint = 'Reset values'
  259.     Caption = 'Reset'
  260.     ParentShowHint = False
  261.     ShowHint = True
  262.     OnClick = brnResetClick
  263.   end
  264.   object sbMoveUp1: TSpeedButton
  265.     Left = 308
  266.     Top = 24
  267.     Width = 20
  268.     Height = 20
  269.     Hint = 'Prior groove'
  270.     Flat = True
  271.     Glyph.Data = {
  272.       E2000000424DE200000000000000760000002800000012000000090000000100
  273.       0400000000006C00000000000000000000001000000000000000000000000000
  274.       80000080000000808000800000008000800080800000C0C0C000808080000000
  275.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  276.       FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  277.       CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  278.       0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  279.       FFFFFF000000}
  280.     NumGlyphs = 2
  281.     ParentShowHint = False
  282.     ShowHint = True
  283.     OnClick = sbMoveUp1Click
  284.   end
  285.   object sbMoveDown1: TSpeedButton
  286.     Left = 286
  287.     Top = 24
  288.     Width = 20
  289.     Height = 20
  290.     Hint = 'Next groove'
  291.     Flat = True
  292.     Glyph.Data = {
  293.       E2000000424DE200000000000000760000002800000012000000090000000100
  294.       0400000000006C00000000000000000000001000000000000000000000000000
  295.       80000080000000808000800000008000800080800000C0C0C000808080000000
  296.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  297.       FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  298.       CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  299.       0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  300.       FFFFFF000000}
  301.     NumGlyphs = 2
  302.     ParentShowHint = False
  303.     ShowHint = True
  304.     OnClick = sbMoveDown1Click
  305.   end
  306.   object Label1: TLabel
  307.     Left = 80
  308.     Top = 120
  309.     Width = 39
  310.     Height = 14
  311.     Caption = 'Velocity'
  312.     Font.Charset = ANSI_CHARSET
  313.     Font.Color = clWindowText
  314.     Font.Height = -11
  315.     Font.Name = 'Arial'
  316.     Font.Style = []
  317.     ParentFont = False
  318.     Transparent = True
  319.   end
  320.   object Bevel1: TBevel
  321.     Left = 80
  322.     Top = 109
  323.     Width = 250
  324.     Height = 3
  325.     Style = bsRaised
  326.   end
  327.   object Panel1: TPanel
  328.     Left = 0
  329.     Top = 0
  330.     Width = 70
  331.     Height = 281
  332.     Align = alLeft
  333.     BevelOuter = bvNone
  334.     FullRepaint = False
  335.     Color = clBlack
  336.     Font.Charset = DEFAULT_CHARSET
  337.     Font.Color = clSilver
  338.     Font.Height = -11
  339.     Font.Name = 'MS Sans Serif'
  340.     Font.Style = []
  341.     ParentFont = False
  342.     TabOrder = 0
  343.     object labelText: TLabel
  344.       Left = 8
  345.       Top = 128
  346.       Width = 57
  347.       Height = 33
  348.       AutoSize = False
  349.       Caption = 'Make it groove...'
  350.       Color = clBlack
  351.       Font.Charset = ANSI_CHARSET
  352.       Font.Color = 8454143
  353.       Font.Height = -11
  354.       Font.Name = 'Arial'
  355.       Font.Style = []
  356.       ParentColor = False
  357.       ParentFont = False
  358.       Transparent = True
  359.       WordWrap = True
  360.     end
  361.     object panelPlay: TPanel
  362.       Left = 4
  363.       Top = 262
  364.       Width = 19
  365.       Height = 16
  366.       Color = clBlack
  367.       TabOrder = 0
  368.       object iconPlay: TIconButton
  369.         Left = 1
  370.         Top = 1
  371.         Width = 17
  372.         Height = 14
  373.         Hint = 'Play'
  374.         Align = alClient
  375.         Center = True
  376.         Picture.Data = {<image001.bmp>}
  377.         OnMouseUp = iconPlayMouseUp
  378.         State = stUp
  379.       end
  380.     end
  381.     object Panel2: TPanel
  382.       Left = 26
  383.       Top = 262
  384.       Width = 19
  385.       Height = 16
  386.       Color = clBlack
  387.       TabOrder = 1
  388.       object IconStop: TIconButton
  389.         Left = 1
  390.         Top = 1
  391.         Width = 17
  392.         Height = 14
  393.         Hint = 'Stop'
  394.         Align = alClient
  395.         Center = True
  396.         Picture.Data = {<image002.bmp>}
  397.         OnMouseUp = IconStopMouseUp
  398.         State = stUp
  399.       end
  400.     end
  401.     object btnUndo: tnybutton
  402.       Left = 6
  403.       Top = 63
  404.       Width = 57
  405.       Height = 25
  406.       Cursor = crHandPoint
  407.       Caption = '&Undo'
  408.       Font.Charset = ANSI_CHARSET
  409.       Font.Color = clSilver
  410.       Font.Height = -11
  411.       Font.Name = 'Arial'
  412.       Font.Style = [fsBold]
  413.       ParentFont = False
  414.       TabOrder = 2
  415.       OnClick = btnUndoClick
  416.     end
  417.     object btnQ: tnybutton
  418.       Left = 6
  419.       Top = 35
  420.       Width = 57
  421.       Height = 25
  422.       Cursor = crHandPoint
  423.       Caption = '&Q'
  424.       Font.Charset = ANSI_CHARSET
  425.       Font.Color = clSilver
  426.       Font.Height = -11
  427.       Font.Name = 'Arial'
  428.       Font.Style = [fsBold]
  429.       ParentFont = False
  430.       TabOrder = 3
  431.       OnClick = btnQClick
  432.     end
  433.     object btnSave: tnybutton
  434.       Left = 6
  435.       Top = 7
  436.       Width = 57
  437.       Height = 25
  438.       Cursor = crHandPoint
  439.       Caption = '&Store'
  440.       Font.Charset = ANSI_CHARSET
  441.       Font.Color = clSilver
  442.       Font.Height = -11
  443.       Font.Name = 'Arial'
  444.       Font.Style = [fsBold]
  445.       ParentFont = False
  446.       TabOrder = 4
  447.       OnClick = btnSaveClick
  448.     end
  449.     object tnybutton1: tnybutton
  450.       Left = 6
  451.       Top = 91
  452.       Width = 57
  453.       Height = 25
  454.       Cursor = crHandPoint
  455.       Cancel = True
  456.       Caption = '&Close'
  457.       Default = True
  458.       Font.Charset = ANSI_CHARSET
  459.       Font.Color = clSilver
  460.       Font.Height = -11
  461.       Font.Name = 'Arial'
  462.       Font.Style = [fsBold]
  463.       ParentFont = False
  464.       TabOrder = 5
  465.       OnClick = tnybutton1Click
  466.     end
  467.   end
  468.   object ComboGrooves: TComboBox
  469.     Left = 80
  470.     Top = 24
  471.     Width = 201
  472.     Height = 21
  473.     Color = clBlack
  474.     Font.Charset = DEFAULT_CHARSET
  475.     Font.Color = clWhite
  476.     Font.Height = -11
  477.     Font.Name = 'MS Sans Serif'
  478.     Font.Style = []
  479.     ItemHeight = 13
  480.     Items.Strings = (
  481.       'Shuffle'
  482.       'Tripples')
  483.     ParentFont = False
  484.     TabOrder = 1
  485.     OnChange = ComboGroovesChange
  486.     OnKeyPress = ComboGroovesKeyPress
  487.   end
  488.   object time1: TEdit
  489.     Left = 80
  490.     Top = 72
  491.     Width = 25
  492.     Height = 22
  493.     Color = clBlack
  494.     Font.Charset = ANSI_CHARSET
  495.     Font.Color = clWhite
  496.     Font.Height = -11
  497.     Font.Name = 'Arial'
  498.     Font.Style = []
  499.     MaxLength = 3
  500.     ParentFont = False
  501.     TabOrder = 2
  502.     Text = '0'
  503.     OnChange = timeChange
  504.     OnExit = timeExit
  505.     OnKeyDown = time1KeyDown
  506.     OnKeyPress = timeKeyPress
  507.   end
  508.   object chkVelocity: TCheckBox
  509.     Left = 80
  510.     Top = 201
  511.     Width = 81
  512.     Height = 17
  513.     Caption = 'Use velocity'
  514.     Font.Charset = ANSI_CHARSET
  515.     Font.Color = clWindowText
  516.     Font.Height = -11
  517.     Font.Name = 'Arial'
  518.     Font.Style = []
  519.     ParentFont = False
  520.     State = cbChecked
  521.     TabOrder = 3
  522.     OnClick = chkVelocityClick
  523.   end
  524.   object time2: TEdit
  525.     Tag = 1
  526.     Left = 112
  527.     Top = 72
  528.     Width = 25
  529.     Height = 22
  530.     Color = clBlack
  531.     Font.Charset = ANSI_CHARSET
  532.     Font.Color = clWhite
  533.     Font.Height = -11
  534.     Font.Name = 'Arial'
  535.     Font.Style = []
  536.     MaxLength = 3
  537.     ParentFont = False
  538.     TabOrder = 4
  539.     Text = '0'
  540.     OnChange = timeChange
  541.     OnExit = timeExit
  542.     OnKeyPress = timeKeyPress
  543.   end
  544.   object time3: TEdit
  545.     Left = 144
  546.     Top = 72
  547.     Width = 25
  548.     Height = 22
  549.     Color = clBlack
  550.     Font.Charset = ANSI_CHARSET
  551.     Font.Color = clWhite
  552.     Font.Height = -11
  553.     Font.Name = 'Arial'
  554.     Font.Style = []
  555.     MaxLength = 3
  556.     ParentFont = False
  557.     TabOrder = 5
  558.     Text = '0'
  559.     OnChange = timeChange
  560.     OnExit = timeExit
  561.     OnKeyPress = timeKeyPress
  562.   end
  563.   object time4: TEdit
  564.     Left = 176
  565.     Top = 72
  566.     Width = 25
  567.     Height = 22
  568.     Color = clBlack
  569.     Font.Charset = ANSI_CHARSET
  570.     Font.Color = clWhite
  571.     Font.Height = -11
  572.     Font.Name = 'Arial'
  573.     Font.Style = []
  574.     MaxLength = 3
  575.     ParentFont = False
  576.     TabOrder = 6
  577.     Text = '0'
  578.     OnChange = timeChange
  579.     OnExit = timeExit
  580.     OnKeyPress = timeKeyPress
  581.   end
  582.   object time5: TEdit
  583.     Left = 208
  584.     Top = 72
  585.     Width = 25
  586.     Height = 22
  587.     Color = clBlack
  588.     Font.Charset = ANSI_CHARSET
  589.     Font.Color = clWhite
  590.     Font.Height = -11
  591.     Font.Name = 'Arial'
  592.     Font.Style = []
  593.     MaxLength = 3
  594.     ParentFont = False
  595.     TabOrder = 7
  596.     Text = '0'
  597.     OnChange = timeChange
  598.     OnExit = timeExit
  599.     OnKeyPress = timeKeyPress
  600.   end
  601.   object time6: TEdit
  602.     Left = 240
  603.     Top = 72
  604.     Width = 25
  605.     Height = 22
  606.     Color = clBlack
  607.     Font.Charset = ANSI_CHARSET
  608.     Font.Color = clWhite
  609.     Font.Height = -11
  610.     Font.Name = 'Arial'
  611.     Font.Style = []
  612.     MaxLength = 3
  613.     ParentFont = False
  614.     TabOrder = 8
  615.     Text = '0'
  616.     OnChange = timeChange
  617.     OnExit = timeExit
  618.     OnKeyPress = timeKeyPress
  619.   end
  620.   object time7: TEdit
  621.     Left = 272
  622.     Top = 72
  623.     Width = 25
  624.     Height = 22
  625.     Color = clBlack
  626.     Font.Charset = ANSI_CHARSET
  627.     Font.Color = clWhite
  628.     Font.Height = -11
  629.     Font.Name = 'Arial'
  630.     Font.Style = []
  631.     MaxLength = 3
  632.     ParentFont = False
  633.     TabOrder = 9
  634.     Text = '0'
  635.     OnChange = timeChange
  636.     OnExit = timeExit
  637.     OnKeyPress = timeKeyPress
  638.   end
  639.   object time8: TEdit
  640.     Left = 304
  641.     Top = 72
  642.     Width = 25
  643.     Height = 22
  644.     Color = clBlack
  645.     Font.Charset = ANSI_CHARSET
  646.     Font.Color = clWhite
  647.     Font.Height = -11
  648.     Font.Name = 'Arial'
  649.     Font.Style = []
  650.     MaxLength = 3
  651.     ParentFont = False
  652.     TabOrder = 10
  653.     Text = '0'
  654.     OnChange = timeChange
  655.     OnExit = timeExit
  656.     OnKeyPress = timeKeyPress
  657.   end
  658.   object Button7: TButton
  659.     Left = 80
  660.     Top = 224
  661.     Width = 49
  662.     Height = 25
  663.     Hint = 'Insert new groove'
  664.     Caption = '&Insert'
  665.     Font.Charset = ANSI_CHARSET
  666.     Font.Color = clWindowText
  667.     Font.Height = -11
  668.     Font.Name = 'MS Sans Serif'
  669.     Font.Style = []
  670.     ParentFont = False
  671.     ParentShowHint = False
  672.     ShowHint = True
  673.     TabOrder = 11
  674.     OnClick = Button7Click
  675.   end
  676.   object Button1: TButton
  677.     Left = 136
  678.     Top = 224
  679.     Width = 49
  680.     Height = 25
  681.     Hint = 'Delete current groove'
  682.     Caption = '&Delete'
  683.     Font.Charset = ANSI_CHARSET
  684.     Font.Color = clWindowText
  685.     Font.Height = -11
  686.     Font.Name = 'MS Sans Serif'
  687.     Font.Style = []
  688.     ParentFont = False
  689.     ParentShowHint = False
  690.     ShowHint = True
  691.     TabOrder = 12
  692.     OnClick = Button1Click
  693.   end
  694.   object chkrealtime: TCheckBox
  695.     Left = 80
  696.     Top = 262
  697.     Width = 73
  698.     Height = 17
  699.     Hint = 'Quantize on change'
  700.     Caption = 'Real time'
  701.     ParentShowHint = False
  702.     ShowHint = True
  703.     TabOrder = 13
  704.   end
  705.   object OpenDialog1: TOpenDialog
  706.     DefaultExt = 'grv'
  707.     Filter = 'Groove file (*.grv)|*.grv'
  708.     Left = 304
  709.     Top = 256
  710.   end
  711.   object SaveDialog1: TSaveDialog
  712.     DefaultExt = 'grv'
  713.     Left = 288
  714.     Top = 288
  715.   end
  716. end
  717.