BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/VideoCapture/DirectShow3/umain.dfm

198 lines
4.2 KiB
Plaintext

object fmain: Tfmain
Left = 208
Top = 129
Caption = 'DirectShow Video Capture Demo - www.ImageEn.com'
ClientHeight = 624
ClientWidth = 849
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 = 480
Top = 0
Width = 369
Height = 624
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 LabelCaptureInfo: TLabel
Left = 8
Top = 592
Width = 32
Height = 13
Caption = '- - - - -'
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
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
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 ImageEnView1: TImageEnView
Left = 40
Top = 328
Width = 297
Height = 241
Background = clBtnFace
MouseInteract = [miMoveLayers, miResizeLayers]
OnDShowNewFrame = ImageEnView1DShowNewFrame
EnableInteractionHints = True
TabOrder = 1
end
object Button4: TButton
Left = 120
Top = 276
Width = 129
Height = 41
Caption = 'Get Frame'
TabOrder = 2
OnClick = Button4Click
end
object Button5: TButton
Left = 265
Top = 221
Width = 97
Height = 18
Caption = 'Adjust Frame Rect'
TabOrder = 3
OnClick = Button5Click
end
object Button6: TButton
Left = 248
Top = 592
Width = 99
Height = 25
Caption = 'Save Frames...'
TabOrder = 4
OnClick = Button6Click
end
end
object ImageEnMView1: TImageEnMView
Left = 0
Top = 0
Width = 480
Height = 624
Background = clBtnFace
ParentCtl3D = False
StoreType = ietNormal
ThumbWidth = 100
ThumbHeight = 100
HorizBorder = 4
VertBorder = 4
TextMargin = 0
GridWidth = -1
SelectionWidth = 3
SelectionColor = clRed
Style = iemsFlat
ThumbnailsBackground = clBtnFace
ThumbnailsBackgroundSelected = clBtnFace
MultiSelectionOptions = []
ThumbnailsBorderWidth = 0
ThumbnailsBorderColor = clBlack
Align = alClient
TabOrder = 1
end
end