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

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

Delphi控件源码

开发平台：

Delphi

MMFxProp.pas：源码内容
  1. unit MMFxProp;
  3. {$I COMPILER.INC}
  5. interface
  7. uses
  8. {$IFDEF WIN32}
  9.     Windows,
  10. {$ELSE}
  11.     WinTypes,
  12.     WinProcs,
  13. {$ENDIF}
  14. {$IFDEF DELPHI6}
  15.     DesignIntf,
  16.     DesignEditors,
  17. {$ELSE}
  18.     DsgnIntf,
  19. {$ENDIF}
  20.     SysUtils,
  21.     Messages,
  22.     Classes,
  23.     Controls,
  24.     MMDSPProps,
  25.     MMWMixer,
  26.     MMSplitt;
  28. type
  29.   {-- TMMDSPComponentInput1Editor ---------------------------------------------}
  30.   TMMDSPComponentInput1Editor = class(TMMDSPComponentInputEditor)
  31.   protected
  32.       procedure CheckComponent(const Value: string); override;
  33.   end;
  35.   {-- TMMDSPComponentInput2Editor ---------------------------------------------}
  36.   TMMDSPComponentInput2Editor = class(TMMDSPComponentInputEditor)
  37.   protected
  38.       procedure CheckComponent(const Value: string); override;
  39.   end;
  41.   {-- TMMDSPComponentInput3Editor ---------------------------------------------}
  42.   TMMDSPComponentInput3Editor = class(TMMDSPComponentInputEditor)
  43.   protected
  44.       procedure CheckComponent(const Value: string); override;
  45.   end;
  47.   {-- TMMDSPComponentInput4Editor ---------------------------------------------}
  48.   TMMDSPComponentInput4Editor = class(TMMDSPComponentInputEditor)
  49.   protected
  50.       procedure CheckComponent(const Value: string); override;
  51.   end;
  54.   {-- TMMDSPComponentOutput1Editor --------------------------------------------}
  55.   TMMDSPComponentOutput1Editor = class(TMMDSPComponentOutputEditor)
  56.   protected
  57.       procedure CheckComponent(const Value: string); override;
  58.   end;
  60.   {-- TMMDSPComponentOutput2Editor --------------------------------------------}
  61.   TMMDSPComponentOutput2Editor = class(TMMDSPComponentOutputEditor)
  62.   protected
  63.       procedure CheckComponent(const Value: string); override;
  64.   end;
  66.   {-- TMMDSPComponentOutput3Editor --------------------------------------------}
  67.   TMMDSPComponentOutput3Editor = class(TMMDSPComponentOutputEditor)
  68.   protected
  69.       procedure CheckComponent(const Value: string); override;
  70.   end;
  72.   {-- TMMDSPComponentOutput4Editor --------------------------------------------}
  73.   TMMDSPComponentOutput4Editor = class(TMMDSPComponentOutputEditor)
  74.   protected
  75.       procedure CheckComponent(const Value: string); override;
  76.   end;
  78. implementation
  80. {== TMMDSPComponentInput1Editor ===============================================}
  81. procedure TMMDSPComponentInput1Editor.CheckComponent(const Value: string);
  82. var
  83.    Component: TComponent;
  84. begin
  85.    {$IFDEF WIN32}
  86.    Component := Designer.GetComponent(Value);
  87.    {$ELSE}
  88.    Component := Designer.Form.FindComponent(Value);
  89.    {$ENDIF}
  90.    if (Component.Name <> '') and
  91.        TMMWaveMixer(Selected).CanConnectInput1(Component) then
  92.        CheckProc(Value);
  93. end;
  95. {== TMMDSPComponentInput2Editor ===============================================}
  96. procedure TMMDSPComponentInput2Editor.CheckComponent(const Value: string);
  97. var
  98.    Component: TComponent;
  99. begin
  100.    {$IFDEF WIN32}
  101.    Component := Designer.GetComponent(Value);
  102.    {$ELSE}
  103.    Component := Designer.Form.FindComponent(Value);
  104.    {$ENDIF}
  105.    if (Component.Name <> '') and
  106.        TMMWaveMixer(Selected).CanConnectInput2(Component) then
  107.        CheckProc(Value);
  108. end;
  110. {== TMMDSPComponentInput3Editor ===============================================}
  111. procedure TMMDSPComponentInput3Editor.CheckComponent(const Value: string);
  112. var
  113.    Component: TComponent;
  114. begin
  115.    {$IFDEF WIN32}
  116.    Component := Designer.GetComponent(Value);
  117.    {$ELSE}
  118.    Component := Designer.Form.FindComponent(Value);
  119.    {$ENDIF}
  120.    if (Component.Name <> '') and
  121.        TMMWaveMixer(Selected).CanConnectInput3(Component) then
  122.        CheckProc(Value);
  123. end;
  125. {== TMMDSPComponentInput4Editor ===============================================}
  126. procedure TMMDSPComponentInput4Editor.CheckComponent(const Value: string);
  127. var
  128.    Component: TComponent;
  129. begin
  130.    {$IFDEF WIN32}
  131.    Component := Designer.GetComponent(Value);
  132.    {$ELSE}
  133.    Component := Designer.Form.FindComponent(Value);
  134.    {$ENDIF}
  135.    if (Component.Name <> '') and
  136.        TMMWaveMixer(Selected).CanConnectInput4(Component) then
  137.        CheckProc(Value);
  138. end;
  141. {== TMMDSPComponentOutput1Editor ==============================================}
  142. procedure TMMDSPComponentOutput1Editor.CheckComponent(const Value: string);
  143. var
  144.    Component: TComponent;
  145. begin
  146.    {$IFDEF WIN32}
  147.    Component := Designer.GetComponent(Value);
  148.    {$ELSE}
  149.    Component := Designer.Form.FindComponent(Value);
  150.    {$ENDIF}
  151.    if (Component.Name <> '') and
  152.        TMMOutputSplitter(Selected).CanConnectOutput1(Component) then
  153.        CheckProc(Value);
  154. end;
  156. {== TMMDSPComponentOutput2Editor ==============================================}
  157. procedure TMMDSPComponentOutput2Editor.CheckComponent(const Value: string);
  158. var
  159.    Component: TComponent;
  160. begin
  161.    {$IFDEF WIN32}
  162.    Component := Designer.GetComponent(Value);
  163.    {$ELSE}
  164.    Component := Designer.Form.FindComponent(Value);
  165.    {$ENDIF}
  166.    if (Component.Name <> '') and
  167.        TMMOutputSplitter(Selected).CanConnectOutput2(Component) then
  168.        CheckProc(Value);
  169. end;
  171. {== TMMDSPComponentOutput3Editor ==============================================}
  172. procedure TMMDSPComponentOutput3Editor.CheckComponent(const Value: string);
  173. var
  174.    Component: TComponent;
  175. begin
  176.    {$IFDEF WIN32}
  177.    Component := Designer.GetComponent(Value);
  178.    {$ELSE}
  179.    Component := Designer.Form.FindComponent(Value);
  180.    {$ENDIF}
  181.    if (Component.Name <> '') and
  182.        TMMOutputSplitter(Selected).CanConnectOutput3(Component) then
  183.        CheckProc(Value);
  184. end;
  186. {== TMMDSPComponentOutput4Editor ==============================================}
  187. procedure TMMDSPComponentOutput4Editor.CheckComponent(const Value: string);
  188. var
  189.    Component: TComponent;
  190. begin
  191.    {$IFDEF WIN32}
  192.    Component := Designer.GetComponent(Value);
  193.    {$ELSE}
  194.    Component := Designer.Form.FindComponent(Value);
  195.    {$ENDIF}
  196.    if (Component.Name <> '') and
  197.        TMMOutputSplitter(Selected).CanConnectOutput4(Component) then
  198.        CheckProc(Value);
  199. end;
  201. end.