BaseFilterEditor.dfm 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446
  1. object FormBaseFilter: TFormBaseFilter
  2. Left = 504
  3. Top = 199
  4. Width = 419
  5. Height = 350
  6. BorderStyle = bsSizeToolWin
  7. Caption = 'Base Filter Editor'
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. OnCloseQuery = FormCloseQuery
  17. OnShow = FormShow
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object InfoBtn: TSpeedButton
  21. Left = 9
  22. Top = 295
  23. Width = 24
  24. Height = 24
  25. Cursor = crHandPoint
  26. Hint = 'Show Base Filter Editor info'
  27. Anchors = [akRight, akBottom]
  28. Flat = True
  29. ParentShowHint = False
  30. ShowHint = True
  31. OnClick = InfoBtnClick
  32. end
  33. object btOK: TButton
  34. Left = 234
  35. Top = 295
  36. Width = 75
  37. Height = 25
  38. Anchors = [akRight, akBottom]
  39. Caption = '&OK'
  40. ModalResult = 1
  41. TabOrder = 0
  42. end
  43. object btCancel: TButton
  44. Left = 322
  45. Top = 295
  46. Width = 75
  47. Height = 25
  48. Anchors = [akRight, akBottom]
  49. Caption = '&Cancel'
  50. ModalResult = 2
  51. TabOrder = 1
  52. end
  53. object PageControl1: TPageControl
  54. Left = 0
  55. Top = 0
  56. Width = 411
  57. Height = 292
  58. ActivePage = InfoSheet
  59. Align = alTop
  60. Anchors = [akLeft, akTop, akRight, akBottom]
  61. TabOrder = 2
  62. object SelectorSheet: TTabSheet
  63. Caption = 'Selector'
  64. object Label1: TLabel
  65. Left = 8
  66. Top = 2
  67. Width = 30
  68. Height = 13
  69. Caption = 'Filters:'
  70. end
  71. object Label2: TLabel
  72. Left = 256
  73. Top = 0
  74. Width = 96
  75. Height = 13
  76. Anchors = [akTop, akRight]
  77. Caption = 'Available Interfaces:'
  78. end
  79. object Label6: TLabel
  80. Left = 256
  81. Top = 150
  82. Width = 23
  83. Height = 13
  84. Anchors = [akRight, akBottom]
  85. Caption = 'Pins:'
  86. end
  87. object Filters: TTreeView
  88. Left = 0
  89. Top = 17
  90. Width = 252
  91. Height = 188
  92. Anchors = [akLeft, akTop, akRight, akBottom]
  93. HideSelection = False
  94. HotTrack = True
  95. Indent = 19
  96. ParentShowHint = False
  97. PopupMenu = PopupMenu
  98. ReadOnly = True
  99. ShowHint = True
  100. TabOrder = 0
  101. OnChange = FiltersChange
  102. OnCustomDrawItem = FiltersCustomDrawItem
  103. OnDblClick = FiltersDblClick
  104. end
  105. object Interfaces: TListBox
  106. Left = 257
  107. Top = 16
  108. Width = 145
  109. Height = 130
  110. Anchors = [akTop, akRight, akBottom]
  111. ItemHeight = 13
  112. Sorted = True
  113. TabOrder = 1
  114. OnDblClick = InterfacesDblClick
  115. end
  116. object Pins: TListBox
  117. Left = 257
  118. Top = 165
  119. Width = 145
  120. Height = 98
  121. Anchors = [akRight, akBottom]
  122. ItemHeight = 14
  123. PopupMenu = PinMenu
  124. Style = lbOwnerDrawVariable
  125. TabOrder = 2
  126. OnDrawItem = PinsDrawItem
  127. OnMeasureItem = PinsMeasureItem
  128. end
  129. object MonikerTag: TMemo
  130. Left = 0
  131. Top = 212
  132. Width = 252
  133. Height = 50
  134. Hint = 'Filter Moniker.'
  135. TabStop = False
  136. Anchors = [akLeft, akRight, akBottom]
  137. Color = clBtnFace
  138. ParentShowHint = False
  139. ReadOnly = True
  140. ShowHint = True
  141. TabOrder = 3
  142. end
  143. end
  144. object PinsSheet: TTabSheet
  145. Caption = 'Pins Details'
  146. ImageIndex = 1
  147. OnShow = PinsSheetShow
  148. object Label3: TLabel
  149. Left = 1
  150. Top = 0
  151. Width = 23
  152. Height = 13
  153. Caption = 'Pins:'
  154. end
  155. object Label4: TLabel
  156. Left = 161
  157. Top = 0
  158. Width = 50
  159. Height = 13
  160. Anchors = [akTop, akRight]
  161. Caption = 'Interfaces:'
  162. end
  163. object Label5: TLabel
  164. Left = 1
  165. Top = 149
  166. Width = 61
  167. Height = 13
  168. Anchors = [akLeft, akBottom]
  169. Caption = 'MediaTypes:'
  170. end
  171. object Pins1: TListBox
  172. Left = 1
  173. Top = 16
  174. Width = 153
  175. Height = 129
  176. Anchors = [akLeft, akTop, akRight, akBottom]
  177. ItemHeight = 13
  178. PopupMenu = PinMenu
  179. Style = lbOwnerDrawVariable
  180. TabOrder = 0
  181. OnClick = Pins1Click
  182. OnDrawItem = PinsDrawItem
  183. OnMeasureItem = PinsMeasureItem
  184. end
  185. object PinInterfaces: TListBox
  186. Left = 161
  187. Top = 16
  188. Width = 241
  189. Height = 129
  190. Anchors = [akTop, akRight, akBottom]
  191. ItemHeight = 13
  192. TabOrder = 1
  193. OnDblClick = PinInterfacesDblClick
  194. end
  195. object MediaTypes: TListBox
  196. Left = 1
  197. Top = 165
  198. Width = 400
  199. Height = 97
  200. Anchors = [akLeft, akRight, akBottom]
  201. ItemHeight = 13
  202. TabOrder = 2
  203. end
  204. end
  205. object InfoSheet: TTabSheet
  206. Caption = 'Info'
  207. ImageIndex = 2
  208. TabVisible = False
  209. object Panel1: TPanel
  210. Left = 0
  211. Top = 0
  212. Width = 403
  213. Height = 49
  214. Align = alTop
  215. BevelOuter = bvNone
  216. BorderWidth = 5
  217. Color = clHighlight
  218. TabOrder = 0
  219. object Label16: TLabel
  220. Left = 5
  221. Top = 5
  222. Width = 393
  223. Height = 22
  224. Align = alTop
  225. Alignment = taCenter
  226. Caption = 'Base Filter Editor'
  227. Font.Charset = ANSI_CHARSET
  228. Font.Color = clWhite
  229. Font.Height = -19
  230. Font.Name = 'Arial'
  231. Font.Style = []
  232. ParentFont = False
  233. end
  234. object Label17: TLabel
  235. Left = 5
  236. Top = 27
  237. Width = 393
  238. Height = 13
  239. Align = alTop
  240. Alignment = taCenter
  241. Caption = 'Version 1.2'
  242. Font.Charset = DEFAULT_CHARSET
  243. Font.Color = clWhite
  244. Font.Height = -11
  245. Font.Name = 'MS Sans Serif'
  246. Font.Style = []
  247. ParentFont = False
  248. end
  249. end
  250. object Panel2: TPanel
  251. Left = 0
  252. Top = 49
  253. Width = 403
  254. Height = 215
  255. Align = alClient
  256. BevelOuter = bvNone
  257. BorderWidth = 2
  258. Color = clWindow
  259. TabOrder = 1
  260. object Label7: TLabel
  261. Left = 8
  262. Top = 8
  263. Width = 57
  264. Height = 13
  265. Caption = 'Filter Colors:'
  266. Font.Charset = DEFAULT_CHARSET
  267. Font.Color = clWindowText
  268. Font.Height = -11
  269. Font.Name = 'MS Sans Serif'
  270. Font.Style = [fsUnderline]
  271. ParentFont = False
  272. end
  273. object Label8: TLabel
  274. Left = 52
  275. Top = 25
  276. Width = 135
  277. Height = 13
  278. Caption = 'DirectX Media Object (DMO)'
  279. end
  280. object Label9: TLabel
  281. Left = 52
  282. Top = 43
  283. Width = 159
  284. Height = 13
  285. Caption = 'Users Kernel Streaming (KSProxy)'
  286. end
  287. object Label10: TLabel
  288. Left = 52
  289. Top = 61
  290. Width = 188
  291. Height = 13
  292. Caption = 'Uses Compression Manager (ACM/ICM)'
  293. end
  294. object Label11: TLabel
  295. Left = 52
  296. Top = 79
  297. Width = 153
  298. Height = 13
  299. Caption = 'Plug and Play (PNP) device filter'
  300. end
  301. object Label12: TLabel
  302. Left = 52
  303. Top = 97
  304. Width = 83
  305. Height = 13
  306. Caption = 'Default filter Color'
  307. end
  308. object Label13: TLabel
  309. Left = 8
  310. Top = 128
  311. Width = 59
  312. Height = 13
  313. Caption = 'Pin Pictures:'
  314. Font.Charset = DEFAULT_CHARSET
  315. Font.Color = clWindowText
  316. Font.Height = -11
  317. Font.Name = 'MS Sans Serif'
  318. Font.Style = [fsUnderline]
  319. ParentFont = False
  320. end
  321. object Label14: TLabel
  322. Left = 48
  323. Top = 144
  324. Width = 93
  325. Height = 13
  326. Caption = 'Indicate a input pin.'
  327. end
  328. object Label15: TLabel
  329. Left = 48
  330. Top = 162
  331. Width = 100
  332. Height = 13
  333. Caption = 'Indicate a output pin.'
  334. end
  335. object Image1: TImage
  336. Left = 16
  337. Top = 24
  338. Width = 30
  339. Height = 16
  340. AutoSize = True
  341. end
  342. object Image2: TImage
  343. Left = 16
  344. Top = 42
  345. Width = 30
  346. Height = 16
  347. AutoSize = True
  348. end
  349. object Image3: TImage
  350. Left = 16
  351. Top = 60
  352. Width = 30
  353. Height = 16
  354. AutoSize = True
  355. end
  356. object Image4: TImage
  357. Left = 16
  358. Top = 78
  359. Width = 30
  360. Height = 16
  361. AutoSize = True
  362. end
  363. object Image5: TImage
  364. Left = 16
  365. Top = 96
  366. Width = 30
  367. Height = 16
  368. AutoSize = True
  369. end
  370. object Image6: TImage
  371. Left = 24
  372. Top = 144
  373. Width = 16
  374. Height = 14
  375. AutoSize = True
  376. Transparent = True
  377. end
  378. object Image7: TImage
  379. Left = 24
  380. Top = 162
  381. Width = 16
  382. Height = 14
  383. AutoSize = True
  384. Transparent = True
  385. end
  386. end
  387. end
  388. end
  389. object FilterGraph: TFilterGraph
  390. AutoCreate = True
  391. GraphEdit = False
  392. Left = 280
  393. Top = 256
  394. end
  395. object Filter: TFilter
  396. BaseFilter.data = {00000000}
  397. FilterGraph = FilterGraph
  398. Left = 312
  399. Top = 256
  400. end
  401. object PopupMenu: TPopupMenu
  402. OnPopup = PopupMenuPopup
  403. Left = 344
  404. Top = 256
  405. object PropertyPage: TMenuItem
  406. Caption = 'Property Page'
  407. OnClick = PropertyPageClick
  408. end
  409. object VFWCapture: TMenuItem
  410. Caption = 'VFW Capture'
  411. object VFWFormat: TMenuItem
  412. Caption = 'Format'
  413. OnClick = VFWFormatClick
  414. end
  415. object VFWSource: TMenuItem
  416. Caption = 'Source'
  417. OnClick = VFWSourceClick
  418. end
  419. object VFWDisplay: TMenuItem
  420. Caption = 'Display'
  421. OnClick = VFWDisplayClick
  422. end
  423. end
  424. object VFWConfig: TMenuItem
  425. Caption = 'VFW Compress'
  426. object Config1: TMenuItem
  427. Caption = 'Config'
  428. OnClick = Config1Click
  429. end
  430. object VFWAbout: TMenuItem
  431. Caption = 'About'
  432. OnClick = VFWAboutClick
  433. end
  434. end
  435. end
  436. object PinMenu: TPopupMenu
  437. OnPopup = PinMenuPopup
  438. Left = 376
  439. Top = 256
  440. object PinProperty: TMenuItem
  441. Caption = 'Property Page'
  442. OnClick = PinPropertyClick
  443. end
  444. end
  445. end