home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 July
/
PCWorld_1999-07_cd.bin
/
software
/
TemaCD
/
Massiva
/
MASSIVA.EXE
/
0
/
RCDATA
/
TFMAWE
/
TFMAWE.txt
< prev
Wrap
Text File
|
1999-04-03
|
12KB
|
494 lines
object fmAwe: TfmAwe
Left = 142
Top = 120
BorderStyle = bsDialog
Caption = 'Virtual AWE'
ClientHeight = 243
ClientWidth = 340
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object RotateLabel1: TRotateLabel
Left = 211
Top = 206
Width = 120
Height = 33
Escapement = 5
TextStyle = tsRecessed
Caption = 'Virtual AWE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 70
Height = 243
Align = alLeft
BevelOuter = bvNone
FullRepaint = False
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 = 8
Top = 58
Width = 57
Height = 135
AutoSize = False
Caption = 'Load and clear SoundFont banks'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = 8454143
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
WordWrap = True
end
object panelPlay: TPanel
Left = 4
Top = 223
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 = {<image000.bmp>}
OnMouseUp = iconPlayMouseUp
State = stUp
end
end
object Panel2: TPanel
Left = 26
Top = 223
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 = {<image001.bmp>}
OnMouseUp = IconStopMouseUp
State = stUp
end
end
object tnybutton1: tnybutton
Left = 7
Top = 9
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]
ModalResult = 2
ParentFont = False
TabOrder = 2
OnClick = tnybutton1Click
end
end
object Page95Control1: TPage95Control
Left = 80
Top = 8
Width = 249
Height = 193
ActivePage = tabSoundFont
ButtonStyle = True
FlatButtons = True
FlatSeperators = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
HotTrack = False
TabInactiveColor = clSilver
TabInactiveFont.Charset = ANSI_CHARSET
TabInactiveFont.Color = clWindowText
TabInactiveFont.Height = -11
TabInactiveFont.Name = 'Arial'
TabInactiveFont.Style = []
ParentFont = False
TabOrder = 1
OnChange = Page95Control1Change
object tabSoundFont: TTab95Sheet
Caption = 'SoundFonts'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object sbLoad: TSpeedButton
Left = 152
Top = 8
Width = 81
Height = 25
Caption = 'Load'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClick = sbLoadClick
end
object sbClear: TSpeedButton
Left = 152
Top = 36
Width = 81
Height = 25
Caption = 'Clear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClick = sbClearClick
end
object sbShow: TSpeedButton
Left = 152
Top = 72
Width = 81
Height = 25
Caption = 'Instruments'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClick = sbShowClick
end
object Label26: TLabel
Left = 152
Top = 114
Width = 38
Height = 14
Caption = 'Memory'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 152
Top = 138
Width = 22
Height = 14
Caption = 'Free'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object banks: TListBox
Left = 8
Top = 8
Width = 137
Height = 149
Color = clBlack
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 0
OnClick = banksClick
OnDrawItem = banksDrawItem
end
object panelMemory: TPanel
Left = 195
Top = 112
Width = 38
Height = 19
Hint = '[Click] Set length of inserted events'
BevelOuter = bvNone
Caption = '8192'
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 = 1
end
object panelUsed: TPanel
Left = 195
Top = 136
Width = 38
Height = 19
Hint = '[Click] Set length of inserted events'
BevelOuter = bvNone
Caption = '8192'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
end
object tabEffects: TTab95Sheet
Caption = 'Effects'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object Label2: TLabel
Left = 21
Top = 9
Width = 36
Height = 14
Caption = 'Reverb'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Label1: TLabel
Left = 24
Top = 59
Width = 36
Height = 14
Caption = 'Chorus'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Label3: TLabel
Left = 104
Top = 107
Width = 33
Height = 14
Caption = 'Treble'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Label4: TLabel
Left = 24
Top = 107
Width = 25
Height = 14
Caption = 'Bass'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object listReverb: TComboBox
Left = 24
Top = 28
Width = 145
Height = 22
Style = csDropDownList
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ItemHeight = 14
Items.Strings = (
'Room 1'
'Room 2'
'Room 3'
'Hall 1'
'Hall 2'
'Plate'
'Delay'
'Panning Delay')
ParentFont = False
TabOrder = 0
OnChange = listReverbChange
end
object listChorus: TComboBox
Left = 24
Top = 75
Width = 145
Height = 22
Style = csDropDownList
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ItemHeight = 14
Items.Strings = (
'Chorus 1'
'Chorus 2'
'Chorus 3'
'Chorus 4'
'Feedback chorus'
'Flanger'
'Short delay'
'Short delay (FB)')
ParentFont = False
TabOrder = 1
OnChange = listChorusChange
end
object listTreble: TComboBox
Left = 104
Top = 123
Width = 65
Height = 22
Style = csDropDownList
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ItemHeight = 14
Items.Strings = (
'-12dB'
'-8dB'
'-6dB'
'-4dB'
'-2dB'
'0dB'
'2dB'
'4dB'
'6dB'
'8dB'
'10dB'
'12dB')
ParentFont = False
TabOrder = 2
OnChange = listTrebleChange
end
object listBass: TComboBox
Left = 24
Top = 123
Width = 65
Height = 22
Style = csDropDownList
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ItemHeight = 14
Items.Strings = (
'-12dB'
'-8dB'
'-6dB'
'-4dB'
'-2dB'
'0dB'
'2dB'
'4dB'
'6dB'
'8dB'
'10dB'
'12dB')
ParentFont = False
TabOrder = 3
OnChange = listBassChange
end
end
object tabOptions: TTab95Sheet
Caption = 'Options'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object CheckBox1: TCheckBox
Left = 16
Top = 8
Width = 209
Height = 17
Caption = 'Save/open SoundFonts with song'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
end
end
end
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 368
Top = 304
end
object OpenDialog1: TOpenDialog
Filter = 'Sound Font Banks|*.sf2;*.sbk'
Left = 288
Top = 304
end
end