home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 6
/
Freelog006.iso
/
Logs
/
Musique
/
Massiva
/
MASSIVA.EXE
/
0
/
RCDATA
/
TFMCOMPOSE3
/
TFMCOMPOSE3.txt
< prev
Wrap
Text File
|
1999-11-20
|
19KB
|
808 lines
object fmCompose3: TfmCompose3
Left = 308
Top = 288
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 = 162
Top = 206
Width = 215
Height = 30
Cursor = crHandPoint
Hint = 'Click for help'
Escapement = 2
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 = {<image000.bmp>}
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 = {<image001.bmp>}
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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
UpDown = True
UseFrame = True
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 = 152
Top = 64
Width = 169
Height = 21
Style = csDropDownList
Color = clBlack
DropDownCount = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'LFO1Delay (0 - 5900)'
'LFO1Frequency (0 - 127)'
'LFO2Delay (0 - 5900)'
'LFO2Frequency (0 - 127)'
'Env1Delay (0 - 5900)'
'Env1Attack (0 - 5940)'
'Env1Hold (0 - 8191)'
'Env1Decay (0 - 5940)'
'Env1Sustain (0 - 127)'
'Env1Release (0 - 5940)'
'Env2Delay (0 - 5900)'
'Env2Attack (0 - 5940)'
'Env2Hold (0 - 8191)'
'Env2Decay (0 - 5940)'
'Env2Sustain (0 - 127)'
'Env2Release (0 - 5940)'
'Pitch (-8192 - 8191)'
'LFO1ToPitch (-127 - 127)'
'LFO2ToPitch (-127 - 127)'
'Env1ToPitch (-127 - 127)'
'Env1ToVolum (0 - 127)'
'FilterCutoff (0 - 127)'
'FilterQ (0-127)'
'LFO1ToFilterCutoff (-64 - 63)'
'Env1ToFilterCutoff (-64 - 63)'
'Chorus (0 - 255)'
'Reverb (0 - 255)')
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