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

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

Delphi控件源码

开发平台：

Delphi

MMTools.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49 (0)351-8037944              =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 09.08.98 - 16:34:41 $                                        =}
  24. {========================================================================}
  25. unit MMTools;
  27. {$I COMPILER.INC}
  29. {$DEFINE FULL_INSTALL}
  31. {$IFDEF FULL_INSTALL}
  32.        {$DEFINE _WAVE}
  33.        {$DEFINE _VISUAL}
  34.   {$IFDEF WIN32}
  35.        {$DEFINE _DESIGN}
  36.        {.$DEFINE _WMA}
  37.        {.$DEFINE _MPEG}
  38.        {.$DEFINE _CDROM}
  39.        {$DEFINE _MIXER}
  40.        {.$DEFINE _HDREC}
  41.        {$DEFINE _FILTER}
  42.        {$DEFINE _EFFECTS}
  43.     {$IFNDEF CBUILDER}
  44.        {$DEFINE _DSOUND}
  45.        {.$DEFINE _AVI}
  46.     {$ENDIF}
  47.        {.$DEFINE _DIRECTX}
  48.        {.$DEFINE _PCX}
  49.   {$ENDIF}
  50. {$ENDIF}
  52. {$IFDEF BUILD_ACTIVEX}
  53.   {$UNDEF _DESIGN}
  54.   {$UNDEF _MIXER}
  55.   {$UNDEF _HDREC}
  56.   {$UNDEF _AVI}
  57.   {$UNDEF _DIRECTX}
  58. {$ENDIF}
  60. interface
  62. procedure Register;
  64. implementation
  66. {$IFDEF WIN32}
  67.    {$R MMTOOLS.D32}
  68. {$ELSE}
  69.    {$R MMTOOLS.D16}
  70. {$ENDIF}
  72. uses
  73.     Controls,
  74.     Classes,
  76.     {$IFDEF DELPHI6}
  77.     DesignIntf,
  78.     DesignEditors,
  79.     {$ELSE}
  80.     DsgnIntf,
  81.     {$ENDIF}
  83.     {$IFNDEF DELPHI3}
  84.     FiltEdit,
  85.     {$ENDIF}
  87.     SysUtils,
  88.     MPlayer,
  89.     MMAbout,
  90.     MMObj,
  91.     MMUtils,
  92.     MMDesign,
  93.     MMIde,
  94.     MMPropEd,
  95.     MMPanel,
  96.     MMLabel,
  97.     MMScroll,
  98.     MMClrBtn,
  99.     MMButton,
  100.     MMLEDs,
  101.     MMLEDLbl,
  102.     MMSpin,
  103.     MMSwitch,
  104.     MMScrlr,
  105.     MMCDInfo,
  106.     MMHTimer,
  107.     MMLTimer,
  108.     MMSplit,
  109.     MMWheel,
  110.     MMEdit,
  111.     MMSlider,
  112.     MMGauge,
  113.     MMEGauge,
  114.     MMProgr
  116.     {$IFDEF WIN32}
  117.     ,MMProps,
  118.     MMScrSv,
  119.     MMMemMap,
  120.     MMFFile,
  121.     MMFFEdit,
  122.     MMFFPrp,
  123.     MMThread
  124.     {$ENDIF}
  126.     {$IFDEF _DESIGN}
  127.     ,MMDesReg
  128.     {$ENDIF}
  130.     {$IFDEF _WAVE}
  131.     ,MMWavReg
  132.     {$ENDIF}
  134.     {$IFDEF _VISUAL}
  135.     ,MMVisReg
  136.     {$ENDIF}
  138.     {$IFDEF _WMA}
  139.     ,MMWMAReg
  140.     {$ENDIF}
  142.     {$IFDEF _MPEG}
  143.     ,MMMpReg
  144.     {$ENDIF}
  146.     {$IFDEF _CDROM}
  147.     ,MMCDReg
  148.     {$ENDIF}
  150.     {$IFDEF _MIXER}
  151.     ,MMMixReg
  152.     {$ENDIF}
  154.     {$IFDEF _HDREC}
  155.     ,MMHdReg
  156.     {$ENDIF}
  158.     {$IFDEF _FILTER}
  159.     ,MMFltReg
  160.     {$ENDIF}
  162.     {$IFDEF _EFFECTS}
  163.     ,MMFXReg
  164.     {$ENDIF}
  166.     {$IFDEF _DSOUND}
  167.     ,MMDsReg
  168.     {$ENDIF}
  170.     {$IFDEF _AVI}
  171.     ,MMAVIReg
  172.     {$ENDIF}
  174.     {$IFDEF _DIRECTX}
  175.     ,MMDXReg
  176.     {$ENDIF}
  178.     {$IFDEF _PCX}
  179.     ,MMPCXReg
  180.     {$ENDIF}
  181.     ;
  183. {=========================================================================}
  184. procedure Register;
  185. begin
  186.      RegisterComponents('MMTools', [TMMDesigner,
  187.                                   {$IFDEF WIN32}
  188.                                     TMMProperties,
  189.                                     TMMJoystickProperties,
  190.                                     TMMThread,
  191.                                     TMMMemMapFile,
  192.                                     TMMFastFile,
  193.                                     TMMFastFileDialog,
  194.                                     TMMScreenSaver,
  195.                                   {$ENDIF}
  196.                                     TMMScroller,
  197.                                     TMMHiTimer,
  198.                                     TMMLongTimer,
  199.                                     TMMCDInfo,
  200.                                     TMMScrollPanel,
  201.                                     TMMMarkerPanel,
  202.                                     TMMLED,
  203.                                     TMMLEDMode,
  204.                                     TMMLEDDigit,
  205.                                     TMMLEDPanel,
  206.                                     TMMLEDLabel,
  207.                                     TMMColorButton,
  208.                                     TMMSpeedButton,
  209.                                     TMMSpinButton,
  210.                                     TMMLEDSpin,
  211.                                     TMMSwitch,
  212.                                     TMMWheel,
  213.                                     TMMSlider,
  214.                                     TMMGauge,
  215.                                     TMMProgress,
  216.                                     TMMLEDGauge,
  217.                                     TMMNumberEdit,
  218.                                     TMMFloatNumberEdit,
  219.                                     TMMLabel,
  220.                                     TMMSplitter,
  221.                                     TMMBorder,
  222.                                     TMMPanel]);
  224.      {$IFDEF TRIAL}
  225.      RegisterPropertyEditor(TypeInfo(TMMAboutBox),nil,'',TMMAboutBoxEditor);
  226.      {$ENDIF}
  228.      RegisterPropertyEditor(TypeInfo(TComponent),TMMLEDDigit,'Connect',TMMLEDDigitConnectEditor);
  230.      {$IFDEF WIN32}
  231.      RegisterPropertyEditor(TypeInfo(TFileName),TMMMemMapFile,'FileName',TMMMemMapFileNameProperty );
  232.      RegisterPropertyEditor(TypeInfo(TFileName),TMMFastFile,'FileName',TMMFastFileNameProperty );
  233.      {$ENDIF}
  235.      RegisterPropertyEditor(TypeInfo(TWinControl),TMMSplitter,'SizeControl',TMMSplitterSizeControlEditor);
  237.      RegisterComponentEditor(TMMDesigner, TMMDesignerEditor);
  239.      {$IFDEF WIN32}
  240.      RegisterComponentEditor(TMMFastFile, TMMFastFileEditor);
  241.      RegisterComponentEditor(TMMPropertiesDialog, TMMPropertiesEditor);
  242.      {$ENDIF}
  244.      RegisterPropertyEditor(TypeInfo(TMMDeviceId),nil,'',TMMDeviceIdProperty);
  246.      { register all additional packages }
  248.      {$IFDEF _DESIGN}
  249.      MMDesReg.Register;
  250.      {$ENDIF}
  252.      {$IFDEF _WAVE}
  253.      MMWavReg.Register;
  254.      {$ENDIF}
  256.      {$IFDEF _VISUAL}
  257.      MMVisReg.Register;
  258.      {$ENDIF}
  260.      {$IFDEF _WMA}
  261.      MMWMAReg.Register;
  262.      {$ENDIF}
  264.      {$IFDEF _MPEG}
  265.      MMMpReg.Register;
  266.      {$ENDIF}
  268.      {$IFDEF _CDROM}
  269.      MMCDReg.Register;
  270.      {$ENDIF}
  272.      {$IFDEF _MIXER}
  273.      MMMixReg.Register;
  274.      {$ENDIF}
  276.      {$IFDEF _HDREC}
  277.      MMHdReg.Register;
  278.      {$ENDIF}
  280.      {$IFDEF _FILTER}
  281.      MMFltReg.Register;
  282.      {$ENDIF}
  284.      {$IFDEF _EFFECTS}
  285.      MMFXReg.Register;
  286.      {$ENDIF}
  288.      {$IFDEF _DSOUND}
  289.      MMDsReg.Register;
  290.      {$ENDIF}
  292.      {$IFDEF _AVI}
  293.      MMAVIReg.Register;
  294.      {$ENDIF}
  296.      {$IFDEF _DIRECTX}
  297.      MMDXReg.Register;
  298.      {$ENDIF}
  300.      {$IFDEF _PCX}
  301.      MMPCXReg.Register;
  302.      {$ENDIF}
  304. end;
  306. initialization
  307.      { Register the properties for TMMDesigner }
  308.      RegisterProperty(ptOutput,'Misc',TMMCDInfo,'Player',TMediaPlayer,nil);
  309. end.