home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
VideoPlayer
/
Main.dfm
/
Main.txt
Wrap
Text File
|
1998-03-11
|
2KB
|
82 lines
object Form1: TForm1
Left = 154
Top = 100
BorderStyle = bsDialog
Caption = 'Audio Video Player'
ClientHeight = 91
ClientWidth = 508
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ShowHint = True
PixelsPerInch = 96
TextHeight = 13
object MediaPlayer1: TMediaPlayer
Left = 152
Top = 24
Width = 197
Height = 30
Hint = 'Play, Pause, Stop, Next, Prev, Step, Back'
VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
AutoEnable = False
AutoOpen = True
DeviceType = dtAVIVideo
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = MediaPlayer1Click
OnNotify = MediaPlayer1Notify
end
object OpenBitBtn: TBitBtn
Left = 48
Top = 24
Width = 75
Height = 25
Caption = 'Open'
Default = True
TabOrder = 1
OnClick = OpenBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 376
Top = 24
Width = 75
Height = 25
ParentShowHint = False
ShowHint = False
TabOrder = 2
Kind = bkClose
end
object AutoPlayCheckBox: TCheckBox
Left = 376
Top = 64
Width = 97
Height = 17
Caption = 'Auto replay'
TabOrder = 3
OnClick = AutoPlayCheckBoxClick
end
object OpenDialog1: TOpenDialog
Filter = 'Audio video files (.avi)|*.avi'
Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Left = 16
Top = 24
end
end