home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
hudba
/
mexp
/
mn.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
1996-07-17
|
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
88888888888888888888888888888888888888888888888888888888887FFFFF
FFFFFFFFFFF8888888888888887FFFFFFFFFFFFFFFF888888888888888799999
9999999999F8888888888888887888888888888888F888888888888888777777
7777777777F8888888888888887777777777777777F888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
88888888888888888888888888888888888888888888888888888888887FFFFF
FFFFFFFFFFF8888888888888887FFFFFFFFFFFFFFFF888888888888888799999
9999999999F8888888888888887888888888888888F888888888888888879999
999999999F8888888888888888878888888888888F8888888888888888887999
99999999F8888888888888888888788888888888F88888888888888888888799
9999999F8888888888888888888887888888888F888888888888888888888879
999999F8888888888888888888888878888888F8888888888888888888888887
99999F8888888888888888888888888788888F88888888888888888888888888
7999F8888888888888888888888888887888F888888888888888888888888888
879F8888888888888888888888888888878F8888888888888888888888888888
8878888888888888888888888888888888788888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888}
NumGlyphs = 2
end
object muteBtn: TBitBtn
Left = 60
Top = 109
Width = 29
Height = 40
Caption = 'On'
Enabled = False
TabOrder = 3
OnClick = muteBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
Layout = blGlyphTop
NumGlyphs = 2
end
end
object StatusBar: TStatusBar
Left = 0
Top = 300
Width = 589
Height = 19
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <>
ParentFont = False
SimplePanel = True
end
object StringGrid1: TStringGrid
Left = 568
Top = 256
Width = 265
Height = 121
ColCount = 2
FixedCols = 0
RowCount = 2
TabOrder = 5
Visible = False
end
object GroupBox2: TGroupBox
Left = 4
Top = 216
Width = 581
Height = 26
TabOrder = 2
object songName: TLabel
Left = 112
Top = 9
Width = 462
Height = 13
Alignment = taRightJustify
end
object makeWAVbox: TCheckBox
Left = 8
Top = 7
Width = 97
Height = 17
Caption = 'Record to file'
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 4
Top = 242
Width = 581
Height = 57
TabOrder = 3
object drumBtn: TBitBtn
Left = 102
Top = 11
Width = 90
Height = 41
Caption = 'Drums'
TabOrder = 1
OnClick = drumBtnClick
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
0400000000002001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
FFFFFFFF0003333333333000FFFFFFF033033333333330330FFFFFF033033333
333330330FFFFFF033033333333330330FFFFFF033033333333330330FFFFFF0
33033333333330330FFFFFF033000000000000330FFFFFF00088888888888800
0FFFFFF088880B88888888880FFFFFF08880B8888B0888880FFFFFFF000B8888
88B08800FFFFFFFFF0B00000000B00FFFFFFFFFF0BFFFFFFFFFFB0FFFFFFFFF0
BFFFFFFFFFFFFB0FFFFFFFFFFFFFFFFFFFFFFFB0FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
end
object PRGbtn: TBitBtn
Left = 197
Top = 11
Width = 90
Height = 41
Caption = 'PRGs'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = PRGbtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000
000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000
FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000
00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000
00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F
FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF
0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000
05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555
55557F77777775555555000000055555555577777775555555550000}
NumGlyphs = 2
end
object WAVbtn: TBitBtn
Left = 292
Top = 11
Width = 90
Height = 41
Caption = 'WAVs'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = wavBtnClick
Glyph.Data = {
76020000424D7602000000000000760000002800000020000000200000000100
0400000000000002000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888877778777888
77888778887787777788877778777777777777777777877777888F788F887F88
888888887F88888777888F8888F8888F8888888F8887788877888F8888F88888
888F88888888888877888F88888FFFFFFFFFFFFFFF77888877888F8888888888
888888888888888877888F8888888888888888888888888877888F888FFFF888
88888888888FFFF877888F887000FF88FFFFFFFF887000FF77888F870F0F0F88
3BBB388F870F0F0F77888F8700700F883BBB388F8700700F77888F870F0F0F88
3333388F870F0F0F77888F8770007888888888888770007877888F8877778888
888888888877778877888F8888888888888888888888888877888F8888888888
888888888888888877888F8888888888888888888888888777888FFFFFFFFFFF
FFFFFFFFFFFFFFFF778888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888}
end
object songBtn: TBitBtn
Left = 387
Top = 11
Width = 90
Height = 41
Caption = 'Songs'
TabOrder = 4
OnClick = songBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF3333333333333003333333333333377F333333333333
30003FFFFFFFFFFFF77707777777777777707777777777777777033333333333
33307FFFFFFFFFFFFFF707777777700777707777777777777777030333333000
33307F7FFFFFF777FFF707770077777077707777777777777777030300033330
33307F7F777FFFF7FFF707777707777077777777777777777777033333033330
33337FFFFF7FFFF7FFFF07777707777077777777777777777777333333000000
3333333333777777F33333333303333033333333337FFFF7F333333333000000
33333333337777773333333333333333333333333333333333330000}
NumGlyphs = 2
end
object helpBtn: TBitBtn
Left = 7
Top = 11
Width = 90
Height = 41
HelpContext = 500
Caption = 'Help'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = helpBtnClick
Kind = bkHelp
end
object exitBtn: TBitBtn
Left = 482
Top = 11
Width = 90
Height = 41
Caption = 'Exit'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = exitBtnClick
Glyph.Data = {
76020000424D7602000000000000760000002800000020000000200000000100
0400000000000002000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFF
FFFFFFFFFFFFF00FFFFFFFFFF030FFFFFFFFFFFFFFFFF030FFFFFFFF0330FFFF
FFFFFFFFFFFFF0330FFFFFFF00030FFFFFFFFFFFFFFF03000FFFFFFFFFF030FF
FFFFFFFFFFF030FFFFFFFFFFFFFF0300F0F0F0F0F0030FFFFFFFFFFFFFFFF030
000000000030FFFFFFFFFFFFFFFFFF0030303030300FFFFFFFFFFFFFFFFFFF03
33333333330FFFFFFFFFFFFFFFFFFF0333333333330FFFFFFFFFFFFFFFFFF000
333030333000FFFFFFFFFFFFFFFF00333330003333300FFFFFFFFFFFFFFF0333
3330003333330FFFFFFFFFFFFFFF03330033333003330FFFFFFFFFFFFFFF0330
0003330000330FFFFFFFFFFFFFFF03300003330000330FFFFFFFFFFFFFFF0033
0033333003300FFFFFFFFFFFFFFFF003333333333300FFFFFFFFFFFFFFFFFF03
33333333330FFFFFFFFFFFFFFFFFF030003333300030FFFFFFFFFFFFFFFF030F
F0000000FF030FFFFFFFFFFFF00030FFFFFFFFFFFFF03000FFFFFFFFF0330FFF
FFFFFFFFFFFF0330FFFFFFFFFF030FFFFFFFFFFFFFFF030FFFFFFFFFFFF00FFF
FFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
Layout = blGlyphRight
end
end
object timer: TTimer
Enabled = False
OnTimer = timerTick
Left = 564
end
end