mmfxprop.pas

一套及时通讯的原码

unit MMFxProp;

{$I COMPILER.INC}

interface

uses
{$IFDEF WIN32}
    Windows,
{$ELSE}
    WinTypes,
    WinProcs,
{$ENDIF}
{$IFDEF DELPHI6}
    DesignIntf,
    DesignEditors,
{$ELSE}
    DsgnIntf,
{$ENDIF}
    SysUtils,
    Messages,
    Classes,
    Controls,
    MMDSPProps,
    MMWMixer,
    MMSplitt;

type
  {-- TMMDSPComponentInput1Editor ---------------------------------------------}
  TMMDSPComponentInput1Editor = class(TMMDSPComponentInputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentInput2Editor ---------------------------------------------}
  TMMDSPComponentInput2Editor = class(TMMDSPComponentInputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentInput3Editor ---------------------------------------------}
  TMMDSPComponentInput3Editor = class(TMMDSPComponentInputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentInput4Editor ---------------------------------------------}
  TMMDSPComponentInput4Editor = class(TMMDSPComponentInputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;


  {-- TMMDSPComponentOutput1Editor --------------------------------------------}
  TMMDSPComponentOutput1Editor = class(TMMDSPComponentOutputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentOutput2Editor --------------------------------------------}
  TMMDSPComponentOutput2Editor = class(TMMDSPComponentOutputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentOutput3Editor --------------------------------------------}
  TMMDSPComponentOutput3Editor = class(TMMDSPComponentOutputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

  {-- TMMDSPComponentOutput4Editor --------------------------------------------}
  TMMDSPComponentOutput4Editor = class(TMMDSPComponentOutputEditor)
  protected
      procedure CheckComponent(const Value: string); override;
  end;

implementation

{== TMMDSPComponentInput1Editor ===============================================}
procedure TMMDSPComponentInput1Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMWaveMixer(Selected).CanConnectInput1(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentInput2Editor ===============================================}
procedure TMMDSPComponentInput2Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMWaveMixer(Selected).CanConnectInput2(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentInput3Editor ===============================================}
procedure TMMDSPComponentInput3Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMWaveMixer(Selected).CanConnectInput3(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentInput4Editor ===============================================}
procedure TMMDSPComponentInput4Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMWaveMixer(Selected).CanConnectInput4(Component) then
       CheckProc(Value);
end;


{== TMMDSPComponentOutput1Editor ==============================================}
procedure TMMDSPComponentOutput1Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMOutputSplitter(Selected).CanConnectOutput1(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentOutput2Editor ==============================================}
procedure TMMDSPComponentOutput2Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMOutputSplitter(Selected).CanConnectOutput2(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentOutput3Editor ==============================================}
procedure TMMDSPComponentOutput3Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMOutputSplitter(Selected).CanConnectOutput3(Component) then
       CheckProc(Value);
end;

{== TMMDSPComponentOutput4Editor ==============================================}
procedure TMMDSPComponentOutput4Editor.CheckComponent(const Value: string);
var
   Component: TComponent;
begin
   {$IFDEF WIN32}
   Component := Designer.GetComponent(Value);
   {$ELSE}
   Component := Designer.Form.FindComponent(Value);
   {$ENDIF}
   if (Component.Name <> '') and
       TMMOutputSplitter(Selected).CanConnectOutput4(Component) then
       CheckProc(Value);
end;

end.