home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TDLGPROGRAM / TDLGPROGRAM.txt < prev   
Text File  |  1999-04-03  |  18KB  |  588 lines
  1. object dlgProgram: TdlgProgram
  2.   Left = 333
  3.   Top = 255
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Bank / program'
  7.   ClientHeight = 190
  8.   ClientWidth = 282
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 70
  23.     Height = 190
  24.     Align = alLeft
  25.     BevelOuter = bvNone
  26.     Color = clBlack
  27.     Font.Charset = DEFAULT_CHARSET
  28.     Font.Color = clSilver
  29.     Font.Height = -11
  30.     Font.Name = 'MS Sans Serif'
  31.     Font.Style = []
  32.     ParentFont = False
  33.     TabOrder = 0
  34.     object labelText: TLabel
  35.       Left = 9
  36.       Top = 69
  37.       Width = 56
  38.       Height = 76
  39.       AutoSize = False
  40.       Caption = 'Select bank and program for active track'
  41.       Font.Charset = ANSI_CHARSET
  42.       Font.Color = 8454143
  43.       Font.Height = -11
  44.       Font.Name = 'Arial'
  45.       Font.Style = []
  46.       ParentFont = False
  47.       Transparent = True
  48.       WordWrap = True
  49.     end
  50.     object panelPlay: TPanel
  51.       Left = 4
  52.       Top = 171
  53.       Width = 19
  54.       Height = 16
  55.       Color = clBlack
  56.       TabOrder = 0
  57.       object iconPlay: TIconButton
  58.         Left = 1
  59.         Top = 1
  60.         Width = 17
  61.         Height = 14
  62.         Hint = 'Play'
  63.         Align = alClient
  64.         Center = True
  65.         Picture.Data = {<image000.bmp>}
  66.         OnMouseUp = iconPlayMouseUp
  67.         State = stUp
  68.       end
  69.     end
  70.     object Panel2: TPanel
  71.       Left = 26
  72.       Top = 171
  73.       Width = 19
  74.       Height = 16
  75.       Color = clBlack
  76.       TabOrder = 1
  77.       object IconStop: TIconButton
  78.         Left = 1
  79.         Top = 1
  80.         Width = 17
  81.         Height = 14
  82.         Hint = 'Stop'
  83.         Align = alClient
  84.         Center = True
  85.         Picture.Data = {<image001.bmp>}
  86.         OnMouseUp = IconStopMouseUp
  87.         State = stUp
  88.       end
  89.     end
  90.     object btnClose: tnybutton
  91.       Left = 7
  92.       Top = 36
  93.       Width = 57
  94.       Height = 25
  95.       Cursor = crHandPoint
  96.       Cancel = True
  97.       Caption = '&Close'
  98.       Default = True
  99.       Font.Charset = ANSI_CHARSET
  100.       Font.Color = clSilver
  101.       Font.Height = -11
  102.       Font.Name = 'Arial'
  103.       Font.Style = [fsBold]
  104.       ParentFont = False
  105.       TabOrder = 2
  106.       OnClick = btnCloseClick
  107.     end
  108.     object btnOff: tnybutton
  109.       Left = 7
  110.       Top = 7
  111.       Width = 57
  112.       Height = 25
  113.       Cursor = crHandPoint
  114.       Caption = '&Off'
  115.       Font.Charset = ANSI_CHARSET
  116.       Font.Color = clSilver
  117.       Font.Height = -11
  118.       Font.Name = 'Arial'
  119.       Font.Style = [fsBold]
  120.       ParentFont = False
  121.       TabOrder = 3
  122.       OnClick = btnOffClick
  123.     end
  124.   end
  125.   object PageControl1: TPage95Control
  126.     Left = 80
  127.     Top = 8
  128.     Width = 257
  129.     Height = 181
  130.     ActivePage = PageSet
  131.     ButtonStyle = True
  132.     FlatButtons = True
  133.     FlatSeperators = False
  134.     Font.Charset = ANSI_CHARSET
  135.     Font.Color = clWindowText
  136.     Font.Height = -11
  137.     Font.Name = 'Arial'
  138.     Font.Style = [fsBold]
  139.     HotTrack = True
  140.     TabInactiveColor = clSilver
  141.     TabInactiveFont.Charset = ANSI_CHARSET
  142.     TabInactiveFont.Color = clWindowText
  143.     TabInactiveFont.Height = -11
  144.     TabInactiveFont.Name = 'Arial'
  145.     TabInactiveFont.Style = []
  146.     ParentFont = False
  147.     TabOrder = 1
  148.     object PageSet: TTab95Sheet
  149.       Caption = 'Set'
  150.       GripAlign = gaLeft
  151.       ImageIndex = -1
  152.       StaticPageIndex = -1
  153.       TabVisible = True
  154.       object Bevel3: TBevel
  155.         Left = 8
  156.         Top = 72
  157.         Width = 169
  158.         Height = 3
  159.         Style = bsRaised
  160.       end
  161.       object Bevel4: TBevel
  162.         Left = 51
  163.         Top = 122
  164.         Width = 127
  165.         Height = 2
  166.         Style = bsRaised
  167.       end
  168.       object SpeedButton9: TSpeedButton
  169.         Left = 116
  170.         Top = 111
  171.         Width = 20
  172.         Height = 20
  173.         Hint = 'Up 1'
  174.         Glyph.Data = {
  175.           BE000000424DBE00000000000000760000002800000009000000090000000100
  176.           0400000000004800000000000000000000001000000000000000000000000000
  177.           80000080000000808000800000008000800080800000C0C0C000808080000000
  178.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  179.           0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
  180.           0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  181.           0000}
  182.         ParentShowHint = False
  183.         ShowHint = True
  184.         OnClick = SpeedButton9Click
  185.       end
  186.       object SpeedButton10: TSpeedButton
  187.         Left = 141
  188.         Top = 114
  189.         Width = 20
  190.         Height = 20
  191.         Hint = 'Down 1'
  192.         Glyph.Data = {
  193.           BE000000424DBE00000000000000760000002800000009000000090000000100
  194.           0400000000004800000000000000000000001000000000000000000000000000
  195.           80000080000000808000800000008000800080800000C0C0C000808080000000
  196.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  197.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
  198.           0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  199.           0000}
  200.         ParentShowHint = False
  201.         ShowHint = True
  202.         OnClick = SpeedButton10Click
  203.       end
  204.       object SpeedButton11: TSpeedButton
  205.         Left = 66
  206.         Top = 108
  207.         Width = 20
  208.         Height = 20
  209.         Hint = 'Up 10'
  210.         Glyph.Data = {
  211.           BE000000424DBE00000000000000760000002800000009000000090000000100
  212.           0400000000004800000000000000000000001000000000000000000000000000
  213.           80000080000000808000800000008000800080800000C0C0C000808080000000
  214.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  215.           0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000
  216.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  217.           0000}
  218.         ParentShowHint = False
  219.         ShowHint = True
  220.         OnClick = SpeedButton3Click
  221.       end
  222.       object SpeedButton12: TSpeedButton
  223.         Left = 91
  224.         Top = 118
  225.         Width = 20
  226.         Height = 20
  227.         Hint = 'Down 10'
  228.         Glyph.Data = {
  229.           BE000000424DBE00000000000000760000002800000009000000090000000100
  230.           0400000000004800000000000000000000001000000000000000000000000000
  231.           80000080000000808000800000008000800080800000C0C0C000808080000000
  232.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  233.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000
  234.           0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  235.           0000}
  236.         ParentShowHint = False
  237.         ShowHint = True
  238.         OnClick = SpeedButton4Click
  239.       end
  240.       object Label1: TLabel
  241.         Left = 8
  242.         Top = 88
  243.         Width = 40
  244.         Height = 14
  245.         Caption = 'Program'
  246.         Font.Charset = ANSI_CHARSET
  247.         Font.Color = clWindowText
  248.         Font.Height = -11
  249.         Font.Name = 'Arial'
  250.         Font.Style = []
  251.         ParentFont = False
  252.       end
  253.       object Bevel2: TBevel
  254.         Left = 51
  255.         Top = 42
  256.         Width = 127
  257.         Height = 2
  258.         Style = bsRaised
  259.       end
  260.       object SpeedButton5: TSpeedButton
  261.         Left = 116
  262.         Top = 31
  263.         Width = 20
  264.         Height = 20
  265.         Hint = 'Up 1'
  266.         Glyph.Data = {
  267.           BE000000424DBE00000000000000760000002800000009000000090000000100
  268.           0400000000004800000000000000000000001000000000000000000000000000
  269.           80000080000000808000800000008000800080800000C0C0C000808080000000
  270.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  271.           0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
  272.           0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  273.           0000}
  274.         ParentShowHint = False
  275.         ShowHint = True
  276.         OnClick = SpeedButton5Click
  277.       end
  278.       object SpeedButton6: TSpeedButton
  279.         Left = 141
  280.         Top = 34
  281.         Width = 20
  282.         Height = 20
  283.         Hint = 'Down 1'
  284.         Glyph.Data = {
  285.           BE000000424DBE00000000000000760000002800000009000000090000000100
  286.           0400000000004800000000000000000000001000000000000000000000000000
  287.           80000080000000808000800000008000800080800000C0C0C000808080000000
  288.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  289.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
  290.           0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  291.           0000}
  292.         ParentShowHint = False
  293.         ShowHint = True
  294.         OnClick = SpeedButton6Click
  295.       end
  296.       object SpeedButton7: TSpeedButton
  297.         Left = 66
  298.         Top = 28
  299.         Width = 20
  300.         Height = 20
  301.         Hint = 'Up 10'
  302.         Glyph.Data = {
  303.           BE000000424DBE00000000000000760000002800000009000000090000000100
  304.           0400000000004800000000000000000000001000000000000000000000000000
  305.           80000080000000808000800000008000800080800000C0C0C000808080000000
  306.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  307.           0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000
  308.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
  309.           0000}
  310.         ParentShowHint = False
  311.         ShowHint = True
  312.         OnClick = SpeedButton7Click
  313.       end
  314.       object SpeedButton8: TSpeedButton
  315.         Left = 91
  316.         Top = 38
  317.         Width = 20
  318.         Height = 20
  319.         Hint = 'Down 10'
  320.         Glyph.Data = {
  321.           BE000000424DBE00000000000000760000002800000009000000090000000100
  322.           0400000000004800000000000000000000001000000000000000000000000000
  323.           80000080000000808000800000008000800080800000C0C0C000808080000000
  324.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
  325.           0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000
  326.           0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
  327.           0000}
  328.         ParentShowHint = False
  329.         ShowHint = True
  330.         OnClick = SpeedButton8Click
  331.       end
  332.       object Label2: TLabel
  333.         Left = 8
  334.         Top = 8
  335.         Width = 24
  336.         Height = 14
  337.         Caption = 'Bank'
  338.         Font.Charset = ANSI_CHARSET
  339.         Font.Color = clWindowText
  340.         Font.Height = -11
  341.         Font.Name = 'Arial'
  342.         Font.Style = []
  343.         ParentFont = False
  344.       end
  345.       object editProgram: TEditIncDec
  346.         Left = 8
  347.         Top = 112
  348.         Width = 34
  349.         Height = 22
  350.         Color = clBlack
  351.         Font.Charset = ANSI_CHARSET
  352.         Font.Color = clWhite
  353.         Font.Height = -11
  354.         Font.Name = 'Arial'
  355.         Font.Style = []
  356.         ParentFont = False
  357.         PopupMenu = editProgram.
  358.         TabOrder = 0
  359.         OnChange = editProgramChange
  360.         Max = 99999
  361.       end
  362.       object editBank: TEditIncDec
  363.         Left = 7
  364.         Top = 33
  365.         Width = 34
  366.         Height = 22
  367.         Color = clBlack
  368.         Font.Charset = ANSI_CHARSET
  369.         Font.Color = clWhite
  370.         Font.Height = -11
  371.         Font.Name = 'Arial'
  372.         Font.Style = []
  373.         ParentFont = False
  374.         PopupMenu = editBank.
  375.         TabOrder = 1
  376.         OnChange = editBankChange
  377.         Max = 99999
  378.       end
  379.     end
  380.     object Tab95Sheet1: TTab95Sheet
  381.       Caption = 'GM'
  382.       GripAlign = gaLeft
  383.       ImageIndex = -1
  384.       StaticPageIndex = -1
  385.       TabVisible = True
  386.       object SpeedButton1: TSpeedButton
  387.         Left = 149
  388.         Top = 128
  389.         Width = 20
  390.         Height = 20
  391.         Hint = 'Next bank'
  392.         Flat = True
  393.         Glyph.Data = {
  394.           E2000000424DE200000000000000760000002800000012000000090000000100
  395.           0400000000006C00000000000000000000001000000000000000000000000000
  396.           80000080000000808000800000008000800080800000C0C0C000808080000000
  397.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  398.           FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  399.           CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  400.           0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  401.           FFFFFF000000}
  402.         NumGlyphs = 2
  403.         ParentShowHint = False
  404.         ShowHint = True
  405.         OnClick = SpeedButton1Click
  406.       end
  407.       object SpeedButton2: TSpeedButton
  408.         Left = 172
  409.         Top = 128
  410.         Width = 20
  411.         Height = 20
  412.         Hint = 'Prior bank'
  413.         Flat = True
  414.         Glyph.Data = {
  415.           E2000000424DE200000000000000760000002800000012000000090000000100
  416.           0400000000006C00000000000000000000001000000000000000000000000000
  417.           80000080000000808000800000008000800080800000C0C0C000808080000000
  418.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  419.           FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  420.           CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  421.           0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  422.           FFFFFF000000}
  423.         NumGlyphs = 2
  424.         ParentShowHint = False
  425.         ShowHint = True
  426.         OnClick = SpeedButton2Click
  427.       end
  428.       object gmbanks: TComboBox
  429.         Left = 8
  430.         Top = 128
  431.         Width = 137
  432.         Height = 21
  433.         Hint = 'Banks'
  434.         Style = csDropDownList
  435.         Color = clBlack
  436.         Font.Charset = DEFAULT_CHARSET
  437.         Font.Color = clWhite
  438.         Font.Height = -11
  439.         Font.Name = 'MS Sans Serif'
  440.         Font.Style = []
  441.         ItemHeight = 13
  442.         ParentFont = False
  443.         ParentShowHint = False
  444.         ShowHint = True
  445.         TabOrder = 0
  446.         OnChange = gmbanksChange
  447.       end
  448.       object gminstruments: TListBox
  449.         Left = 8
  450.         Top = 4
  451.         Width = 185
  452.         Height = 119
  453.         Hint = 'Instruments'
  454.         Color = clBlack
  455.         Font.Charset = ANSI_CHARSET
  456.         Font.Color = clWhite
  457.         Font.Height = -11
  458.         Font.Name = 'Arial'
  459.         Font.Style = []
  460.         ItemHeight = 14
  461.         ParentFont = False
  462.         ParentShowHint = False
  463.         ShowHint = True
  464.         TabOrder = 1
  465.         OnClick = gminstrumentsClick
  466.         OnDblClick = gminstrumentsDblClick
  467.       end
  468.     end
  469.     object PageAWE: TTab95Sheet
  470.       Caption = 'AWE'
  471.       GripAlign = gaLeft
  472.       ImageIndex = -1
  473.       StaticPageIndex = -1
  474.       TabVisible = True
  475.       object sbMoveDown1: TSpeedButton
  476.         Left = 149
  477.         Top = 128
  478.         Width = 20
  479.         Height = 20
  480.         Hint = 'Next bank'
  481.         Flat = True
  482.         Glyph.Data = {
  483.           E2000000424DE200000000000000760000002800000012000000090000000100
  484.           0400000000006C00000000000000000000001000000000000000000000000000
  485.           80000080000000808000800000008000800080800000C0C0C000808080000000
  486.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  487.           FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  488.           CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  489.           0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  490.           FFFFFF000000}
  491.         NumGlyphs = 2
  492.         ParentShowHint = False
  493.         ShowHint = True
  494.         OnClick = sbMoveDown1Click
  495.       end
  496.       object sbMoveUp1: TSpeedButton
  497.         Left = 172
  498.         Top = 128
  499.         Width = 20
  500.         Height = 20
  501.         Hint = 'Prior bank'
  502.         Flat = True
  503.         Glyph.Data = {
  504.           E2000000424DE200000000000000760000002800000012000000090000000100
  505.           0400000000006C00000000000000000000001000000000000000000000000000
  506.           80000080000000808000800000008000800080800000C0C0C000808080000000
  507.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  508.           FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  509.           CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  510.           0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  511.           FFFFFF000000}
  512.         NumGlyphs = 2
  513.         ParentShowHint = False
  514.         ShowHint = True
  515.         OnClick = sbMoveUp1Click
  516.       end
  517.       object aweBanks: TComboBox
  518.         Left = 8
  519.         Top = 128
  520.         Width = 137
  521.         Height = 21
  522.         Hint = 'Banks'
  523.         Style = csDropDownList
  524.         Color = clBlack
  525.         Font.Charset = DEFAULT_CHARSET
  526.         Font.Color = clWhite
  527.         Font.Height = -11
  528.         Font.Name = 'MS Sans Serif'
  529.         Font.Style = []
  530.         ItemHeight = 13
  531.         ParentFont = False
  532.         ParentShowHint = False
  533.         ShowHint = True
  534.         TabOrder = 0
  535.         OnChange = aweBanksChange
  536.       end
  537.       object aweInstruments: TListBox
  538.         Left = 8
  539.         Top = 4
  540.         Width = 185
  541.         Height = 119
  542.         Hint = 'Instruments'
  543.         Color = clBlack
  544.         Font.Charset = ANSI_CHARSET
  545.         Font.Color = clWhite
  546.         Font.Height = -11
  547.         Font.Name = 'Arial'
  548.         Font.Style = []
  549.         ItemHeight = 14
  550.         ParentFont = False
  551.         ParentShowHint = False
  552.         ShowHint = True
  553.         TabOrder = 1
  554.         OnClick = aweInstrumentsClick
  555.         OnDblClick = aweInstrumentsDblClick
  556.         OnDrawItem = aweInstrumentsDrawItem
  557.       end
  558.     end
  559.     object Tab95Sheet2: TTab95Sheet
  560.       Caption = 'XG'
  561.       GripAlign = gaLeft
  562.       ImageIndex = -1
  563.       StaticPageIndex = -1
  564.       TabVisible = False
  565.       object xgsounds: TListBox
  566.         Left = 8
  567.         Top = 4
  568.         Width = 185
  569.         Height = 119
  570.         Hint = 'Instruments'
  571.         Color = clBlack
  572.         Font.Charset = ANSI_CHARSET
  573.         Font.Color = clWhite
  574.         Font.Height = -11
  575.         Font.Name = 'Arial'
  576.         Font.Style = []
  577.         ItemHeight = 14
  578.         ParentFont = False
  579.         ParentShowHint = False
  580.         ShowHint = True
  581.         TabOrder = 0
  582.         OnClick = gminstrumentsClick
  583.         OnDblClick = gminstrumentsDblClick
  584.       end
  585.     end
  586.   end
  587. end
  588.