object fmCompose3: TfmCompose3 Left = 231 Top = 278 BorderStyle = bsDialog Caption = 'Compose AWE NRPN' ClientHeight = 237 ClientWidth = 381 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 RotateLabel1: TRotateLabel Left = 156 Top = 209 Width = 216 Height = 24 Cursor = crHandPoint Hint = 'Click for help' Escapement = 0 TextStyle = tsRecessed Caption = 'Compose AWE NRPN' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True Transparent = True end object Panel1: TPanel Left = 0 Top = 0 Width = 70 Height = 237 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 = 2 object labelText: TLabel Left = 9 Top = 128 Width = 55 Height = 113 AutoSize = False Caption = 'Select NRPN to input at beginning of part' 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 = 218 Width = 19 Height = 16 Hint = 'Play' Color = clBlack TabOrder = 4 object iconPlay: TIconButton Left = 1 Top = 1 Width = 17 Height = 14 Align = alClient Center = True Picture.Data = {} OnMouseUp = iconPlayMouseUp State = stUp end end object Panel2: TPanel Left = 26 Top = 218 Width = 19 Height = 16 Color = clBlack TabOrder = 5 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 = 92 Width = 57 Height = 25 Cursor = crHandPoint Cancel = True Caption = '&Close' Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = btnCloseClick end object btnUndo: tnybutton Left = 7 Top = 63 Width = 57 Height = 25 Cursor = crHandPoint Caption = '&Undo' Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = btnUndoClick end object tnybutton1: tnybutton Left = 8 Top = 34 Width = 57 Height = 25 Cursor = crHandPoint Caption = '&Apply' Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = tnybutton1Click end object tnybutton2: tnybutton Left = 8 Top = 7 Width = 57 Height = 25 Cursor = crHandPoint Caption = '&OK' Default = True Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = tnybutton2Click end end object PageControl1: TPage95Control Left = 80 Top = 8 Width = 289 Height = 193 ActivePage = TabPattern 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 = 3 OnChange = PageControl1Change object TabSet: TTab95Sheet Caption = 'Set' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object Label1: TLabel Left = 24 Top = 32 Width = 27 Height = 14 Caption = 'NRPN' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 24 Top = 72 Width = 28 Height = 14 Caption = 'Value' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object setValue: TEditNew Left = 64 Top = 68 Width = 34 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Text = '120' OnKeyPress = setValueKeyPress FocusColor = 8454143 FocusFontColor = clBlack NoFocusColor = clBlack NoFocusFontColor = clWhite end end object TabFade: TTab95Sheet Caption = 'Fade' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object Label3: TLabel Left = 24 Top = 32 Width = 27 Height = 14 Caption = 'NRPN' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 24 Top = 72 Width = 24 Height = 14 Caption = 'From' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 136 Top = 72 Width = 12 Height = 14 Caption = 'To' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 24 Top = 144 Width = 33 Height = 14 Caption = 'Editres' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object fadeMin: TEditNew Left = 64 Top = 68 Width = 34 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Text = '120' OnKeyPress = fadeMinKeyPress FocusColor = 8454143 FocusFontColor = clBlack NoFocusColor = clBlack NoFocusFontColor = clWhite end object fadeMax: TEditNew Left = 160 Top = 68 Width = 34 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = '120' OnKeyPress = fadeMaxKeyPress FocusColor = 8454143 FocusFontColor = clBlack NoFocusColor = clBlack NoFocusFontColor = clWhite end end object TabRandom: TTab95Sheet Caption = 'Random' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object Label10: TLabel Left = 24 Top = 32 Width = 27 Height = 14 Caption = 'NRPN' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 24 Top = 72 Width = 16 Height = 14 Caption = 'Min' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 128 Top = 72 Width = 20 Height = 14 Caption = 'Max' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 24 Top = 144 Width = 33 Height = 14 Caption = 'Editres' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object randomMin: TEditNew Left = 64 Top = 68 Width = 34 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 Text = '120' OnKeyPress = randomMinKeyPress FocusColor = 8454143 FocusFontColor = clBlack NoFocusColor = clBlack NoFocusFontColor = clWhite end object randomMax: TEditNew Left = 160 Top = 68 Width = 34 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = '120' OnKeyPress = randomMaxKeyPress FocusColor = 8454143 FocusFontColor = clBlack NoFocusColor = clBlack NoFocusFontColor = clWhite end end object TabPattern: TTab95Sheet Caption = 'Pattern' GripAlign = gaLeft ImageIndex = -1 StaticPageIndex = -1 TabVisible = True object Label11: TLabel Left = 24 Top = 32 Width = 27 Height = 14 Caption = 'NRPN' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 24 Top = 144 Width = 33 Height = 14 Caption = 'Editres' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 24 Top = 64 Width = 91 Height = 14 Caption = 'Repeat this pattern' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Fader1: TFader Left = 24 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 0 ThumbSize = 0 BkColor = clBlack end object Fader2: TFader Left = 50 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 127 ThumbSize = 0 BkColor = clBlack end object Fader3: TFader Left = 76 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 0 ThumbSize = 0 BkColor = clBlack end object Fader4: TFader Left = 102 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 127 ThumbSize = 0 BkColor = clBlack end object Fader5: TFader Left = 128 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 0 ThumbSize = 0 BkColor = clBlack end object Fader6: TFader Left = 154 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 0 ThumbSize = 0 BkColor = clBlack end object Fader7: TFader Left = 180 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 0 ThumbSize = 0 BkColor = clBlack end object Fader8: TFader Left = 206 Top = 88 Width = 25 Height = 41 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 127 ThumbSize = 0 BkColor = clBlack end end end object panelRes: TPanel Left = 153 Top = 177 Width = 30 Height = 19 Cursor = crHandPoint Hint = 'Edit resolution' BevelOuter = bvNone Caption = '16' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 Visible = False OnMouseDown = panelResMouseDown OnMouseUp = panelResMouseUp end object nrpnlist: TComboBox Left = 168 Top = 64 Width = 145 Height = 21 Style = csDropDownList Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'LFO1Delay' 'LFO1Frequency' 'LFO2Delay' 'LFO2Frequency' 'Env1Delay' 'Env1Attack' 'Env1Hold' 'Env1Decay' 'Env1Sustain' 'Env1Release' 'Env2Delay' 'Env2Attack' 'Env2Hold' 'Env2Decay' 'Env2Sustain' 'Env2Release' 'Pitch' 'LFO1ToPitch' 'LFO2ToPitch' 'Env1ToPitch' 'Env1ToVolum' 'FilterCutoff' 'FilterQ' 'LFO1ToFilterCutoff' 'Env1ToFilterCutoff' 'Chorus' 'Reverb') ParentFont = False TabOrder = 1 end object chkOverwrite: TCheckBox Left = 111 Top = 42 Width = 74 Height = 17 Caption = 'Overwrite' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False State = cbChecked TabOrder = 0 end object PopupRes: TPopupMenu Left = 196 Top = 224 object N641: TMenuItem Caption = '64' OnClick = N641Click end object N321: TMenuItem Caption = '32' OnClick = N321Click end object N161: TMenuItem Caption = '16' OnClick = N161Click end object N81: TMenuItem Caption = '8' OnClick = N81Click end object N41: TMenuItem Caption = '4' OnClick = N41Click end object N21: TMenuItem Caption = '2' OnClick = N21Click end end object Timer1: TTimer Interval = 10 OnTimer = Timer1Timer Left = 232 Top = 224 end end