object dlgProgram: TdlgProgram Left = 333 Top = 255 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Bank / program' ClientHeight = 190 ClientWidth = 282 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 70 Height = 190 Align = alLeft BevelOuter = bvNone Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object labelText: TLabel Left = 9 Top = 69 Width = 56 Height = 76 AutoSize = False Caption = 'Select bank and program for active track' Font.Charset = ANSI_CHARSET Font.Color = 8454143 Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object panelPlay: TPanel Left = 4 Top = 171 Width = 19 Height = 16 Color = clBlack TabOrder = 0 object iconPlay: TIconButton Left = 1 Top = 1 Width = 17 Height = 14 Hint = 'Play' Align = alClient Center = True Picture.Data = {} OnMouseUp = iconPlayMouseUp State = stUp end end object Panel2: TPanel Left = 26 Top = 171 Width = 19 Height = 16 Color = clBlack TabOrder = 1 object IconStop: TIconButton Left = 1 Top = 1 Width = 17 Height = 14 Hint = 'Stop' Align = alClient Center = True Picture.Data = {} OnMouseUp = IconStopMouseUp State = stUp end end object btnClose: tnybutton Left = 7 Top = 36 Width = 57 Height = 25 Cursor = crHandPoint Cancel = True Caption = '&Close' Default = True Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = btnCloseClick end object btnOff: tnybutton Left = 7 Top = 7 Width = 57 Height = 25 Cursor = crHandPoint Caption = '&Off' Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = btnOffClick end end object PageControl1: TPage95Control Left = 80 Top = 8 Width = 257 Height = 181 ActivePage = PageSet ButtonStyle = True FlatButtons = True FlatSeperators = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] HotTrack = True TabInactiveColor = clSilver TabInactiveFont.Charset = ANSI_CHARSET TabInactiveFont.Color = clWindowText TabInactiveFont.Height = -11 TabInactiveFont.Name = 'Arial' TabInactiveFont.Style = [] ParentFont = False TabOrder = 1 object PageSet: TTab95Sheet Caption = 'Set' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object Bevel3: TBevel Left = 8 Top = 72 Width = 169 Height = 3 Style = bsRaised end object Bevel4: TBevel Left = 51 Top = 122 Width = 127 Height = 2 Style = bsRaised end object SpeedButton9: TSpeedButton Left = 116 Top = 111 Width = 20 Height = 20 Hint = 'Up 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000 0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton9Click end object SpeedButton10: TSpeedButton Left = 141 Top = 114 Width = 20 Height = 20 Hint = 'Down 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000 0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton10Click end object SpeedButton11: TSpeedButton Left = 66 Top = 108 Width = 20 Height = 20 Hint = 'Up 10' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton12: TSpeedButton Left = 91 Top = 118 Width = 20 Height = 20 Hint = 'Down 10' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Label1: TLabel Left = 8 Top = 88 Width = 40 Height = 14 Caption = 'Program' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Bevel2: TBevel Left = 51 Top = 42 Width = 127 Height = 2 Style = bsRaised end object SpeedButton5: TSpeedButton Left = 116 Top = 31 Width = 20 Height = 20 Hint = 'Up 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000 0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 141 Top = 34 Width = 20 Height = 20 Hint = 'Down 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000 0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 66 Top = 28 Width = 20 Height = 20 Hint = 'Up 10' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton7Click end object SpeedButton8: TSpeedButton Left = 91 Top = 38 Width = 20 Height = 20 Hint = 'Down 10' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object Label2: TLabel Left = 8 Top = 8 Width = 24 Height = 14 Caption = 'Bank' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object editProgram: TEditIncDec Left = 8 Top = 112 Width = 34 Height = 22 Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = editProgram. TabOrder = 0 OnChange = editProgramChange Max = 99999 end object editBank: TEditIncDec Left = 7 Top = 33 Width = 34 Height = 22 Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = editBank. TabOrder = 1 OnChange = editBankChange Max = 99999 end end object Tab95Sheet1: TTab95Sheet Caption = 'GM' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object SpeedButton1: TSpeedButton Left = 149 Top = 128 Width = 20 Height = 20 Hint = 'Next bank' Flat = True Glyph.Data = { E2000000424DE200000000000000760000002800000012000000090000000100 0400000000006C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00 0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFF000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 172 Top = 128 Width = 20 Height = 20 Hint = 'Prior bank' Flat = True Glyph.Data = { E2000000424DE200000000000000760000002800000012000000090000000100 0400000000006C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00 0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFF000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object gmbanks: TComboBox Left = 8 Top = 128 Width = 137 Height = 21 Hint = 'Banks' Style = csDropDownList Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = gmbanksChange end object gminstruments: TListBox Left = 8 Top = 4 Width = 185 Height = 119 Hint = 'Instruments' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = gminstrumentsClick OnDblClick = gminstrumentsDblClick end end object PageAWE: TTab95Sheet Caption = 'AWE' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object sbMoveDown1: TSpeedButton Left = 149 Top = 128 Width = 20 Height = 20 Hint = 'Next bank' Flat = True Glyph.Data = { E2000000424DE200000000000000760000002800000012000000090000000100 0400000000006C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00 0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFF000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sbMoveDown1Click end object sbMoveUp1: TSpeedButton Left = 172 Top = 128 Width = 20 Height = 20 Hint = 'Prior bank' Flat = True Glyph.Data = { E2000000424DE200000000000000760000002800000012000000090000000100 0400000000006C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00 0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFF000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sbMoveUp1Click end object aweBanks: TComboBox Left = 8 Top = 128 Width = 137 Height = 21 Hint = 'Banks' Style = csDropDownList Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = aweBanksChange end object aweInstruments: TListBox Left = 8 Top = 4 Width = 185 Height = 119 Hint = 'Instruments' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = aweInstrumentsClick OnDblClick = aweInstrumentsDblClick OnDrawItem = aweInstrumentsDrawItem end end object Tab95Sheet2: TTab95Sheet Caption = 'XG' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = False object xgsounds: TListBox Left = 8 Top = 4 Width = 185 Height = 119 Hint = 'Instruments' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = gminstrumentsClick OnDblClick = gminstrumentsDblClick end end end end