home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TFMCOMPOSE1 / TFMCOMPOSE1.txt < prev   
Encoding:
Text File  |  1999-04-03  |  9.4 KB  |  465 lines
  1. object fmCompose1: TfmCompose1
  2.   Left = 192
  3.   Top = 150
  4.   HelpContext = 6
  5.   BorderStyle = bsDialog
  6.   Caption = 'Compose notes'
  7.   ClientHeight = 250
  8.   ClientWidth = 328
  9.   Color = clSilver
  10.   Font.Charset = ANSI_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'Arial'
  14.   Font.Style = []
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 14
  20.   object Image1: TImage
  21.     Left = 70
  22.     Top = 0
  23.     Width = 258
  24.     Height = 250
  25.     Align = alClient
  26.     Picture.Data = {<image000.bmp>}
  27.     Stretch = True
  28.   end
  29.   object Label1: TLabel
  30.     Left = 80
  31.     Top = 8
  32.     Width = 34
  33.     Height = 14
  34.     Caption = 'Pattern'
  35.     Transparent = True
  36.   end
  37.   object Label2: TLabel
  38.     Left = 80
  39.     Top = 176
  40.     Width = 28
  41.     Height = 14
  42.     Caption = 'Notes'
  43.     Transparent = True
  44.   end
  45.   object Label3: TLabel
  46.     Left = 216
  47.     Top = 19
  48.     Width = 33
  49.     Height = 14
  50.     Caption = 'Length'
  51.     Transparent = True
  52.   end
  53.   object Label4: TLabel
  54.     Left = 216
  55.     Top = 46
  56.     Width = 50
  57.     Height = 14
  58.     Caption = 'Resolution'
  59.     Transparent = True
  60.   end
  61.   object RotateLabel1: TRotateLabel
  62.     Left = 160
  63.     Top = 221
  64.     Width = 160
  65.     Height = 24
  66.     Cursor = crHandPoint
  67.     Hint = 'Click for help'
  68.     Escapement = 0
  69.     TextStyle = tsRecessed
  70.     Caption = 'Compose notes'
  71.     Font.Charset = DEFAULT_CHARSET
  72.     Font.Color = clSilver
  73.     Font.Height = -21
  74.     Font.Name = 'Arial'
  75.     Font.Style = [fsBold]
  76.     ParentFont = False
  77.     ParentShowHint = False
  78.     ShowHint = True
  79.     Transparent = True
  80.     OnClick = RotateLabel1Click
  81.   end
  82.   object Label5: TLabel
  83.     Left = 216
  84.     Top = 76
  85.     Width = 39
  86.     Height = 14
  87.     Caption = 'Velocity'
  88.     Transparent = True
  89.   end
  90.   object Label6: TLabel
  91.     Left = 216
  92.     Top = 100
  93.     Width = 44
  94.     Height = 14
  95.     Caption = 'Arpeggio'
  96.     Transparent = True
  97.   end
  98.   object editPattern: TEdit
  99.     Left = 80
  100.     Top = 24
  101.     Width = 121
  102.     Height = 21
  103.     Hint = 'On/off pattern'
  104.     Color = clBlack
  105.     Font.Charset = ANSI_CHARSET
  106.     Font.Color = clWhite
  107.     Font.Height = -11
  108.     Font.Name = 'MS Sans Serif'
  109.     Font.Style = []
  110.     ParentFont = False
  111.     ParentShowHint = False
  112.     ShowHint = True
  113.     TabOrder = 0
  114.     Text = '10111010'
  115.   end
  116.   object ListBox1: TListBox
  117.     Left = 80
  118.     Top = 56
  119.     Width = 121
  120.     Height = 113
  121.     Color = clBlack
  122.     Font.Charset = ANSI_CHARSET
  123.     Font.Color = clWhite
  124.     Font.Height = -11
  125.     Font.Name = 'MS Sans Serif'
  126.     Font.Style = []
  127.     ItemHeight = 13
  128.     Items.Strings = (
  129.       '1000'
  130.       '0100'
  131.       '0010'
  132.       '0001'
  133.       '1100'
  134.       '1010'
  135.       '1001'
  136.       '0101'
  137.       '0011'
  138.       '1110'
  139.       '1101'
  140.       '1011'
  141.       '0111'
  142.       '1111')
  143.     ParentFont = False
  144.     TabOrder = 1
  145.     OnClick = ListBox1Click
  146.   end
  147.   object chkOverwrite: TCheckBox
  148.     Left = 216
  149.     Top = 152
  150.     Width = 97
  151.     Height = 17
  152.     Caption = 'Overwrite part'
  153.     ParentShowHint = False
  154.     ShowHint = False
  155.     State = cbChecked
  156.     TabOrder = 2
  157.   end
  158.   object editnote: TEdit
  159.     Left = 80
  160.     Top = 192
  161.     Width = 241
  162.     Height = 21
  163.     Hint = 'Use PC or midi keyboard to input notes'
  164.     Color = clBlack
  165.     Font.Charset = DEFAULT_CHARSET
  166.     Font.Color = clWhite
  167.     Font.Height = -11
  168.     Font.Name = 'MS Sans Serif'
  169.     Font.Style = []
  170.     ParentFont = False
  171.     ParentShowHint = False
  172.     ShowHint = True
  173.     TabOrder = 3
  174.     Text = 'C1 - D#1 - G1 '
  175.     OnChange = editnoteChange
  176.   end
  177.   object panelLength: TPanel
  178.     Left = 287
  179.     Top = 16
  180.     Width = 30
  181.     Height = 19
  182.     Cursor = crHandPoint
  183.     Hint = '[Click] Set length of inserted events'
  184.     BevelOuter = bvNone
  185.     Caption = '16'
  186.     Color = clBlack
  187.     Font.Charset = DEFAULT_CHARSET
  188.     Font.Color = clWhite
  189.     Font.Height = -11
  190.     Font.Name = 'MS Sans Serif'
  191.     Font.Style = []
  192.     ParentFont = False
  193.     ParentShowHint = False
  194.     ShowHint = True
  195.     TabOrder = 4
  196.     OnMouseDown = panelLengthMouseDown
  197.     OnMouseUp = panelLengthMouseUp
  198.   end
  199.   object panelRes: TPanel
  200.     Left = 287
  201.     Top = 43
  202.     Width = 30
  203.     Height = 19
  204.     Cursor = crHandPoint
  205.     Hint = '[Click] Set interval of inserted events'
  206.     BevelOuter = bvNone
  207.     Caption = '16'
  208.     Color = clBlack
  209.     Font.Charset = DEFAULT_CHARSET
  210.     Font.Color = clWhite
  211.     Font.Height = -11
  212.     Font.Name = 'MS Sans Serif'
  213.     Font.Style = []
  214.     ParentFont = False
  215.     ParentShowHint = False
  216.     ShowHint = True
  217.     TabOrder = 5
  218.     OnMouseDown = panelResMouseDown
  219.     OnMouseUp = panelResMouseUp
  220.   end
  221.   object Panel1: TPanel
  222.     Left = 0
  223.     Top = 0
  224.     Width = 70
  225.     Height = 250
  226.     Align = alLeft
  227.     BevelOuter = bvNone
  228.     Color = clBlack
  229.     Font.Charset = DEFAULT_CHARSET
  230.     Font.Color = clSilver
  231.     Font.Height = -11
  232.     Font.Name = 'MS Sans Serif'
  233.     Font.Style = []
  234.     ParentFont = False
  235.     TabOrder = 6
  236.     object labelText: TLabel
  237.       Left = 6
  238.       Top = 125
  239.       Width = 58
  240.       Height = 101
  241.       AutoSize = False
  242.       Caption = 
  243.         'Select pattern, length, resulution and velocity to insert in par' +
  244.         't'
  245.       Font.Charset = ANSI_CHARSET
  246.       Font.Color = 8454143
  247.       Font.Height = -11
  248.       Font.Name = 'Arial'
  249.       Font.Style = []
  250.       ParentFont = False
  251.       Transparent = True
  252.       WordWrap = True
  253.     end
  254.     object panelPlay: TPanel
  255.       Left = 4
  256.       Top = 231
  257.       Width = 19
  258.       Height = 16
  259.       Hint = 'Play'
  260.       Color = clBlack
  261.       TabOrder = 0
  262.       object iconPlay: TIconButton
  263.         Left = 1
  264.         Top = 1
  265.         Width = 17
  266.         Height = 14
  267.         Align = alClient
  268.         Center = True
  269.         Picture.Data = {<image001.bmp>}
  270.         OnMouseUp = iconPlayMouseUp
  271.         State = stUp
  272.       end
  273.     end
  274.     object Panel2: TPanel
  275.       Left = 26
  276.       Top = 231
  277.       Width = 19
  278.       Height = 16
  279.       Color = clBlack
  280.       TabOrder = 1
  281.       object IconStop: TIconButton
  282.         Left = 1
  283.         Top = 1
  284.         Width = 17
  285.         Height = 14
  286.         Hint = 'Stop'
  287.         Align = alClient
  288.         Center = True
  289.         Picture.Data = {<image002.bmp>}
  290.         OnMouseUp = IconStopMouseUp
  291.         State = stUp
  292.       end
  293.     end
  294.     object btnClose: tnybutton
  295.       Left = 7
  296.       Top = 93
  297.       Width = 57
  298.       Height = 25
  299.       Cursor = crHandPoint
  300.       Cancel = True
  301.       Caption = '&Close'
  302.       Font.Charset = ANSI_CHARSET
  303.       Font.Color = clSilver
  304.       Font.Height = -11
  305.       Font.Name = 'Arial'
  306.       Font.Style = [fsBold]
  307.       ParentFont = False
  308.       TabOrder = 2
  309.       OnClick = tnybutton1Click
  310.     end
  311.     object btnUndo: tnybutton
  312.       Left = 7
  313.       Top = 64
  314.       Width = 57
  315.       Height = 25
  316.       Cursor = crHandPoint
  317.       Caption = '&Undo'
  318.       Font.Charset = ANSI_CHARSET
  319.       Font.Color = clSilver
  320.       Font.Height = -11
  321.       Font.Name = 'Arial'
  322.       Font.Style = [fsBold]
  323.       ParentFont = False
  324.       TabOrder = 3
  325.       OnClick = btnUndoClick
  326.     end
  327.     object btnApply: tnybutton
  328.       Left = 7
  329.       Top = 35
  330.       Width = 57
  331.       Height = 25
  332.       Cursor = crHandPoint
  333.       Caption = '&Apply'
  334.       Font.Charset = ANSI_CHARSET
  335.       Font.Color = clSilver
  336.       Font.Height = -11
  337.       Font.Name = 'Arial'
  338.       Font.Style = [fsBold]
  339.       ParentFont = False
  340.       TabOrder = 4
  341.       OnClick = btnApplyClick
  342.     end
  343.     object btnOK: tnybutton
  344.       Left = 7
  345.       Top = 7
  346.       Width = 57
  347.       Height = 25
  348.       Cursor = crHandPoint
  349.       Caption = '&OK'
  350.       Default = True
  351.       Font.Charset = ANSI_CHARSET
  352.       Font.Color = clSilver
  353.       Font.Height = -11
  354.       Font.Name = 'Arial'
  355.       Font.Style = [fsBold]
  356.       ParentFont = False
  357.       TabOrder = 5
  358.       OnClick = btnOkClick
  359.     end
  360.   end
  361.   object editVelocity: TEditIncDec
  362.     Left = 288
  363.     Top = 71
  364.     Width = 31
  365.     Height = 22
  366.     Color = clBlack
  367.     Font.Charset = ANSI_CHARSET
  368.     Font.Color = clWhite
  369.     Font.Height = -11
  370.     Font.Name = 'Arial'
  371.     Font.Style = []
  372.     ParentFont = False
  373.     PopupMenu = editVelocity.
  374.     TabOrder = 7
  375.     Text = '64'
  376.     OnExit = editVelocityExit
  377.     Min = 1
  378.     Max = 0
  379.   end
  380.   object comboArp: TComboBox
  381.     Left = 217
  382.     Top = 116
  383.     Width = 101
  384.     Height = 21
  385.     Hint = '[Shift + F1 - F10] Select defined locator positions'
  386.     TabStop = False
  387.     Style = csDropDownList
  388.     Color = clBlack
  389.     Font.Charset = DEFAULT_CHARSET
  390.     Font.Color = clWhite
  391.     Font.Height = -11
  392.     Font.Name = 'MS Sans Serif'
  393.     Font.Style = []
  394.     ItemHeight = 13
  395.     Items.Strings = (
  396.       'None'
  397.       'Up'
  398.       'Down'
  399.       'Up & Down'
  400.       'Down & Up'
  401.       'Random')
  402.     ParentFont = False
  403.     TabOrder = 8
  404.   end
  405.   object Timer1: TTimer
  406.     Interval = 10
  407.     OnTimer = Timer1Timer
  408.     Left = 288
  409.     Top = 216
  410.   end
  411.   object PopupRes: TPopupMenu
  412.     Left = 156
  413.     Top = 160
  414.     object N641: TMenuItem
  415.       Tag = 64
  416.       Caption = '64'
  417.     end
  418.     object N321: TMenuItem
  419.       Tag = 32
  420.       Caption = '32'
  421.     end
  422.     object N161: TMenuItem
  423.       Tag = 16
  424.       Caption = '16'
  425.     end
  426.     object N81: TMenuItem
  427.       Tag = 8
  428.       Caption = '8'
  429.     end
  430.     object N41: TMenuItem
  431.       Tag = 4
  432.       Caption = '4'
  433.     end
  434.     object N21: TMenuItem
  435.       Tag = 2
  436.       Caption = '2'
  437.     end
  438.     object N64T1: TMenuItem
  439.       Break = mbBarBreak
  440.       Caption = '64T'
  441.       Enabled = False
  442.     end
  443.     object N32T1: TMenuItem
  444.       Caption = '32T'
  445.       Enabled = False
  446.     end
  447.     object N16T1: TMenuItem
  448.       Caption = '16T'
  449.       Enabled = False
  450.     end
  451.     object N8T1: TMenuItem
  452.       Caption = '8T'
  453.       Enabled = False
  454.     end
  455.     object N4T1: TMenuItem
  456.       Caption = '4T'
  457.       Enabled = False
  458.     end
  459.     object N2T1: TMenuItem
  460.       Caption = '2T'
  461.       Enabled = False
  462.     end
  463.   end
  464. end
  465.