167 lines
3.5 KiB
Plaintext
167 lines
3.5 KiB
Plaintext
object fmain: Tfmain
|
|
Left = 146
|
|
Top = 180
|
|
Caption = 'DirectShow Video Capture demo - www.ImageEn.com'
|
|
ClientHeight = 547
|
|
ClientWidth = 959
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 590
|
|
Top = 0
|
|
Width = 369
|
|
Height = 547
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 120
|
|
Top = 221
|
|
Width = 129
|
|
Height = 44
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Show Video'
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 120
|
|
Top = 293
|
|
Width = 129
|
|
Height = 44
|
|
AllowAllUp = True
|
|
GroupIndex = 2
|
|
Caption = 'Capture AVI'
|
|
Enabled = False
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
object Label2: TLabel
|
|
Left = 256
|
|
Top = 294
|
|
Width = 43
|
|
Height = 13
|
|
Caption = 'FileName'
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 7
|
|
Top = 8
|
|
Width = 354
|
|
Height = 201
|
|
Caption = ' Source '
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 9
|
|
Top = 24
|
|
Width = 55
|
|
Height = 13
|
|
Caption = 'Video Input'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 8
|
|
Top = 56
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'Formats'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 8
|
|
Top = 126
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Video Source'
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 80
|
|
Top = 21
|
|
Width = 240
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 0
|
|
OnChange = ComboBox1Change
|
|
end
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 167
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Video Dialog'
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 208
|
|
Top = 167
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Format Dialog'
|
|
TabOrder = 2
|
|
OnClick = Button2Click
|
|
end
|
|
object ListBox1: TListBox
|
|
Left = 80
|
|
Top = 53
|
|
Width = 265
|
|
Height = 63
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 80
|
|
Top = 123
|
|
Width = 145
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnChange = ComboBox2Change
|
|
end
|
|
object Button3: TButton
|
|
Left = 107
|
|
Top = 167
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Video Input Source'
|
|
TabOrder = 5
|
|
OnClick = Button3Click
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 323
|
|
Top = 21
|
|
Width = 22
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '0'
|
|
end
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 256
|
|
Top = 310
|
|
Width = 107
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = 'c:\test.avi'
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 590
|
|
Height = 547
|
|
MouseInteract = [miMoveLayers, miResizeLayers]
|
|
OnDShowNewFrame = ImageEnView1DShowNewFrame
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
end
|
|
end
|