开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
BaseFilterEditor.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：48k
源码类别：

Delphi控件源码

开发平台：

Delphi

BaseFilterEditor.pas：源码内容
  2.     (*********************************************************************
  3.      *  DSPack 2.3.3                                                     *
  4.      *                                                                   *
  5.      *  home page : http://www.progdigy.com                              *
  6.      *  email     : hgourvest@progdigy.com                               *
  7.      *   Thanks to Michael Andersen. (DSVideoWindowEx)                   *
  8.      *                                                                   *
  9.      *  date      : 21-02-2003                                           *
  10.      *                                                                   *
  11.      *  The contents of this file are used with permission, subject to   *
  12.      *  the Mozilla Public License Version 1.1 (the "License"); you may  *
  13.      *  not use this file except in compliance with the License. You may *
  14.      *  obtain a copy of the License at                                  *
  15.      *  http://www.mozilla.org/MPL/MPL-1.1.html                          *
  16.      *                                                                   *
  17.      *  Software distributed under the License is distributed on an      *
  18.      *  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or   *
  19.      *  implied. See the License for the specific language governing     *
  20.      *  rights and limitations under the License.                        *
  21.      *                                                                   *
  22.      *********************************************************************)
  24. {$IFDEF VER140} {$WARN SYMBOL_DEPRECATED OFF} {$ENDIF}
  25. {$IFDEF VER150}
  26.   {$WARN SYMBOL_DEPRECATED OFF}
  27.   {$WARN UNSAFE_CODE OFF}
  28.   {$WARN UNSAFE_TYPE OFF}
  29.   {$WARN UNSAFE_CAST OFF}
  30. {$ENDIF}
  32. unit BaseFilterEditor;
  34. interface
  36. uses
  37.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  38.   Dialogs, StdCtrls, DSUTIL, DirectShow9, ComCtrls, DSPack, Menus, ExtCtrls,
  39.   Buttons;
  41. type
  42.   TFormBaseFilter = class(TForm)
  43.     btOK: TButton;
  44.     btCancel: TButton;
  45.     FilterGraph: TFilterGraph;
  46.     Filter: TFilter;
  47.     PopupMenu: TPopupMenu;
  48.     PropertyPage: TMenuItem;
  49.     VFWDisplay: TMenuItem;
  50.     VFWFormat: TMenuItem;
  51.     VFWSource: TMenuItem;
  52.     VFWConfig: TMenuItem;
  53.     VFWCapture: TMenuItem;
  54.     Config1: TMenuItem;
  55.     VFWAbout: TMenuItem;
  56.     PinMenu: TPopupMenu;
  57.     PinProperty: TMenuItem;
  58.     PageControl1: TPageControl;
  59.     SelectorSheet: TTabSheet;
  60.     Label1: TLabel;
  61.     Label2: TLabel;
  62.     Label6: TLabel;
  63.     Filters: TTreeView;
  64.     Interfaces: TListBox;
  65.     Pins: TListBox;
  66.     PinsSheet: TTabSheet;
  67.     Label3: TLabel;
  68.     Label4: TLabel;
  69.     Label5: TLabel;
  70.     Pins1: TListBox;
  71.     PinInterfaces: TListBox;
  72.     MediaTypes: TListBox;
  73.     MonikerTag: TMemo;
  74.     InfoBtn: TSpeedButton;
  75.     InfoSheet: TTabSheet;
  76.     Panel1: TPanel;
  77.     Panel2: TPanel;
  78.     Label7: TLabel;
  79.     Label8: TLabel;
  80.     Label9: TLabel;
  81.     Label10: TLabel;
  82.     Label11: TLabel;
  83.     Label12: TLabel;
  84.     Label13: TLabel;
  85.     Label14: TLabel;
  86.     Label15: TLabel;
  87.     Image1: TImage;
  88.     Image2: TImage;
  89.     Image3: TImage;
  90.     Image4: TImage;
  91.     Image5: TImage;
  92.     Image6: TImage;
  93.     Image7: TImage;
  94.     Label16: TLabel;
  95.     Label17: TLabel;
  96.     procedure FormShow(Sender: TObject);
  97.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  98.     procedure PopupMenuPopup(Sender: TObject);
  99.     procedure PropertyPageClick(Sender: TObject);
  100.     procedure VFWDisplayClick(Sender: TObject);
  101.     procedure VFWFormatClick(Sender: TObject);
  102.     procedure VFWSourceClick(Sender: TObject);
  103.     procedure Config1Click(Sender: TObject);
  104.     procedure VFWAboutClick(Sender: TObject);
  105.     procedure PinMenuPopup(Sender: TObject);
  106.     procedure PinPropertyClick(Sender: TObject);
  107.     procedure PinsSheetShow(Sender: TObject);
  108.     procedure Pins1Click(Sender: TObject);
  109.     procedure InterfacesDblClick(Sender: TObject);
  110.     procedure PinInterfacesDblClick(Sender: TObject);
  111.     procedure PinsDrawItem(Control: TWinControl; Index: Integer;
  112.       Rect: TRect; State: TOwnerDrawState);
  113.     procedure FiltersChange(Sender: TObject; Node: TTreeNode);
  114.     procedure PinsMeasureItem(Control: TWinControl; Index: Integer;
  115.       var Height: Integer);
  116.     procedure FiltersDblClick(Sender: TObject);
  117.     procedure FiltersCustomDrawItem(Sender: TCustomTreeView;
  118.       Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  119.     procedure InfoBtnClick(Sender: TObject);
  120.   public
  121.     SysDevEnum: TSysDevEnum;
  122.     PinList: TPinList;
  123.     InPinPic,
  124.     OutPinPic : TBitmap;
  125.     constructor Create(AOwner: TComponent); override;
  126.     destructor  Destroy; override;
  127.     procedure RefreshTree;
  128. //    procedure FiltersClick(Sender: TObject);
  129.     procedure GetFilterInfo;
  130.   end;
  132.   TDSitf = record
  133.     name : string;
  134.     itf  : TGUID;
  135.   end;
  137.   pNodeItem = ^TNodeItem;
  138.   TNodeItem = Record
  139.     Index      : integer;
  140.     Color      : TColor;
  141.     MonikerStr : WideString;
  142.   End;
  144. const
  145.   FilterColors : array[0..4] of TColor = (clBlack, clPurple, clBlue, clRed, clGreen);
  147.   DSItfs : array[0..382] of TDSitf =
  148. ((name: 'IPin'; itf: '{56A86891-0AD4-11CE-B03A-0020AF0BA770}'),
  149.  (name: 'IEnumPins'; itf: '{56A86892-0AD4-11CE-B03A-0020AF0BA770}'),
  150.  (name: 'IEnumMediaTypes'; itf: '{89C31040-846B-11CE-97D3-00AA0055595A}'),
  151.  (name: 'IFilterGraph'; itf: '{56A8689F-0AD4-11CE-B03A-0020AF0BA770}'),
  152.  (name: 'IEnumFilters'; itf: '{56A86893-0AD4-11CE-B03A-0020AF0BA770}'),
  153.  (name: 'IMediaFilter'; itf: '{56A86899-0AD4-11CE-B03A-0020AF0BA770}'),
  154.  (name: 'IBaseFilter'; itf: '{56A86895-0AD4-11CE-B03A-0020AF0BA770}'),
  155.  (name: 'IReferenceClock'; itf: '{56A86897-0AD4-11CE-B03A-0020AF0BA770}'),
  156.  (name: 'IReferenceClock2'; itf: '{36B73885-C2C8-11CF-8B46-00805F6CEF60}'),
  157.  (name: 'IMediaSample'; itf: '{56A8689A-0AD4-11CE-B03A-0020AF0BA770}'),
  158.  (name: 'IMediaSample2'; itf: '{36B73884-C2C8-11CF-8B46-00805F6CEF60}'),
  159.  (name: 'IMemAllocator'; itf: '{56A8689C-0AD4-11CE-B03A-0020AF0BA770}'),
  160.  (name: 'IMemInputPin'; itf: '{56A8689D-0AD4-11CE-B03A-0020AF0BA770}'),
  161.  (name: 'IAMovieSetup'; itf: '{A3D8CEC0-7E5A-11CF-BBC5-00805F6CEF20}'),
  162.  (name: 'IMediaSeeking'; itf: '{36B73880-C2C8-11CF-8B46-00805F6CEF60}'),
  163.  (name: 'IEnumRegFilters'; itf: '{56A868A4-0AD4-11CE-B03A-0020AF0BA770}'),
  164.  (name: 'IFilterMapper'; itf: '{56A868A3-0AD4-11CE-B03A-0020AF0BA770}'),
  165.  (name: 'IFilterMapper2'; itf: '{B79BB0B0-33C1-11D1-ABE1-00A0C905F375}'),
  166.  (name: 'IQualityControl'; itf: '{56A868A5-0AD4-11CE-B03A-0020AF0BA770}'),
  167.  (name: 'IOverlayNotify'; itf: '{56A868A0-0AD4-11CE-B03A-0020AF0BA770}'),
  168.  (name: 'IOverlay'; itf: '{56A868A1-0AD4-11CE-B03A-0020AF0BA770}'),
  169.  (name: 'IMediaEventSink'; itf: '{56A868A2-0AD4-11CE-B03A-0020AF0BA770}'),
  170.  (name: 'IFileSourceFilter'; itf: '{56A868A6-0AD4-11CE-B03A-0020AF0BA770}'),
  171.  (name: 'IFileSinkFilter'; itf: '{A2104830-7C70-11CF-8BCE-00AA00A3F1A6}'),
  172.  (name: 'IFileSinkFilter2'; itf: '{00855B90-CE1B-11D0-BD4F-00A0C911CE86}'),
  173.  (name: 'IFileAsyncIO'; itf: '{56A868A7-0AD4-11CE-B03A-0020AF0BA770}'),
  174.  (name: 'IGraphBuilder'; itf: '{56A868A9-0AD4-11CE-B03A-0020AF0BA770}'),
  175.  (name: 'ICaptureGraphBuilder'; itf: '{BF87B6E0-8C27-11D0-B3F0-00AA003761C5}'),
  176.  (name: 'IAMCopyCaptureFileProgress'; itf: '{670D1D20-A068-11D0-B3F0-00AA003761C5}'),
  177.  (name: 'IFilterGraph2'; itf: '{36B73882-C2C8-11CF-8B46-00805F6CEF60}'),
  178.  (name: 'IStreamBuilder'; itf: '{56A868BF-0AD4-11CE-B03A-0020AF0BA770}'),
  179.  (name: 'IAsyncReader'; itf: '{56A868AA-0AD4-11CE-B03A-0020AF0BA770}'),
  180.  (name: 'IGraphVersion'; itf: '{56A868AB-0AD4-11CE-B03A-0020AF0BA770}'),
  181.  (name: 'IResourceConsumer'; itf: '{56A868AD-0AD4-11CE-B03A-0020AF0BA770}'),
  182.  (name: 'IResourceManager'; itf: '{56A868AC-0AD4-11CE-B03A-0020AF0BA770}'),
  183.  (name: 'IDistributorNotify'; itf: '{56A868AF-0AD4-11CE-B03A-0020AF0BA770}'),
  184.  (name: 'IAMStreamControl'; itf: '{36B73881-C2C8-11CF-8B46-00805F6CEF60}'),
  185.  (name: 'ISeekingPassThru'; itf: '{36B73883-C2C8-11CF-8B46-00805F6CEF60}'),
  186.  (name: 'IAMStreamConfig'; itf: '{C6E13340-30AC-11D0-A18C-00A0C9118956}'),
  187.  (name: 'IConfigInterleaving'; itf: '{BEE3D220-157B-11D0-BD23-00A0C911CE86}'),
  188.  (name: 'IConfigAviMux'; itf: '{5ACD6AA0-F482-11CE-8B67-00AA00A3F1A6}'),
  189.  (name: 'IAMVideoCompression'; itf: '{C6E13343-30AC-11D0-A18C-00A0C9118956}'),
  190.  (name: 'IAMVfwCaptureDialogs'; itf: '{D8D715A0-6E5E-11D0-B3F0-00AA003761C5}'),
  191.  (name: 'IAMVfwCompressDialogs'; itf: '{D8D715A3-6E5E-11D0-B3F0-00AA003761C5}'),
  192.  (name: 'IAMDroppedFrames'; itf: '{C6E13344-30AC-11D0-A18C-00A0C9118956}'),
  193.  (name: 'IAMAudioInputMixer'; itf: '{54C39221-8380-11D0-B3F0-00AA003761C5}'),
  194.  (name: 'IAMAnalogVideoDecoder'; itf: '{C6E13350-30AC-11D0-A18C-00A0C9118956}'),
  195.  (name: 'IAMVideoProcAmp'; itf: '{C6E13360-30AC-11D0-A18C-00A0C9118956}'),
  196.  (name: 'IAMCameraControl'; itf: '{C6E13370-30AC-11D0-A18C-00A0C9118956}'),
  197.  (name: 'IAMCrossbar'; itf: '{C6E13380-30AC-11D0-A18C-00A0C9118956}'),
  198.  (name: 'IAMTuner'; itf: '{211A8761-03AC-11D1-8D13-00AA00BD8339}'),
  199.  (name: 'IAMTunerNotification'; itf: '{211A8760-03AC-11D1-8D13-00AA00BD8339}'),
  200.  (name: 'IAMTVTuner'; itf: '{211A8766-03AC-11D1-8D13-00AA00BD8339}'),
  201.  (name: 'IBPCSatelliteTuner'; itf: '{211A8765-03AC-11D1-8D13-00AA00BD8339}'),
  202.  (name: 'IAMTVAudio'; itf: '{83EC1C30-23D1-11D1-99E6-00A0C9560266}'),
  203.  (name: 'IAMTVAudioNotification'; itf: '{83EC1C33-23D1-11D1-99E6-00A0C9560266}'),
  204.  (name: 'IAMAnalogVideoEncoder'; itf: '{C6E133B0-30AC-11D0-A18C-00A0C9118956}'),
  205.  (name: 'IMediaPropertyBag'; itf: '{6025A880-C0D5-11D0-BD4E-00A0C911CE86}'),
  206.  (name: 'IPersistMediaPropertyBag'; itf: '{5738E040-B67F-11D0-BD4D-00A0C911CE86}'),
  207.  (name: 'IAMPhysicalPinInfo'; itf: '{F938C991-3029-11CF-8C44-00AA006B6814}'),
  208.  (name: 'IAMExtDevice'; itf: '{B5730A90-1A2C-11CF-8C23-00AA006B6814}'),
  209.  (name: 'IAMExtTransport'; itf: '{A03CD5F0-3045-11CF-8C44-00AA006B6814}'),
  210.  (name: 'IAMTimecodeReader'; itf: '{9B496CE1-811B-11CF-8C77-00AA006B6814}'),
  211.  (name: 'IAMTimecodeGenerator'; itf: '{9B496CE0-811B-11CF-8C77-00AA006B6814}'),
  212.  (name: 'IAMTimecodeDisplay'; itf: '{9B496CE2-811B-11CF-8C77-00AA006B6814}'),
  213.  (name: 'IAMDevMemoryAllocator'; itf: '{C6545BF0-E76B-11D0-BD52-00A0C911CE86}'),
  214.  (name: 'IAMDevMemoryControl'; itf: '{C6545BF1-E76B-11D0-BD52-00A0C911CE86}'),
  215.  (name: 'IAMStreamSelect'; itf: '{C1960960-17F5-11D1-ABE1-00A0C905F375}'),
  216.  (name: 'IAMovie'; itf: '{359ACE10-7688-11CF-8B23-00805F6CEF60}'),
  217.  (name: 'ICreateDevEnum'; itf: '{29840822-5B84-11D0-BD3B-00A0C911CE86}'),
  218.  (name: 'IDvdControl'; itf: '{A70EFE61-E2A3-11D0-A9BE-00AA0061BE93}'),
  219.  (name: 'IDvdControl2'; itf: '{33BC7430-EEC0-11D2-8201-00A0C9D74842}'),
  220.  (name: 'IDvdInfo'; itf: '{A70EFE60-E2A3-11D0-A9BE-00AA0061BE93}'),
  221.  (name: 'IDvdInfo2'; itf: '{34151510-EEC0-11D2-8201-00A0C9D74842}'),
  222.  (name: 'IDvdGraphBuilder'; itf: '{FCC152B6-F372-11D0-8E00-00C04FD7C08B}'),
  223.  (name: 'IDvdState'; itf: '{86303D6D-1C4A-4087-AB42-F711167048EF}'),
  224.  (name: 'IDvdCmd'; itf: '{5A4A97E4-94EE-4A55-9751-74B5643AA27D}'),
  225.  (name: 'IVideoFrameStep'; itf: '{E46A9787-2B71-444D-A4B5-1FAB7B708D6A}'),
  226.  (name: 'IFilterMapper3'; itf: '{B79BB0B1-33C1-11D1-ABE1-00A0C905F375}'),
  227.  (name: 'IOverlayNotify2'; itf: '{680EFA10-D535-11D1-87C8-00A0C9223196}'),
  228.  (name: 'ICaptureGraphBuilder2'; itf: '{93E5A4E0-2D50-11D2-ABFA-00A0C9C6E38D}'),
  229.  (name: 'IMemAllocatorCallbackTemp'; itf: '{379A0CF0-C1DE-11D2-ABF5-00A0C905F375}'),
  230.  (name: 'IMemAllocatorNotifyCallbackTemp'; itf: '{92980B30-C1DE-11D2-ABF5-00A0C905F375}'),
  231.  (name: 'IAMVideoControl'; itf: '{6A2E0670-28E4-11D0-A18C-00A0C9118956}'),
  232.  (name: 'IKsPropertySet'; itf: '{31EFAC30-515C-11D0-A9AA-00AA0061BE93}'),
  233.  (name: 'IAMResourceControl'; itf: '{8389D2D0-77D7-11D1-ABE6-00A0C905F375}'),
  234.  (name: 'IAMClockAdjust'; itf: '{4D5466B0-A49C-11D1-ABE8-00A0C905F375}'),
  235.  (name: 'IAMFilterMiscFlags'; itf: '{2DD74950-A890-11D1-ABE8-00A0C905F375}'),
  236.  (name: 'IDrawVideoImage'; itf: '{48EFB120-AB49-11D2-AED2-00A0C995E8D5}'),
  237.  (name: 'IDecimateVideoImage'; itf: '{2E5EA3E0-E924-11D2-B6DA-00A0C995E8DF}'),
  238.  (name: 'IAMVideoDecimationProperties'; itf: '{60D32930-13DA-11D3-9EC6-C4FCAEF5C7BE}'),
  239.  (name: 'IAMLatency'; itf: '{62EA93BA-EC62-11D2-B770-00C04FB6BD3D}'),
  240.  (name: 'IAMPushSource'; itf: '{F185FE76-E64E-11D2-B76E-00C04FB6BD3D}'),
  241.  (name: 'IAMDeviceRemoval'; itf: '{F90A6130-B658-11D2-AE49-0000F8754B99}'),
  242.  (name: 'IDVEnc'; itf: '{D18E17A0-AACB-11D0-AFB0-00AA00B67A42}'),
  243.  (name: 'IIPDVDec'; itf: '{B8E8BD60-0BFE-11D0-AF91-00AA00B67A42}'),
  244.  (name: 'IDVRGB219'; itf: '{58473A19-2BC8-4663-8012-25F81BABDDD1}'),
  245.  (name: 'IDVSplitter'; itf: '{92A3A302-DA7C-4A1F-BA7E-1802BB5D2D02}'),
  246.  (name: 'IAMAudioRendererStats'; itf: '{22320CB2-D41A-11D2-BF7C-D7CB9DF0BF93}'),
  247.  (name: 'IAMGraphStreams'; itf: '{632105FA-072E-11D3-8AF9-00C04FB6BD3D}'),
  248.  (name: 'IAMOverlayFX'; itf: '{62FAE250-7E65-4460-BFC9-6398B322073C}'),
  249.  (name: 'IAMOpenProgress'; itf: '{8E1C39A1-DE53-11CF-AA63-0080C744528D}'),
  250.  (name: 'IMpeg2Demultiplexer'; itf: '{436EEE9C-264F-4242-90E1-4E330C107512}'),
  251.  (name: 'IEnumStreamIdMap'; itf: '{945C1566-6202-46FC-96C7-D87F289C6534}'),
  252.  (name: 'IMPEG2StreamIdMap'; itf: '{D0E04C47-25B8-4369-925A-362A01D95444}'),
  253.  (name: 'IRegisterServiceProvider'; itf: '{7B3A2F01-0751-48DD-B556-004785171C54}'),
  254.  (name: 'IAMDecoderCaps'; itf: '{C0DFF467-D499-4986-972B-E1D9090FA941}'),
  255.  (name: 'IAMClockSlave'; itf: '{9FD52741-176D-4B36-8F51-CA8F933223BE}'),
  256.  (name: 'IDDrawExclModeVideo'; itf: '{153ACC21-D83B-11D1-82BF-00A0C9696C8F}'),
  257.  (name: 'IDDrawExclModeVideoCallback'; itf: '{913C24A0-20AB-11D2-9038-00A0C9697298}'),
  258.  (name: 'IPinConnection'; itf: '{4A9A62D3-27D4-403D-91E9-89F540E55534}'),
  259.  (name: 'IPinFlowControl'; itf: '{C56E9858-DBF3-4F6B-8119-384AF2060DEB}'),
  260.  (name: 'IGraphConfig'; itf: '{03A1EB8E-32BF-4245-8502-114D08A9CB88}'),
  261.  (name: 'IGraphConfigCallback'; itf: '{ADE0FD60-D19D-11D2-ABF6-00A0C905F375}'),
  262.  (name: 'IFilterChain'; itf: '{DCFBDCF6-0DC2-45F5-9AB2-7C330EA09C29}'),
  263.  (name: 'IVMRImagePresenter'; itf: '{CE704FE7-E71E-41FB-BAA2-C4403E1182F5}'),
  264.  (name: 'IVMRSurfaceAllocator'; itf: '{31CE832E-4484-458B-8CCA-F4D7E3DB0B52}'),
  265.  (name: 'IVMRSurfaceAllocatorNotify'; itf: '{AADA05A8-5A4E-4729-AF0B-CEA27AED51E2}'),
  266.  (name: 'IVMRWindowlessControl'; itf: '{0EB1088C-4DCD-46F0-878F-39DAE86A51B7}'),
  267.  (name: 'IVMRMixerControl'; itf: '{1C1A17B0-BED0-415D-974B-DC6696131599}'),
  268.  (name: 'IVMRMonitorConfig'; itf: '{9CF0B1B6-FBAA-4B7F-88CF-CF1F130A0DCE}'),
  269.  (name: 'IVMRFilterConfig'; itf: '{9E5530C5-7034-48B4-BB46-0B8A6EFC8E36}'),
  270.  (name: 'IVMRMixerBitmap'; itf: '{1E673275-0257-40AA-AF20-7C608D4A0428}'),
  271.  (name: 'IVMRImageCompositor'; itf: '{7A4FB5AF-479F-4074-BB40-CE6722E43C82}'),
  272.  (name: 'IVMRVideoStreamControl'; itf: '{058D1F11-2A54-4BEF-BD54-DF706626B727}'),
  273.  (name: 'IVMRSurface'; itf: '{A9849BBE-9EC8-4263-B764-62730F0D15D0}'),
  274.  (name: 'IVPManager'; itf: '{AAC18C18-E186-46D2-825D-A1F8DC8E395A}'),
  275.  (name: 'IVMRImagePresenterConfig'; itf: '{9F3A1C85-8555-49BA-935F-BE5B5B29D178}'),
  276.  (name: 'IVMRImagePresenterExclModeConfig'; itf: '{E6F7CE40-4673-44F1-8F77-5499D68CB4EA}'),
  277.  (name: 'IAMBufferNegotiation'; itf: '{56ED71A0-AF5F-11D0-B3F0-00AA003761C5}'),
  278.  (name: 'IMultiMediaStream'; itf: '{B502D1BC-9A57-11D0-8FDE-00C04FD9189D}'),
  279.  (name: 'IMediaStream'; itf: '{B502D1BD-9A57-11D0-8FDE-00C04FD9189D}'),
  280.  (name: 'IStreamSample'; itf: '{B502D1BE-9A57-11D0-8FDE-00C04FD9189D}'),
  281.  (name: 'IDirectShowStream'; itf: '{7DB01C96-C0C3-11D0-8FF1-00C04FD9189D}'),
  282.  (name: 'IAMMultiMediaStream'; itf: '{BEBE595C-9A6F-11D0-8FDE-00C04FD9189D}'),
  283.  (name: 'IAMMediaStream'; itf: '{BEBE595D-9A6F-11D0-8FDE-00C04FD9189D}'),
  284.  (name: 'IMediaStreamFilter'; itf: '{BEBE595E-9A6F-11D0-8FDE-00C04FD9189D}'),
  285.  (name: 'IDirectDrawMediaSampleAllocator'; itf: '{AB6B4AFC-F6E4-11D0-900D-00C04FD9189D}'),
  286.  (name: 'IDirectDrawMediaSample'; itf: '{AB6B4AFE-F6E4-11D0-900D-00C04FD9189D}'),
  287.  (name: 'IAMMediaTypeStream'; itf: '{AB6B4AFA-F6E4-11D0-900D-00C04FD9189D}'),
  288.  (name: 'IAMMediaTypeSample'; itf: '{AB6B4AFB-F6E4-11D0-900D-00C04FD9189D}'),
  289.  (name: 'IDirectDrawMediaStream'; itf: '{F4104FCE-9A70-11D0-8FDE-00C04FD9189D}'),
  290.  (name: 'IDirectDrawStreamSample'; itf: '{F4104FCF-9A70-11D0-8FDE-00C04FD9189D}'),
  291.  (name: 'IAudioMediaStream'; itf: '{F7537560-A3BE-11D0-8212-00C04FC32C45}'),
  292.  (name: 'IAudioStreamSample'; itf: '{345FEE00-ABA5-11D0-8212-00C04FC32C45}'),
  293.  (name: 'IMemoryData'; itf: '{327FC560-AF60-11D0-8212-00C04FC32C45}'),
  294.  (name: 'IAudioData'; itf: '{54C719C0-AF60-11D0-8212-00C04FC32C45}'),
  295.  (name: 'IMixerPinConfig'; itf: '{593CDDE1-0759-11D1-9E69-00C04FD7C15B}'),
  296.  (name: 'IMixerPinConfig2'; itf: '{EBF47182-8764-11D1-9E69-00C04FD7C15B}'),
  297.  (name: 'IAMCollection'; itf: '{56A868B9-0AD4-11CE-B03A-0020AF0BA770}'),
  298.  (name: 'IMediaControl'; itf: '{56A868B1-0AD4-11CE-B03A-0020AF0BA770}'),
  299.  (name: 'IMediaEvent'; itf: '{56A868B6-0AD4-11CE-B03A-0020AF0BA770}'),
  300.  (name: 'IMediaEventEx'; itf: '{56A868C0-0AD4-11CE-B03A-0020AF0BA770}'),
  301.  (name: 'IMediaPosition'; itf: '{56A868B2-0AD4-11CE-B03A-0020AF0BA770}'),
  302.  (name: 'IBasicAudio'; itf: '{56A868B3-0AD4-11CE-B03A-0020AF0BA770}'),
  303.  (name: 'IVideoWindow'; itf: '{56A868B4-0AD4-11CE-B03A-0020AF0BA770}'),
  304.  (name: 'IBasicVideo'; itf: '{56A868B5-0AD4-11CE-B03A-0020AF0BA770}'),
  305.  (name: 'IBasicVideo2'; itf: '{329BB360-F6EA-11D1-9038-00A0C9697298}'),
  306.  (name: 'IDeferredCommand'; itf: '{56A868B8-0AD4-11CE-B03A-0020AF0BA770}'),
  307.  (name: 'IQueueCommand'; itf: '{56A868B7-0AD4-11CE-B03A-0020AF0BA770}'),
  308.  (name: 'IFilterInfo'; itf: '{56A868BA-0AD4-11CE-B03A-0020AF0BA770}'),
  309.  (name: 'IRegFilterInfo'; itf: '{56A868BB-0AD4-11CE-B03A-0020AF0BA770}'),
  310.  (name: 'IMediaTypeInfo'; itf: '{56A868BC-0AD4-11CE-B03A-0020AF0BA770}'),
  311.  (name: 'IPinInfo'; itf: '{56A868BD-0AD4-11CE-B03A-0020AF0BA770}'),
  312.  (name: 'IAMStats'; itf: '{BC9BCF80-DCD2-11D2-ABF6-00A0C905F375}'),
  313.  (name: 'IAMNetShowConfig'; itf: '{FA2AA8F1-8B62-11D0-A520-000000000000}'),
  314.  (name: 'IAMChannelInfo'; itf: '{FA2AA8F2-8B62-11D0-A520-000000000000}'),
  315.  (name: 'IAMNetworkStatus'; itf: '{FA2AA8F3-8B62-11D0-A520-000000000000}'),
  316.  (name: 'IAMExtendedSeeking'; itf: '{FA2AA8F9-8B62-11D0-A520-000000000000}'),
  317.  (name: 'IAMNetShowExProps'; itf: '{FA2AA8F5-8B62-11D0-A520-000000000000}'),
  318.  (name: 'IAMExtendedErrorInfo'; itf: '{FA2AA8F6-8B62-11D0-A520-000000000000}'),
  319.  (name: 'IAMMediaContent'; itf: '{FA2AA8F4-8B62-11D0-A520-000000000000}'),
  320.  (name: 'IAMMediaContent2'; itf: '{CE8F78C1-74D9-11D2-B09D-00A0C9A81117}'),
  321.  (name: 'IAMNetShowPreroll'; itf: '{AAE7E4E2-6388-11D1-8D93-006097C9A2B2}'),
  322.  (name: 'IDShowPlugin'; itf: '{4746B7C8-700E-11D1-BECC-00C04FB6E937}'),
  323.  (name: 'IAMPlayListItem'; itf: '{56A868FF-0AD4-11CE-B0A3-0020AF0BA770}'),
  324.  (name: 'IAMPlayList'; itf: '{56A868FE-0AD4-11CE-B0A3-0020AF0BA770}'),
  325.  (name: 'ISpecifyParticularPages'; itf: '{4C437B91-6E9E-11D1-A704-006097C4E476}'),
  326.  (name: 'IAMRebuild'; itf: '{02EF04DD-7580-11D1-BECE-00C04FB6E937}'),
  327.  (name: 'IDirectDrawVideo'; itf: '{36D39EB0-DD75-11CE-BF0E-00AA0055595A}'),
  328.  (name: 'IQualProp'; itf: '{1BD0ECB0-F8E2-11CE-AAC6-0020AF0B99A3}'),
  329.  (name: 'IFullScreenVideo'; itf: '{DD1D7110-7836-11CF-BF47-00AA0055595A}'),
  330.  (name: 'IFullScreenVideoEx'; itf: '{53479470-F1DD-11CF-BC42-00AA00AC74F6}'),
  331.  (name: 'IBaseVideoMixer'; itf: '{61DED640-E912-11CE-A099-00AA00479A58}'),
  332.  (name: 'IAMDirectSound'; itf: '{546F4260-D53E-11CF-B3F0-00AA003761C5}'),
  333.  (name: 'IVPConfig'; itf: '{BC29A660-30E3-11D0-9E69-00C04FD7C15B}'),
  334.  (name: 'IVPVBIConfig'; itf: '{EC529B00-1A1F-11D1-BAD9-00609744111A}'),
  335.  (name: 'IVPNotify'; itf: '{C76794A1-D6C5-11D0-9E69-00C04FD7C15B}'),
  336.  (name: 'IVPVBINotify'; itf: '{EC529B01-1A1F-11D1-BAD9-00609744111A}'),
  337.  (name: 'IVPNotify2'; itf: '{EBF47183-8764-11D1-9E69-00C04FD7C15B}'),
  338.  (name: 'IMpegAudioDecoder'; itf: '{B45DD570-3C77-11D1-ABE1-00A0C905F375}'),
  339.  (name: 'IAMLine21Decoder'; itf: '{6E8D4A21-310C-11D0-B79A-00AA003767A7}'),
  340.  (name: 'IVPObject'; itf: '{CE292862-FC88-11D0-9E69-00C04FD7C15B}'),
  341.  (name: 'IVPControl'; itf: '{25DF12C1-3DE0-11D1-9E69-00C04FD7C15B}'),
  342.  (name: 'IVPVBIObject'; itf: '{814B9802-1C88-11D1-BAD9-00609744111A}'),
  343.  (name: 'IAMWstDecoder'; itf: '{C056DE21-75C2-11D3-A184-00105AEF9F33}'),
  344.  (name: 'IKsInterfaceHandler'; itf: '{D3ABC7E0-9A61-11D0-A40D-00A0C9223196}'),
  345.  (name: 'IKsDataTypeHandler'; itf: '{5FFBAA02-49A3-11D0-9F36-00AA00A216A1}'),
  346.  (name: 'IKsPin'; itf: '{B61178D1-A2D9-11CF-9E53-00AA00A216A1}'),
  347.  (name: 'IKsControl'; itf: '{28F54685-06FD-11D2-B27A-00A0C9223196}'),
  348.  (name: 'IKsPinFactory'; itf: '{CD5EBE6B-8B6E-11D1-8AE0-00A0C9223196}'),
  349.  (name: 'IAMVideoAcceleratorNotify'; itf: '{256A6A21-FBAD-11D1-82BF-00A0C9696C8F}'),
  350.  (name: 'IAMVideoAccelerator'; itf: '{256A6A22-FBAD-11D1-82BF-00A0C9696C8F}'),
  351.  (name: 'ICreatePropBagOnRegKey'; itf: '{8A674B48-1F63-11D3-B64C-00C04F79498E}'),
  352.  (name: 'ITuningSpaces'            ; itf: '{901284E4-33FE-4b69-8D63-634A596F3756}'),
  353.  (name: 'ITuningSpaceContainer'    ; itf: '{5B692E84-E2F1-11d2-9493-00C04F72D980}'),
  354.  (name: 'ITuningSpace'             ; itf: '{061C6E30-E622-11d2-9493-00C04F72D980}'),
  355.  (name: 'IEnumTuningSpaces'        ; itf: '{8B8EB248-FC2B-11d2-9D8C-00C04F72D980}'),
  356.  (name: 'IDVBTuningSpace'          ; itf: '{ADA0B268-3B19-4e5b-ACC4-49F852BE13BA}'),
  357.  (name: 'IAnalogTVTuningSpace'     ; itf: '{2A6E293C-2595-11d3-B64C-00C04F79498E}'),
  358.  (name: 'IATSCTuningSpace'         ; itf: '{0369B4E2-45B6-11d3-B650-00C04F79498E}'),
  359.  (name: 'IAnalogRadioTuningSpace'  ; itf: '{2A6E293B-2595-11d3-B64C-00C04F79498E}'),
  360.  (name: 'ITuneRequest'             ; itf: '{07DDC146-FC3D-11d2-9D8C-00C04F72D980}'),
  361.  (name: 'IChannelTuneRequest'      ; itf: '{0369B4E0-45B6-11d3-B650-00C04F79498E}'),
  362.  (name: 'IATSCChannelTuneRequest'  ; itf: '{0369B4E1-45B6-11d3-B650-00C04F79498E}'),
  363.  (name: 'IDVBTuneRequest'          ; itf: '{0D6F567E-A636-42bb-83BA-CE4C1704AFA2}'),
  364.  (name: 'ITuner'                   ; itf: '{28C52640-018A-11d3-9D8E-00C04F72D980}'),
  365.  (name: 'IScanningTuner'           ; itf: '{1DFD0A5C-0284-11d3-9D8E-00C04F72D980}'),
  366.  (name: 'ITunerEvents'             ; itf: '{68481420-0280-11d3-9D8E-00C04F72D980}'),
  367.  (name: 'ISignalEvents'            ; itf: '{85E2439E-0E23-11d3-9D8E-00C04F72D980}'),
  368.  (name: 'IComponentType'           ; itf: '{6A340DC0-0311-11d3-9D8E-00C04F72D980}'),
  369.  (name: 'ILanguageComponentType'   ; itf: '{B874C8BA-0FA2-11d3-9D8E-00C04F72D980}'),
  370.  (name: 'IMPEG2ComponentType'      ; itf: '{2C073D84-B51C-48c9-AA9F-68971E1F6E38}'),
  371.  (name: 'IATSCComponentType'       ; itf: '{FC189E4D-7BD4-4125-B3B3-3A76A332CC96}'),
  372.  (name: 'IEnumComponentTypes'      ; itf: '{8A674B4A-1F63-11d3-B64C-00C04F79498E}'),
  373.  (name: 'IComponentTypes'          ; itf: '{0DC13D4A-0313-11d3-9D8E-00C04F72D980}'),
  374.  (name: 'IComponent'               ; itf: '{1A5576FC-0E19-11d3-9D8E-00C04F72D980}'),
  375.  (name: 'IMPEG2Component'          ; itf: '{1493E353-1EB6-473c-802D-8E6B8EC9D2A9}'),
  376.  (name: 'IEnumComponents'          ; itf: '{2A6E2939-2595-11d3-B64C-00C04F79498E}'),
  377.  (name: 'IComponents'              ; itf: '{FCD01846-0E19-11d3-9D8E-00C04F72D980}'),
  378.  (name: 'ILocator'                 ; itf: '{286D7F89-760C-4F89-80C4-66841D2507AA}'),
  379.  (name: 'IATSCLocator'             ; itf: '{BF8D986F-8C2B-4131-94D7-4D3D9FCC21EF}'),
  380.  (name: 'IDVBTLocator'             ; itf: '{8664DA16-DDA2-42ac-926A-C18F9127C302}'),
  381.  (name: 'IDVBSLocator'             ; itf: '{3D7C353C-0D04-45f1-A742-F97CC1188DC8}'),
  382.  (name: 'IDVBCLocator'             ; itf: '{6E42F36E-1DD2-43c4-9F78-69D25AE39034}'),
  383.  (name: 'IDVBTuningSpace2'         ; itf: '{843188B4-CE62-43db-966B-8145A094E040}'),
  384.  (name: 'IDVBSTuningSpace'         ; itf: '{CDF7BE60-D954-42fd-A972-78971958E470}'),
  385.  (name: 'IMPEG2TuneRequest'        ; itf: '{EB7D987F-8A01-42AD-B8AE-574DEEE44D1A}'),
  386.  (name: 'IMPEG2TuneRequestFactory' ; itf: '{14E11ABD-EE37-4893-9EA1-6964DE933E39}'),
  387.  (name: 'IMPEG2TuneRequestSupport' ; itf: '{1B9D5FC3-5BBC-4b6c-BB18-B9D10E3EEEBF}'),
  388.  (name: 'IBroadcastEvent'          ; itf: '{3B21263F-26E8-489d-AAC4-924F7EFD9511}'),
  389.  (name: 'IDXBaseObject'        ; itf: '{17B59B2B-9CC8-11D1-9053-00C04FD9189D}'),
  390.  (name: 'IDXTransformFactory'  ; itf: '{6A950B2B-A971-11D1-81C8-0000F87557DB}'),
  391.  (name: 'IDXTransform'         ; itf: '{30A5FB78-E11F-11D1-9064-00C04FD9189D}'),
  392.  (name: 'IDXSurfacePick'       ; itf: '{30A5FB79-E11F-11d1-9064-00C04FD9189D}'),
  393.  (name: 'IDXTBindHost'         ; itf: '{D26BCE55-E9DC-11d1-9066-00C04FD9189D}'),
  394.  (name: 'IDXTaskManager'       ; itf: '{254DBBC1-F922-11D0-883A-3C8B00C10000}'),
  395.  (name: 'IDXSurfaceFactory'    ; itf: '{144946F5-C4D4-11D1-81D1-0000F87557DB}'),
  396.  (name: 'IDXSurfaceModifier'   ; itf: '{9EA3B637-C37D-11D1-905E-00C04FD9189D}'),
  397.  (name: 'IDXSurface'           ; itf: '{B39FD73F-E139-11D1-9065-00C04FD9189D}'),
  398.  (name: 'IDXSurfaceInit'       ; itf: '{9EA3B639-C37D-11d1-905E-00C04FD9189D}'),
  399.  (name: 'IDXARGBSurfaceInit'   ; itf: '{9EA3B63A-C37D-11d1-905E-00C04FD9189D}'),
  400.  (name: 'IDXARGBReadPtr'       ; itf: '{EAAAC2D6-C290-11d1-905D-00C04FD9189D}'),
  401.  (name: 'IDXARGBReadWritePtr'  ; itf: '{EAAAC2D7-C290-11d1-905D-00C04FD9189D}'),
  402.  (name: 'IDXDCLock'            ; itf: '{0F619456-CF39-11D1-905E-00C04FD9189D}'),
  403.  (name: 'IDXTScaleOutput'      ; itf: '{B2024B50-EE77-11D1-9066-00C04FD9189D}'),
  404.  (name: 'IDXGradient'          ; itf: '{B2024B51-EE77-11D1-9066-00C04FD9189D}'),
  405.  (name: 'IDXTScale'            ; itf: '{B39FD742-E139-11D1-9065-00C04FD9189D}'),
  406.  (name: 'IDXEffect'            ; itf: '{E31FB81B-1335-11d1-8189-0000F87557DB}'),
  407.  (name: 'IDXLookupTable'       ; itf: '{01BAFC7F-9E63-11D1-9053-00C04FD9189D}'),
  408.  (name: 'IDXRawSurface'        ; itf: '{09756C8A-D96A-11d1-9062-00C04FD9189D}'),
  409.  (name: 'IHTMLDXTransform'     ; itf: '{30E2AB7D-4FDD-4159-B7EA-DC722BF4ADE5}'),
  410.  (name: 'IMpegVideoDecoder'    ; itf: '{EB1BB270-F71F-11CE-8E85-02608C9BABA2}'),
  411.  (name: 'IConfigAsfWriter'     ; itf: '{45086030-F7E4-486A-B504-826BB5792A3B}'),
  412.  (name: 'IAMParse'             ; itf: '{C47A3420-005C-11D2-9038-00A0C9697298}'),
  413.  (name: 'IMediaParamInfo'      ; itf: '{6D6CBB60-A223-44AA-842F-A2F06750BE6D}'),
  414.  (name: 'IMediaParams'         ; itf: '{6D6CBB61-A223-44AA-842F-A2F06750BE6E}'),
  415.  (name: 'IMediaBuffer'         ; itf: '{59EFF8B9-938C-4A26-82F2-95CB84CDC837}'),
  416.  (name: 'IMediaObject'         ; itf: '{D8AD0F58-5494-4102-97C5-EC798E59BCF4}'),
  417.  (name: 'IEnumDMO'             ; itf: '{2C3CD98A-2BFA-4A53-9C27-5249BA64BA0F}'),
  418.  (name: 'IMediaObjectInPlace'  ; itf: '{651B9AD0-0FC7-4AA9-9538-D89931010741}'),
  419.  (name: 'IDMOQualityControl'   ; itf: '{65ABEA96-CF36-453F-AF8A-705E98F16260}'),
  420.  (name: 'IDMOVideoOutputOptimizations'; itf: '{BE8F4F4E-5B16-4D29-B350-7F6B5D9298AC}'),
  421.  (name: 'IDMOWrapperFilter'       ; itf: '{52D6F586-9F0F-4824-8FC8-E32CA04930C2}'),
  422.  (name: 'IKsObject'               ; itf: '{423C13A2-2070-11D0-9EF7-00AA00A216A1}'),
  423.  (name: 'IKsPinEx'                ; itf: '{7BB38260-D19C-11D2-B38A-00A0C95EC22E}'),
  424.  (name: 'IKsPinPipe'              ; itf: '{E539CD90-A8B4-11D1-8189-00A0C9062802}'),
  425.  (name: 'IKsDataTypeCompletion'   ; itf: '{827D1A0E-0F73-11D2-B27A-00A0C9223196}'),
  426.  (name: 'IKsClockPropertySet'     ; itf: '{5C5CBD84-E755-11D0-AC18-00A0C9223196}'),
  427.  (name: 'IKsAllocator'            ; itf: '{8DA64899-C0D9-11D0-8413-0000F822FE8A}'),
  428.  (name: 'IKsAllocatorEx'          ; itf: '{091BB63A-603F-11D1-B067-00A0C9062802}'),
  429.  (name: 'IKsTopology'             ; itf: '{28F54683-06FD-11D2-B27A-00A0C9223196}'),
  430.  (name: 'IKsAggregateControl'     ; itf: '{7F40EAC0-3947-11D2-874E-00A0C9223196}'),
  431.  (name: 'IKsQualityForwarder'     ; itf: '{97EBAACB-95BD-11D0-A3EA-00A0C9223196}'),
  432.  (name: 'IPropertySetter'         ; itf: '{AE9472BD-B0C3-11D2-8D24-00A0C9441E20}'),
  433.  (name: 'IDxtCompositor'          ; itf: '{BB44391E-6ABD-422F-9E2E-385C9DFF51FC}'),
  434.  (name: 'IDxtAlphaSetter'         ; itf: '{4EE9EAD9-DA4D-43D0-9383-06B90C08B12B}'),
  435.  (name: 'IDxtJpeg'                ; itf: '{DE75D011-7A65-11D2-8CEA-00A0C9441E20}'),
  436.  (name: 'IDxtKey'                 ; itf: '{3255DE56-38FB-4901-B980-94B438010D7B}'),
  437.  (name: 'IMediaLocator'           ; itf: '{288581E0-66CE-11D2-918F-00C0DF10D434}'),
  438.  (name: 'IMediaDet'               ; itf: '{65BD0710-24D2-4FF7-9324-ED2E5D3ABAFA}'),
  439.  (name: 'IGrfCache'               ; itf: '{AE9472BE-B0C3-11D2-8D24-00A0C9441E20}'),
  440.  (name: 'IRenderEngine'           ; itf: '{6BEE3A81-66C9-11D2-918F-00C0DF10D434}'),
  441.  (name: 'IFindCompressorCB'       ; itf: '{F03FA8DE-879A-4D59-9B2C-26BB1CF83461}'),
  442.  (name: 'ISmartRenderEngine'      ; itf: '{F03FA8CE-879A-4D59-9B2C-26BB1CF83461}'),
  443.  (name: 'IAMTimelineObj'          ; itf: '{78530B77-61F9-11D2-8CAD-00A024580902}'),
  444.  (name: 'IAMTimelineEffectable'   ; itf: '{EAE58537-622E-11D2-8CAD-00A024580902}'),
  445.  (name: 'IAMTimelineEffect'       ; itf: '{BCE0C264-622D-11D2-8CAD-00A024580902}'),
  446.  (name: 'IAMTimelineTransable'    ; itf: '{378FA386-622E-11D2-8CAD-00A024580902}'),
  447.  (name: 'IAMTimelineSplittable'   ; itf: '{A0F840A0-D590-11D2-8D55-00A0C9441E20}'),
  448.  (name: 'IAMTimelineTrans'        ; itf: '{BCE0C265-622D-11D2-8CAD-00A024580902}'),
  449.  (name: 'IAMTimelineSrc'          ; itf: '{78530B79-61F9-11D2-8CAD-00A024580902}'),
  450.  (name: 'IAMTimelineTrack'        ; itf: '{EAE58538-622E-11D2-8CAD-00A024580902}'),
  451.  (name: 'IAMTimelineVirtualTrack' ; itf: '{A8ED5F80-C2C7-11D2-8D39-00A0C9441E20}'),
  452.  (name: 'IAMTimelineComp'         ; itf: '{EAE58536-622E-11D2-8CAD-00A024580902}'),
  453.  (name: 'IAMTimelineGroup'        ; itf: '{9EED4F00-B8A6-11D2-8023-00C0DF10D434}'),
  454.  (name: 'IAMTimeline'             ; itf: '{78530B74-61F9-11D2-8CAD-00A024580902}'),
  455.  (name: 'IXml2Dex'                ; itf: '{18C628ED-962A-11D2-8D08-00A0C9441E20}'),
  456.  (name: 'IAMErrorLog'             ; itf: '{E43E73A2-0EFA-11D3-9601-00A0C9441E20}'),
  457.  (name: 'IAMSetErrorLog'          ; itf: '{963566DA-BE21-4EAF-88E9-35704F8F52A1}'),
  458.  (name: 'ISampleGrabberCB'        ; itf: '{0579154A-2B53-4994-B0D0-E773148EFF85}'),
  459.  (name: 'ISampleGrabber'          ; itf: '{6B652FFF-11FE-4FCE-92AD-0266B5D7C78F}'),
  460.  (name: 'IBDA_NetworkProvider'    ; itf: '{fd501041-8ebe-11ce-8183-00aa00577da2}'),
  461.  (name: 'IBDA_EthernetFilter'     ; itf: '{71985F43-1CA1-11d3-9CC8-00C04F7971E0}'),
  462.  (name: 'IBDA_IPV4Filter'         ; itf: '{71985F44-1CA1-11d3-9CC8-00C04F7971E0}'),
  463.  (name: 'IBDA_IPV6Filter'         ; itf: '{E1785A74-2A23-4fb3-9245-A8F88017EF33}'),
  464.  (name: 'IBDA_DeviceControl'      ; itf: '{FD0A5AF3-B41D-11d2-9C95-00C04F7971E0}'),
  465.  (name: 'IBDA_PinControl'         ; itf: '{0DED49D5-A8B7-4d5d-97A1-12B0C195874D}'),
  466.  (name: 'IBDA_SignalProperties'   ; itf: '{D2F1644B-B409-11d2-BC69-00A0C9EE9E16}'),
  467.  (name: 'IBDA_SignalStatistics'   ; itf: '{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}'),
  468.  (name: 'IBDA_Topology'           ; itf: '{79B56888-7FEA-4690-B45D-38FD3C7849BE}'),
  469.  (name: 'IBDA_VoidTransform'      ; itf: '{71985F46-1CA1-11d3-9CC8-00C04F7971E0}'),
  470.  (name: 'IBDA_NullTransform'      ; itf: '{DDF15B0D-BD25-11d2-9CA0-00C04F7971E0}'),
  471.  (name: 'IBDA_FrequencyFilter'    ; itf: '{71985F47-1CA1-11d3-9CC8-00C04F7971E0}'),
  472.  (name: 'IBDA_LNBInfo'            ; itf: '{992CF102-49F9-4719-A664-C4F23E2408F4}'),
  473.  (name: 'IBDA_AutoDemodulate'     ; itf: '{DDF15B12-BD25-11d2-9CA0-00C04F7971E0}'),
  474.  (name: 'IBDA_DigitalDemodulator' ; itf: '{EF30F379-985B-4d10-B640-A79D5E04E1E0}'),
  475.  (name: 'IBDA_IPSinkControl'      ; itf: '{3F4DC8E2-4050-11d3-8F4B-00C04F7971E2}'),
  476.  (name: 'IBDA_IPSinkInfo'         ; itf: '{A750108F-492E-4d51-95F7-649B23FF7AD7}'),
  477.  (name: 'IEnumPIDMap'             ; itf: '{afb6c2a2-2c41-11d3-8a60-0000f81e0e4a}'),
  478.  (name: 'IMPEG2PIDMap'            ; itf: '{afb6c2a1-2c41-11d3-8a60-0000f81e0e4a}'),
  479.  (name: 'IMPEG2_TIF_CONTROL'       ; itf: '{F9BAC2F9-4149-4916-B2EF-FAA202326862}'),
  480.  (name: 'ITuneRequestInfo'         ; itf: '{A3B152DF-7A90-4218-AC54-9830BEE8C0B6}'),
  481.  (name: 'IGuideDataEvent'          ; itf: '{EFDA0C80-F395-42c3-9B3C-56B37DEC7BB7}'),
  482.  (name: 'IGuideDataProperty'       ; itf: '{88EC5E58-BB73-41d6-99CE-66C524B8B591}'),
  483.  (name: 'IEnumGuideDataProperties' ; itf: '{AE44423B-4571-475c-AD2C-F40A771D80EF}'),
  484.  (name: 'IEnumTuneRequests'        ; itf: '{1993299C-CED6-4788-87A3-420067DCE0C7}'),
  485.  (name: 'IGuideData'               ; itf: '{61571138-5B01-43cd-AEAF-60B784A0BF93}'),
  486.  (name: 'IGuideDataLoader'         ; itf: '{4764ff7c-fa95-4525-af4d-d32236db9e38}'),
  487.  (name: 'IVPEConfig' ; itf: '{BC29A660-30E3-11d0-9E69-00C04FD7C15B}'),
  488.  (name: 'IVPE'       ; itf: '{BC29A661-30E3-11d0-9E69-00C04FD7C15B}'),
  489.  (name: 'IDivXFilterInterface' ; itf: '{D132EE97-3E38-4030-8B17-59163B30A1F5}'),
  491.  (name: 'IVMRAspectRatioControl9'     ; itf: '{00d96c29-bbde-4efc-9901-bb5036392146}'),
  492.  (name: 'IVMRDeinterlaceControl9'     ; itf: '{a215fb8d-13c2-4f7f-993c-003d6271a459}'),
  493.  (name: 'IVMRFilterConfig9'           ; itf: '{5a804648-4f66-4867-9c43-4f5c822cf1b8}'),
  494.  (name: 'IVMRImageCompositor9'        ; itf: '{4a5c89eb-df51-4654-ac2a-e48e02bbabf6}'),
  495.  (name: 'IVMRImagePresenter9'         ; itf: '{69188c61-12a3-40f0-8ffc-342e7b433fd7}'),
  496.  (name: 'IVMRImagePresenterConfig9'   ; itf: '{45c15cab-6e22-420a-8043-ae1f0ac02c7d}'),
  497.  (name: 'IVMRMixerBitmap9'            ; itf: '{ced175e5-1935-4820-81bd-ff6ad00c9108}'),
  498.  (name: 'IVMRMixerControl9'           ; itf: '{1a777eaa-47c8-4930-b2c9-8fee1c1b0f3b}'),
  499.  (name: 'IVMRMonitorConfig9'          ; itf: '{46c2e457-8ba0-4eef-b80b-0680f0978749}'),
  500.  (name: 'IVMRSurface9'                ; itf: '{dfc581a1-6e1f-4c3a-8d0a-5e9792ea2afc}'),
  501.  (name: 'IVMRSurfaceAllocator9'       ; itf: '{8d5148ea-3f5d-46cf-9df1-d1b896eedb1f}'),
  502.  (name: 'IVMRSurfaceAllocatorNotify9' ; itf: '{dca3f5df-bb3a-4d03-bd81-84614bfbfa0c}'),
  503.  (name: 'IVMRWindowlessControl9'      ; itf: '{8f537d09-f85e-4414-b23b-502e54c79927}'),
  504.  (name: 'IVMRVideoStreamControl9'     ; itf: '{d0cfe38b-93e7-4772-8957-0400c49a4485}'),
  506.  (name: 'IEnumStreamBufferRecordingAttrib' ; itf: '{C18A9162-1E82-4142-8C73-5690FA62FE33}'),
  507.  (name: 'IStreamBufferConfigure'           ; itf: '{ce14dfae-4098-4af7-bbf7-d6511f835414}'),
  508.  (name: 'IStreamBufferInitialize'          ; itf: '{9ce50f2d-6ba7-40fb-a034-50b1a674ec78}'),
  509.  (name: 'IStreamBufferMediaSeeking'        ; itf: '{f61f5c26-863d-4afa-b0ba-2f81dc978596}'),
  510.  (name: 'IStreamBufferRecComp'             ; itf: '{9E259A9B-8815-42ae-B09F-221970B154FD}'),
  511.  (name: 'IStreamBufferRecordControl'       ; itf: '{ba9b6c99-f3c7-4ff2-92db-cfdd4851bf31}'),
  512.  (name: 'IStreamBufferRecordingAttribute'  ; itf: '{16CA4E03-FE69-4705-BD41-5B7DFC0C95F3}'),
  513.  (name: 'IStreamBufferSink'                ; itf: '{afd1f242-7efd-45ee-ba4e-407a25c9a77a}'),
  514.  (name: 'IStreamBufferSource'              ; itf: '{1c5bd776-6ced-4f44-8164-5eab0e98db12}'),
  516.  // ole
  517.  (name: 'IPersist'              ; itf: '{0000010C-0000-0000-C000-000000000046}'),
  518.  (name: 'IPersistStream'        ; itf: '{00000109-0000-0000-C000-000000000046}'),
  519.  (name: 'IPersistFile'          ; itf: '{0000010B-0000-0000-C000-000000000046}'),
  520.  (name: 'IPersistPropertyBag'   ; itf: '{37D84F60-42CB-11CE-8135-00AA004BB851}'),
  521.  (name: 'IPersistStorage'       ; itf: '{0000010A-0000-0000-C000-000000000046}'),
  522.  (name: 'IMoniker'              ; itf: '{0000000F-0000-0000-C000-000000000046}'),
  523.  (name: 'IStream'               ; itf: '{0000000C-0000-0000-C000-000000000046}'),
  524.  (name: 'IBindCtx'              ; itf: '{0000000E-0000-0000-C000-000000000046}'),
  525.  (name: 'IRunningObjectTable'   ; itf: '{00000010-0000-0000-C000-000000000046}'),
  526.  (name: 'IPropertyBag'          ; itf: '{55272A00-42CB-11CE-8135-00AA004BB851}'),
  527.  (name: 'IPropertyPage'         ; itf: '{B196B28D-BAB4-101A-B69C-00AA00341D07}'),
  528.  (name: 'IPropertyPage2'        ; itf: '{01E44665-24AC-101B-84ED-08002B2EC713}'),
  529.  (name: 'IPropertyStorage'      ; itf: '{00000138-0000-0000-C000-000000000046}'),
  530.  (name: 'IServiceProvider'      ; itf: '{6d5140c1-7436-11ce-8034-00aa006009fa}'),
  531.  (name: 'ISpecifyPropertyPages' ; itf: '{B196B28B-BAB4-101A-B69C-00AA00341D07}'),
  532.  (name: 'IErrorLog'             ; itf: '{3127CA40-446E-11CE-8135-00AA004BB851}'),
  533.  (name: 'IErrorInfo'            ; itf: '{1CF2B120-547D-101B-8E65-08002B2BD119}'),
  534.  (name: 'IStorage'              ; itf: '{0000000B-0000-0000-C000-000000000046}'));
  537. var
  538.   FormBaseFilter: TFormBaseFilter;
  541. implementation
  542. uses Activex, ComObj;
  544. {$R *.dfm}
  545. {$R BaseFilterEditor.res}
  547.   constructor TFormBaseFilter.Create(AOwner: TComponent);
  548.   begin
  549.     inherited Create(AOwner);
  550.     SysDevEnum := TSysDevEnum.Create;
  551.     PinList:= TPinList.Create;
  552.     InPinPic := TBitmap.Create;
  553.     OutPinPic := TBitmap.Create;
  554.     InPinPic.LoadFromResourceName(hinstance, 'INPUT');
  555.     OutPinPic.LoadFromResourceName(hinstance, 'OUTPUT');
  556.     InfoBtn.Glyph.LoadFromResourceName(hinstance, 'INFO');
  557.     Image1.Picture.Bitmap.LoadFromResourceName(hinstance, 'GREEN_MARK');
  558.     Image2.Picture.Bitmap.LoadFromResourceName(hinstance, 'RED_MARK');
  559.     Image3.Picture.Bitmap.LoadFromResourceName(hinstance, 'BLUE_MARK');
  560.     Image4.Picture.Bitmap.LoadFromResourceName(hinstance, 'PURPLE_MARK');
  561.     Image5.Picture.Bitmap.LoadFromResourceName(hinstance, 'BLACK_MARK');
  562.     Image6.Picture.Bitmap.LoadFromResourceName(hinstance, 'INPUT');
  563.     Image7.Picture.Bitmap.LoadFromResourceName(hinstance, 'OUTPUT');
  564.   end;
  566.   destructor  TFormBaseFilter.Destroy;
  567.   begin
  568.     SysDevEnum.Free;
  569.     PinList.Free;
  570.     InPinPic.Free;
  571.     OutPinPic.Free;
  572.     inherited destroy;
  573.   end;
  575. procedure TFormBaseFilter.FormShow(Sender: TObject);
  576. var
  577.   i, j: integer;
  578.   a, b : integer;
  579.   AMoniker, MyMoniker: IMoniker;
  580.   PropBag: IPropertyBag;
  581.   AVariant: OleVariant;
  582.   CLSID: TGUID;
  583.   Found: boolean;
  584.   NodeItem : pNodeItem;
  585.   TmpItem : TTreeNode;
  586. begin
  587.   PageControl1.ActivePageIndex := 0;
  588.   RefreshTree;
  589.   Found := False;
  590.   j := 0;
  591.   MyMoniker := Filter.BaseFilter.Moniker;
  592.   if MyMoniker = nil then exit;
  593.   MyMoniker.BindToStorage(nil,nil,IPropertyBag, PropBag);
  594.   if PropBag.Read('CLSID',AVariant,nil) = S_OK then
  595.        CLSID := StringToGUID(AVariant)
  596.   else CLSID := GUID_NULL;
  597.   for i := 0 to SysDevEnum.CountCategories - 1 do
  598.   begin
  599.     SysDevEnum.SelectIndexCategory(i);
  600.     if SysDevEnum.CountFilters > 0 then
  601.       for j := 0 to SysDevEnum.CountFilters - 1 do
  602.       begin
  603.         if IsEqualGUID(CLSID, SysDevEnum.Filters[j].CLSID) then
  604.           begin
  605.             AMoniker := SysDevEnum.GetMoniker(j);
  606.             Found := AMoniker.IsEqual(MyMoniker) = S_OK;
  607.             AMoniker := nil;
  608.           end;
  609.         if Found then Break;
  610.       end;
  611.     Filters.SetFocus;
  612.     if Found then
  613.     begin
  614.       for a := 0 to Filters.Items.Count -1 do
  615.       begin
  616.         NodeItem := pNodeItem(Filters.Items[a].Data);
  617.         if (Filters.Items[a].Level = 0) and (NodeItem^.Index = I) then
  618.         begin
  619.           TmpItem := Filters.Items[a];
  620.           for b := 0 to TmpItem.Count -1 do
  621.           begin
  622.             NodeItem := pNodeItem(TmpItem.Item[b].data);
  623.             If NodeItem^.Index = J then
  624.             begin
  625.               Filters.Selected := TmpItem.Item[b];
  626.               Filterschange(Self, TmpItem.Item[b]);
  627.             end;
  628.           end;
  629.         end;
  630.       end;
  631.       break;
  632.     end;
  633.   end;
  634.   PropBag := nil;
  635.   MyMoniker := nil;
  636. end;
  638. procedure TFormBaseFilter.GetFilterInfo;
  639. var
  640.   i: integer;
  641.   unk: IUnknown;
  642.   PinInfo: TPinInfo;
  643.   BaseF: IBaseFilter;
  644. begin
  645.   BaseF := nil;
  646.   try
  647.     if Filter.BaseFilter.CreateFilter <> nil then
  648.     begin
  649.       for i := 0 to length(DSItfs)-1 do
  650.       begin
  651.         unk := nil;
  652.         if Succeeded(IFilter(Filter).QueryInterface(DSItfs[i].itf, unk)) then
  653.           Interfaces.Items.Add(DSItfs[i].name);
  654.       end;
  656.       if Succeeded(Filter.QueryInterface(IBaseFilter, BaseF)) then
  657.       begin
  658.         PinList.Assign(BaseF);
  659.         if PinList.Count > 0 then
  660.           for i := 0 to PinList.Count - 1 do
  661.           begin
  662.             PinInfo := PinList.PinInfo[i];
  663.             case PinInfo.dir of
  664.               PINDIR_INPUT  : Pins.Items.AddObject(format('%s',[PinInfo.achName]), InPinPic);
  665.               PINDIR_OUTPUT : Pins.Items.AddObject(format('%s',[PinInfo.achName]), OutPinPic);
  666.             end;
  667.             PinInfo.pFilter := nil;
  668.           end;
  669.       End;
  670.     end;
  671.   finally
  672.     unk := nil;
  673.     BaseF := nil;
  674.   end
  675. end;
  677. procedure TFormBaseFilter.RefreshTree;
  678. var
  679.   i, j : Integer;
  680.   TmpNode : TTreeNode;
  681.   NodeItem : pNodeItem;
  682.   MonikerStr : PWideChar;
  683.   Tmp : WideString;
  684. begin
  685.   Filters.Items.BeginUpdate;
  686.   Filters.Items.Clear;
  687.   for i := 0 to SysDevEnum.CountCategories - 1 do
  688.   begin
  689.     New(NodeItem);
  690.     NodeItem^.Index := i;
  691.     TmpNode := Filters.Items.AddChildObject(nil, SysDevEnum.Categories[i].FriendlyName, NodeItem);
  692.     SysDevEnum.SelectIndexCategory(i);
  693.     if SysDevEnum.CountFilters > 0 then
  694.       for j := 0 to SysDevEnum.CountFilters - 1 do
  695.       begin
  696.         SysDevEnum.GetMoniker(j).GetDisplayName(nil, nil, MonikerStr);
  697.         New(NodeItem);
  698.         NodeItem^.Index := j;
  699.         NodeItem^.Color := FilterColors[0];
  700.         Tmp := MonikerStr;
  701.         Tmp := Copy(Tmp, Pos(':', Tmp)+1, 255);
  702.         Tmp := uppercase(Copy(Tmp, 1, pos(':', Tmp) -1));
  703.         If Tmp = 'PNP' then NodeItem^.Color := FilterColors[1];
  704.         If Tmp = 'CM' then NodeItem^.Color := FilterColors[2];
  705.         If Tmp = 'KS' then NodeItem^.Color := FilterColors[3];
  706.         If Tmp = 'DMO' then NodeItem^.Color := FilterColors[4];
  707.         Filters.Items.AddChildObject(TmpNode, SysDevEnum.Filters[j].FriendlyName, NodeItem);
  708.       end;
  709.   end;
  710.   {$IFDEF VER130}
  711.   Filters.AlphaSort;
  712.   {$ELSE}
  713.   Filters.AlphaSort(True);
  714.   {$ENDIF}
  715.   Filters.Items.EndUpdate;
  716. end;
  718. procedure TFormBaseFilter.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  719. begin
  720.   PinList.Clear;
  721.   FilterGraph.ClearGraph;
  722.   FilterGraph.Active := false;
  723. end;
  725. procedure TFormBaseFilter.PopupMenuPopup(Sender: TObject);
  726. var
  727.   AFilter: IBaseFilter;
  728. begin
  729.   PopupMenu.Items.Items[0].Enabled := false;
  730.   PopupMenu.Items.Items[1].Items[0].Enabled := false;
  731.   PopupMenu.Items.Items[1].Items[1].Enabled := false;
  732.   PopupMenu.Items.Items[1].Items[2].Enabled := false;
  733.   PopupMenu.Items.Items[2].Items[0].Enabled := false;
  734.   PopupMenu.Items.Items[2].Items[1].Enabled := false;
  735.   If (Filters.Selected = Nil) or (Filters.Selected.Level = 0) then Abort;
  737.   Filter.QueryInterface(IBaseFilter, AFilter);
  738.   if HaveFilterPropertyPage(AFilter, ppDefault)       then PopupMenu.Items.Items[0].Enabled := true;
  739.   if HaveFilterPropertyPage(AFilter, ppVFWCapFormat)  then PopupMenu.Items.Items[1].Items[0].Enabled := true;
  740.   if HaveFilterPropertyPage(AFilter, ppVFWCapSource)  then PopupMenu.Items.Items[1].Items[1].Enabled := true;
  741.   if HaveFilterPropertyPage(AFilter, ppVFWCapDisplay) then PopupMenu.Items.Items[1].Items[2].Enabled := true;
  742.   if HaveFilterPropertyPage(AFilter, ppVFWCompConfig) then PopupMenu.Items.Items[2].Items[0].Enabled := true;
  743.   if HaveFilterPropertyPage(AFilter, ppVFWCompAbout)  then PopupMenu.Items.Items[2].Items[1].Enabled := true;
  744.   AFilter := nil;
  745. end;
  747. procedure TFormBaseFilter.PropertyPageClick(Sender: TObject);
  748. var AFilter: IBaseFilter;
  749. begin
  750.   Filter.QueryInterface(IBaseFilter, AFilter);
  751.   ShowFilterPropertyPage(Self.Handle, AFilter, ppDefault);
  752.   AFilter := nil;
  753. end;
  755. procedure TFormBaseFilter.PinMenuPopup(Sender: TObject);
  756. begin
  757.   If PageControl1.ActivePageIndex = 0 then
  758.   Begin
  759.     if Pins.ItemIndex = -1 then abort;
  760.   End
  761.   else
  762.     if Pins1.ItemIndex = -1 then abort;
  763. end;
  765. procedure TFormBaseFilter.PinPropertyClick(Sender: TObject);
  766. begin
  767.   If PageControl1.ActivePageIndex = 0 then
  768.     ShowPinPropertyPage(Self.Handle, PinList.Items[Pins.ItemIndex])
  769.   else
  770.     ShowPinPropertyPage(Self.Handle, PinList.Items[Pins1.ItemIndex]);
  771. end;
  773. procedure TFormBaseFilter.PinsSheetShow(Sender: TObject);
  774. begin
  775.   Pins1.Items := Pins.Items;
  776. end;
  778. procedure TFormBaseFilter.Pins1Click(Sender: TObject);
  779. var
  780.   i: integer;
  781.   unk: IUnknown;
  782.   EnumMT : TEnumMediaType;
  783. begin
  784.   PinInterfaces.Clear;
  785.   if Pins1.ItemIndex <> -1 then
  786.   try
  787.     with PinList.Items[Pins1.ItemIndex] do
  788.       for i := 0 to length(DSItfs)-1 do
  789.         if Succeeded(QueryInterface(DSItfs[i].itf, unk)) then
  790.           PinInterfaces.Items.Add(DSItfs[i].name);
  791.   finally
  792.     unk := nil;
  793.   end;
  795.   MediaTypes.Clear;
  796.   if Pins1.ItemIndex <> -1 then
  797.   begin
  798.     EnumMT:= TEnumMediaType.Create(PinList.Items[Pins1.ItemIndex]);
  799.     try
  800.       if EnumMT.Count > 0 then
  801.         for i := 0 to EnumMT.Count - 1 do
  802.           MediaTypes.Items.Add(EnumMt.MediaDescription[i]);
  803.     finally
  804.       EnumMT.Free;
  805.     end;
  806.   end;
  807. end;
  809. procedure TFormBaseFilter.VFWFormatClick(Sender: TObject);
  810. var AFilter: IBaseFilter;
  811. begin
  812.   Filter.QueryInterface(IBaseFilter, AFilter);
  813.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCapFormat);
  814.   AFilter := nil;
  815. end;
  817. procedure TFormBaseFilter.VFWSourceClick(Sender: TObject);
  818. var AFilter: IBaseFilter;
  819. begin
  820.   Filter.QueryInterface(IBaseFilter, AFilter);
  821.   ShowFilterPropertyPage(Self.Handle, AFilter , ppVFWCapSource);
  822.   AFilter := nil;
  823. end;
  825. procedure TFormBaseFilter.VFWDisplayClick(Sender: TObject);
  826. var AFilter: IBaseFilter;
  827. begin
  828.   Filter.QueryInterface(IBaseFilter, AFilter);
  829.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCapDisplay);
  830.   AFilter := nil;
  831. end;
  833. procedure TFormBaseFilter.Config1Click(Sender: TObject);
  834. var AFilter: IBaseFilter;
  835. begin
  836.   Filter.QueryInterface(IBaseFilter, AFilter);
  837.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCompConfig);
  838.   AFilter := nil;
  839. end;
  841. procedure TFormBaseFilter.VFWAboutClick(Sender: TObject);
  842. var AFilter: IBaseFilter;
  843. begin
  844.   Filter.QueryInterface(IBaseFilter, AFilter);
  845.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCompAbout);
  846.   AFilter := nil;
  847. end;
  849. procedure TFormBaseFilter.InterfacesDblClick(Sender: TObject);
  850. var
  851.   AFilter: IBaseFilter;
  852. begin
  853.   Filter.QueryInterface(IBaseFilter, AFilter);
  854.   if Interfaces.ItemIndex <> -1 then
  855.   if Interfaces.Items.Strings[Interfaces.ItemIndex] = 'ISpecifyPropertyPages' then
  856.     ShowFilterPropertyPage(Self.Handle, AFilter);
  857.   AFilter := nil;
  858. end;
  860. procedure TFormBaseFilter.PinInterfacesDblClick(Sender: TObject);
  861. begin
  862.   if PinInterfaces.ItemIndex <> -1 then
  863.   if PinInterfaces.Items.Strings[PinInterfaces.ItemIndex] = 'ISpecifyPropertyPages' then
  864.     ShowPinPropertyPage(Self.Handle, PinList.Items[Pins1.ItemIndex]);
  865. end;
  867. procedure TFormBaseFilter.PinsDrawItem(Control: TWinControl;
  868.   Index: Integer; Rect: TRect; State: TOwnerDrawState);
  869. var
  870. Bitmap: TBitmap;      { temporary variable for the item抯 bitmap }
  871. Offset: Integer;      { text offset width }
  872. begin
  873.   with (Control as TListBox).Canvas do  { draw on control canvas, not on the form }
  874.   begin
  875.     Brush.Color := (Control as TListBox).Color;
  876.     Brush.Style := bsSolid;
  877.     FillRect(Rect);       { clear the rectangle }
  878.     Offset := 2;          { provide default offset }
  879.     Bitmap := TBitmap((Control as TListBox).Items.Objects[Index]);  { get the bitmap }
  880.     if Bitmap <> nil then
  881.     begin
  882.       BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
  883.                 Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clOlive);  {render bitmap}
  884.       Offset := Bitmap.width + 6;    { add four pixels between bitmap and text}
  885.     end;
  886.     If odSelected in State then
  887.       Brush.Color := clHighLight;
  888.     TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index]);  { display the text }
  889.     If odFocused in state then
  890.     Begin
  891.       Drawfocusrect(Rect);
  892.       Drawfocusrect(Bounds(Rect.Left + Offset, Rect.Top, TextWidth((Control as TListBox).Items[Index])+1, Rect.Bottom - Rect.Top));
  893.     End;
  894.   end;
  895. end;
  897. procedure TFormBaseFilter.FiltersChange(Sender: TObject;
  898.   Node: TTreeNode);
  899. var
  900.   NodeItem : pNodeItem;
  901.   Tmp : pWidechar;
  902. begin
  903.   if Node = nil then Exit;
  904.   Interfaces.Items.BeginUpdate;
  905.   Interfaces.Items.Clear;
  906.   Pins.Items.BeginUpdate;
  907.   Pins.Items.Clear;
  908.   MonikerTag.Clear;
  909.   Try
  910.     if Node.Level = 1 then
  911.     begin
  912.       NodeItem := pNodeItem(Node.Parent.Data);
  913.       If NodeItem = nil then exit;
  914.       SysDevEnum.SelectIndexCategory(NodeItem^.Index);
  915.       NodeItem := pNodeItem(Node.Data);
  916.       SysDevEnum.GetMoniker(NodeItem^.Index).GetDisplayName(nil, nil, Tmp);
  917.       MonikerTag.Text := Tmp;
  918.       Filter.BaseFilter.Moniker := SysDevEnum.GetMoniker(NodeItem^.Index);
  919.       IFilter(Filter).NotifyFilter(foRefresh);
  920.       GetFilterInfo;
  921.     end;
  922.   finally
  923.     Interfaces.Items.EndUpdate;
  924.     Pins.Items.EndUpdate;
  925.   end;
  926. end;
  928. procedure TFormBaseFilter.PinsMeasureItem(Control: TWinControl;
  929.   Index: Integer; var Height: Integer);
  930. begin
  931.   (Control as TListBox).Canvas.Font := (Control as TListBox).Font;
  932.   If Height < (Control as TListBox).Canvas.TextHeight((Control as TListBox).Items[Index]) then
  933.     Height := (Control as TListBox).Canvas.TextHeight((Control as TListBox).Items[Index]);
  934. end;
  936. procedure TFormBaseFilter.FiltersDblClick(Sender: TObject);
  937. begin
  938.   If Filters.Selected = nil then Exit;
  939.   If Filters.Selected.Level = 1 then btok.Click;
  940. end;
  942. procedure TFormBaseFilter.FiltersCustomDrawItem(Sender: TCustomTreeView;
  943.   Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  944. var
  945.   NodeItem : pNodeItem;
  946. begin
  947.   Filters.Canvas.Font.Color := FilterColors[0];
  948.   if Node = nil then Exit;
  949.   if Node.Level < 1 then exit;
  950.   NodeItem := pNodeItem(Node.Data);
  951.   Filters.Canvas.Font.Color := NodeItem^.Color;
  952. end;
  954. procedure TFormBaseFilter.InfoBtnClick(Sender: TObject);
  955. begin
  956.   PageControl1.ActivePageIndex := 2;
  957. end;
  959. end.