home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Net Power 1997 February
/
NetPower_2-97.mdf
/
nettools
/
audio
/
midinigh
/
mn.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
1996-08-29
|
20KB
|
592 lines
object mainForm: TmainForm
Left = 77
Top = 187
ActiveControl = fileListBox
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'MIDInight Express'
ClientHeight = 319
ClientWidth = 589
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object filesBox: TGroupBox
Left = 248
Top = 0
Width = 337
Height = 216
Caption = 'Files'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object DriveComboBox1: TDriveComboBox
Left = 8
Top = 16
Width = 121
Height = 19
DirList = DirectoryListBox1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 40
Width = 121
Height = 169
FileList = fileListBox
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
ParentFont = False
TabOrder = 1
end
object FilterComboBox1: TFilterComboBox
Left = 136
Top = 188
Width = 153
Height = 21
FileList = fileListBox
Filter =
'MID files (*.MID)|*.MID|PRG files (*.PRG)|*.PRG|WAV files (*.WAV' +
')|*.WAV|All files (*.*)|*.*'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object fileListBox: TExtFileListBox
Left = 136
Top = 16
Width = 193
Height = 169
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
Mask = '*.MID'
ParentFont = False
ParentShowHint = False
ShowGlyphs = True
ShowHint = False
TabOrder = 2
OnChange = fileListBoxChange
OnClick = fileListBoxChange
ShowDate = False
ShowTime = False
end
object BitBtn1: TBitBtn
Left = 296
Top = 188
Width = 33
Height = 22
TabOrder = 4
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
end
end
object GroupBox1: TGroupBox
Left = 4
Top = 0
Width = 241
Height = 216
Caption = 'Player control'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Bevel1: TBevel
Left = 60
Top = 16
Width = 169
Height = 33
end
object gauge: TGauge
Left = 66
Top = 24
Width = 90
Height = 17
ForeColor = clLime
Progress = 0
end
object volumeLabel: TLabel
Left = 10
Top = 192
Width = 42
Height = 13
Caption = 'Volume'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel2: TBevel
Left = 5
Top = 16
Width = 50
Height = 193
end
object Bevel3: TBevel
Left = 60
Top = 153
Width = 169
Height = 56
end
object balanceLabel: TLabel
Left = 121
Top = 192
Width = 47
Height = 13
Caption = 'Balance'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object leftLabel: TLabel
Left = 74
Top = 192
Width = 8
Height = 13
Caption = 'L'
Enabled = False
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object rightLabel: TLabel
Left = 206
Top = 192
Width = 10
Height = 13
Caption = 'R'
Enabled = False
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object MediaPlayer: TMediaPlayer
Left = 60
Top = 56
Width = 169
Height = 49
VisibleButtons = [btPlay, btPause, btStop, btPrev, btStep, btBack]
AutoEnable = False
TabOrder = 2
OnClick = MediaPlayerClick
end
object timePanel: TPanel
Left = 162
Top = 24
Width = 61
Height = 17
Caption = '00:00:00'
Color = clLime
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object volumeBar: TTrackBar
Left = 9
Top = 40
Width = 41
Height = 153
Enabled = False
Max = 20
Orientation = trVertical
Frequency = 1
Position = 10
SelEnd = 0
SelStart = 0
TabOrder = 1
TickMarks = tmBoth
TickStyle = tsAuto
OnChange = volumeBarChange
end
object volBox: TEdit
Left = 17
Top = 24
Width = 27
Height = 21
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnChange = volBoxChange
end
object balanceBar: TTrackBar
Left = 88
Top = 160
Width = 113
Height = 33
Enabled = False
Max = 20
Orientation = trHorizontal
Frequency = 1
Position = 10
SelEnd = 0
SelStart = 0
TabOrder = 5
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = balanceBarChange
end
object leftBox: TEdit
Left = 64
Top = 162
Width = 27
Height = 21
Enabled = False
ReadOnly = True
TabOrder = 6
end
object rightBox: TEdit
Left = 197
Top = 162
Width = 27
Height = 21
Enabled = False
ReadOnly = True
TabOrder = 7
end
object ejectBtn: TBitBtn
Left = 89
Top = 109
Width = 140
Height = 40
Caption = 'Eject'
Enabled = False
TabOrder = 4
OnClick = ejectBtnClick
Glyph.Data = {
76040000424D7604000000000000760000002800000040000000200000000100
0400000000000004000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
888888888888888888888888888888888888888888888