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

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

Delphi控件源码

开发平台：

Delphi

MMRvbDlg.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  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: 20.01.1998 - 18:00:00 $                                      =}
  24. {========================================================================}
  25. unit MMRvbDlg;
  27. {$I COMPILER.INC}
  29. interface
  31. uses
  32. {$IFDEF WIN32}
  33.     Windows,
  34. {$ELSE}
  35.     WinTypes,
  36.     WinProcs,
  37. {$ENDIF}
  38.     SysUtils,
  39.     Messages,
  40.     Consts,
  41.     Classes,
  42.     Dialogs,
  43.     StdCtrls,
  44.     Controls,
  45.     ExtCtrls,
  46.     Forms,
  47.     MMObj,
  48.     MMUtils,
  49.     MMReverb,
  50.     MMLEDS,
  51.     MMSpin,
  52.     MMSlider,
  53.     MMString,
  54.     MMEdit;
  56. type
  57.   {-- TMMReverbDlg ------------------------------------------------------}
  58.   TMMReverbDlg = class(TForm)
  59.     OpenDialog: TOpenDialog;
  60.     SaveDialog: TSaveDialog;
  61.     btnSave: TButton;
  62.     btnLoad: TButton;
  63.     btnReset: TButton;
  64.     btnCancel: TButton;
  65.     btnOK: TButton;
  66.     Label1: TLabel;
  67.     Bevel2: TBevel;
  68.     Label3: TLabel;
  69.     Label5: TLabel;
  70.     Bevel4: TBevel;
  71.     Label6: TLabel;
  72.     Label7: TLabel;
  73.     Label8: TLabel;
  74.     Bevel5: TBevel;
  75.     Label17: TLabel;
  76.     CheckBoxFilter: TCheckBox;
  77.     Label4: TLabel;
  78.     Label18: TLabel;
  79.     Label19: TLabel;
  80.     btnPreview: TButton;
  81.     btnClear: TButton;
  82.     Label20: TLabel;
  83.     CheckBoxLine1: TCheckBox;
  84.     CheckBoxLine2: TCheckBox;
  85.     CheckBoxLine3: TCheckBox;
  86.     CheckBoxLine4: TCheckBox;
  87.     CheckBoxLine5: TCheckBox;
  88.     CheckBoxLine6: TCheckBox;
  89.     CheckBoxLine7: TCheckBox;
  90.     CheckBoxLine8: TCheckBox;
  91.     Label2: TLabel;
  92.     LED1: TMMLED;
  93.     Label9: TLabel;
  94.     Timer1: TTimer;
  95.     SliderInputGain: TMMSlider;
  96.     SliderInputPan: TMMSlider;
  97.     SliderOutputGain: TMMSlider;
  98.     spinDelay1: TMMSpinButton;
  99.     spinGain1: TMMSpinButton;
  100.     spinDelay2: TMMSpinButton;
  101.     spinDelay3: TMMSpinButton;
  102.     spinDelay4: TMMSpinButton;
  103.     spinDelay5: TMMSpinButton;
  104.     spinDelay6: TMMSpinButton;
  105.     spinDelay7: TMMSpinButton;
  106.     spinDelay8: TMMSpinButton;
  107.     spinFeedBack: TMMSpinButton;
  108.     spinGain2: TMMSpinButton;
  109.     spinGain3: TMMSpinButton;
  110.     spinGain4: TMMSpinButton;
  111.     spinGain5: TMMSpinButton;
  112.     spinGain6: TMMSpinButton;
  113.     spinGain7: TMMSpinButton;
  114.     spinGain8: TMMSpinButton;
  115.     edInputGain: TMMNumberEdit;
  116.     edInputPan: TMMNumberEdit;
  117.     edOutputGain: TMMNumberEdit;
  118.     Bevel1: TBevel;
  119.     Bevel3: TBevel;
  120.     edDelay1: TMMNumberEdit;
  121.     edDelay2: TMMNumberEdit;
  122.     edDelay3: TMMNumberEdit;
  123.     edDelay4: TMMNumberEdit;
  124.     edDelay5: TMMNumberEdit;
  125.     edDelay6: TMMNumberEdit;
  126.     edDelay7: TMMNumberEdit;
  127.     edDelay8: TMMNumberEdit;
  128.     edGain1: TMMNumberEdit;
  129.     edGain2: TMMNumberEdit;
  130.     edGain3: TMMNumberEdit;
  131.     edGain4: TMMNumberEdit;
  132.     edGain5: TMMNumberEdit;
  133.     edGain6: TMMNumberEdit;
  134.     edGain7: TMMNumberEdit;
  135.     edGain8: TMMNumberEdit;
  136.     edFeedBack: TMMNumberEdit;
  137.     procedure btnResetClick(Sender: TObject);
  138.     procedure btnLoadClick(Sender: TObject);
  139.     procedure btnSaveClick(Sender: TObject);
  140.     procedure SliderTrack(Sender: TObject);
  141.     procedure FormCreate(Sender: TObject);
  142.     procedure FormDestroy(Sender: TObject);
  143.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  144.     procedure btnPreviewClick(Sender: TObject);
  145.     procedure btnClearClick(Sender: TObject);
  146.     procedure CheckBoxLineClick(Sender: TObject);
  147.     procedure Timer1Timer(Sender: TObject);
  148.     procedure edExit(Sender: TObject);
  149.     procedure spinChange(Sender: TObject);
  150.     procedure edGainExit(Sender: TObject);
  151.   private
  152.     FOldEvent: TNotifyEvent;
  153.     FReverb,FOrigReverb,FTmpReverb: TMMReverb;
  154.     FTitle: String;
  155.     procedure SetTitle(aValue: String);
  156.     procedure SetReverb(aValue: TMMReverb);
  157.     procedure UpdateControls;
  158.     procedure UpdateReverb;
  159.     procedure Overflow(Sender: TObject);
  160.   public
  161.     property Title: String read FTitle write SetTitle;
  162.     property Reverb: TMMReverb write SetReverb;
  163.   end;
  165.   {-- TMMReverbDialog ---------------------------------------------------}
  166.   TMMReverbDialog = class(TMMNonVisualComponent)
  167.   private
  168.     FPreview: Boolean;
  169.     FSource: TMMReverb;
  170.     FTitle : string;
  172.     procedure SetSource(aSource: TMMReverb);
  174.   protected
  175.     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  177.   public
  178.     constructor Create(AOwner: TComponent); override;
  179.     function Execute: Boolean;
  181.   published
  182.     property Preview: Boolean read FPreview write FPreview;
  183.     property Source: TMMReverb read FSource write SetSource;
  184.     property Title: string read FTitle write FTitle;
  185.   end;
  187. var
  188.   MMReverbDlg: TMMReverbDlg;
  190. implementation
  192. {$R *.DFM}
  194. {== TMMReverbDlg ========================================================}
  195. procedure TMMReverbDlg.FormCreate(Sender: TObject);
  196. var
  197.    i: integer;
  199. begin
  200.    FTitle := Caption;
  201.    FReverb := nil;
  202.    FTmpReverb := TMMReverb.Create(Self);
  203.    FOrigReverb := TMMReverb.Create(Self);
  205.    {$IFDEF BUILD_ACTIVEX}
  206.    FTmpReverb.Left := -50;
  207.    FOrigReverb.Left := -50;
  208.    {$ENDIF}
  210.    for i := 0 to ComponentCount-1 do
  211.    if (Components[i] is TMMSpinButton) then
  212.    begin
  213.       if (TMMSpinButton(Components[i]).FocusControl <> nil) then
  214.           TMMSpinButton(Components[i]).FocusControl.Tag := Longint(Components[i]);
  215.    end;
  216. end;
  218. {-- TMMReverbDialog -----------------------------------------------------}
  219. procedure TMMReverbDlg.FormClose(Sender: TObject; var Action: TCloseAction);
  220. begin
  221.    if (ModalResult <> mrOK) then
  222.    begin
  223.       if (FReverb <> nil) then
  224.       begin
  225.          FReverb.Assign(FOrigReverb);
  226.          FReverb.OnPcmOverflow := FOldEvent;
  227.       end;
  228.    end
  229.    else
  230.    begin
  231.       UpdateReverb;
  232.       if (FReverb <> nil) then
  233.       begin
  234.          FReverb.Assign(FTmpReverb);
  235.          FReverb.OnPcmOverflow := FOldEvent;
  236.       end;
  237.    end;
  238. end;
  240. {-- TMMReverbDlg --------------------------------------------------------}
  241. procedure TMMReverbDlg.FormDestroy(Sender: TObject);
  242. begin
  243.    FTmpReverb.Free;
  244.    FOrigReverb.Free;
  245. end;
  247. {-- TMMReverbDlg --------------------------------------------------------}
  248. procedure TMMReverbDlg.SetTitle(aValue: String);
  249. begin
  250.    if (aValue <> FTitle) then
  251.    begin
  252.       FTitle := aValue;
  253.       Caption := FTitle + ' -  ' + FTmpReverb.Description;
  254.    end;
  255. end;
  257. {-- TMMReverbDlg --------------------------------------------------------}
  258. procedure TMMReverbDlg.UpdateControls;
  259. begin
  260.    with FTmpReverb do
  261.    begin
  262.       Caption                  := Title + ' -  '+ Description;
  263.       SliderInputGain.Position := InputGain;
  264.       edInputGain.Value        := InputGain;
  265.       SliderInputPan.Position  := InputPan;
  266.       edInputPan.Value         := InputPan;
  267.       SliderOutputGain.Position:= OutputGain;
  268.       edOutputGain.Value       := OutputGain;
  269.       SpinFeedBack.Value       := FeedBack;
  270.       CheckBoxFilter.Checked   := Filter;
  272.       SpinDelay1.MaxValue  := MaxDelay;
  273.       SpinDelay1.Value     := Echos[0].Delay;
  274.       SpinGain1.Value      := Echos[0].Gain;
  275.       CheckBoxLine1.Checked:= True;
  277.       SpinDelay2.MaxValue  := MaxDelay;
  278.       SpinDelay2.Value     := Echos[1].Delay;
  279.       SpinGain2.Value      := Echos[1].Gain;
  280.       CheckBoxLine2.Checked:= True;
  282.       SpinDelay3.MaxValue  := MaxDelay;
  283.       SpinDelay3.Value     := Echos[2].Delay;
  284.       SpinGain3.Value      := Echos[2].Gain;
  285.       CheckBoxLine3.Checked:= True;
  287.       SpinDelay4.MaxValue  := MaxDelay;
  288.       SpinDelay4.Value     := Echos[3].Delay;
  289.       SpinGain4.Value      := Echos[3].Gain;
  290.       CheckBoxLine4.Checked:= True;
  292.       SpinDelay5.MaxValue  := MaxDelay;
  293.       SpinDelay5.Value     := Echos[4].Delay;
  294.       SpinGain5.Value      := Echos[4].Gain;
  295.       CheckBoxLine5.Checked:= True;
  297.       SpinDelay6.MaxValue  := MaxDelay;
  298.       SpinDelay6.Value     := Echos[5].Delay;
  299.       SpinGain6.Value      := Echos[5].Gain;
  300.       CheckBoxLine6.Checked:= True;
  302.       SpinDelay7.MaxValue  := MaxDelay;
  303.       SpinDelay7.Value     := Echos[6].Delay;
  304.       SpinGain7.Value      := Echos[6].Gain;
  305.       CheckBoxLine7.Checked:= True;
  307.       SpinDelay8.MaxValue  := MaxDelay;
  308.       SpinDelay8.Value     := Echos[7].Delay;
  309.       SpinGain8.Value      := Echos[7].Gain;
  310.       CheckBoxLine8.Checked:= True;
  311.    end;
  312. end;
  314. {-- TMMReverbDlg --------------------------------------------------------}
  315. procedure TMMReverbDlg.UpdateReverb;
  316. begin
  317.    with FTmpReverb do
  318.    begin
  319.       InputGain  := SliderInputGain.Position;
  320.       InputPan   := SliderInputPan.Position;
  321.       OutputGain := SliderOutputGain.Position;
  322.       FeedBack   := SpinFeedBack.Value;
  323.       Filter     := CheckBoxFilter.Checked;
  325.       if CheckBoxLine1.Checked then
  326.          Echos[0].SetParams(SpinDelay1.Value,SpinGain1.Value)
  327.       else
  328.          Echos[0].SetParams(0,0);
  330.       if CheckBoxLine2.Checked then
  331.          Echos[1].SetParams(SpinDelay2.Value,SpinGain2.Value)
  332.       else
  333.          Echos[1].SetParams(0,0);
  335.       if CheckBoxLine3.Checked then
  336.          Echos[2].SetParams(SpinDelay3.Value,SpinGain3.Value)
  337.       else
  338.          Echos[2].SetParams(0,0);
  340.       if CheckBoxLine4.Checked then
  341.          Echos[3].SetParams(SpinDelay4.Value,SpinGain4.Value)
  342.       else
  343.          Echos[3].SetParams(0,0);
  345.       if CheckBoxLine5.Checked then
  346.          Echos[4].SetParams(SpinDelay5.Value,SpinGain5.Value)
  347.       else
  348.          Echos[4].SetParams(0,0);
  350.       if CheckBoxLine6.Checked then
  351.          Echos[5].SetParams(SpinDelay6.Value,SpinGain6.Value)
  352.       else
  353.          Echos[5].SetParams(0,0);
  355.       if CheckBoxLine7.Checked then
  356.          Echos[6].SetParams(SpinDelay7.Value,SpinGain7.Value)
  357.       else
  358.          Echos[6].SetParams(0,0);
  360.       if CheckBoxLine8.Checked then
  361.          Echos[7].SetParams(SpinDelay8.Value,SpinGain8.Value)
  362.       else
  363.          Echos[7].SetParams(0,0);
  364.    end;
  365. end;
  367. {-- TMMReverbDlg --------------------------------------------------------}
  368. procedure TMMReverbDlg.SetReverb(aValue: TMMReverb);
  369. begin
  370.    if (aValue <> Nil) then
  371.    begin
  372.       FReverb := aValue;
  373.       FOldEvent := FReverb.OnPcmOverflow;
  374.       FReverb.OnPcmOverflow := Overflow;
  375.       FTmpReverb.assign(aValue);
  376.       FOrigReverb.assign(aValue);
  377.       UpdateControls;
  378.    end;
  379. end;
  381. {-- TMMReverbDlg --------------------------------------------------------}
  382. procedure TMMReverbDlg.btnResetClick(Sender: TObject);
  383. begin
  384.    FTmpReverb.assign(FOrigReverb);
  385.    UpdateControls;
  386. end;
  388. {-- TMMReverbDlg --------------------------------------------------------}
  389. procedure TMMReverbDlg.btnClearClick(Sender: TObject);
  390. var
  391.    i: integer;
  393. begin
  394.    with FTmpReverb do
  395.    begin
  396.       InputGain  := 50;
  397.       InputPan   := 0;
  398.       OutputGain := 50;
  399.       FeedBack   := 0;
  400.       Filter     := False;
  402.       for i := 0 to Echos.Count-1 do
  403.       begin
  404.          Echos[i].Delay := 0;
  405.          Echos[i].Gain := 0;
  406.       end;
  408.       UpdateControls;
  409.    end;
  410. end;
  412. {-- TMMReverbDlg --------------------------------------------------------}
  413. procedure TMMReverbDlg.btnLoadClick(Sender: TObject);
  414. begin
  415.    if OpenDialog.Execute then
  416.    begin
  417.       FTmpReverb.Echos.LoadFromFile(OpenDialog.FileName);
  418.       UpdateControls;
  419.    end;
  420. end;
  422. {-- TMMReverbDlg --------------------------------------------------------}
  423. procedure TMMReverbDlg.btnSaveClick(Sender: TObject);
  424. begin
  425.    if SaveDialog.Execute then
  426.    begin
  427.       UpdateReverb;
  428.       FTmpReverb.Echos.SaveToFile(SaveDialog.FileName);
  429.    end;
  430. end;
  432. {-- TMMReverbDlg --------------------------------------------------------}
  433. procedure TMMReverbDlg.SliderTrack(Sender: TObject);
  434. begin
  435.    if (Sender = SliderInputGain) then
  436.    begin
  437.       edInputGain.Value := SliderInputGain.Position;
  438.    end
  439.    else if (Sender = SliderInputPan) then
  440.    begin
  441.       edInputPan.Value := SliderInputPan.Position;
  442.    end
  443.    else if (Sender = SliderOutputGain) then
  444.    begin
  445.       edOutputGain.Value := SliderOutputGain.Position;
  446.    end;
  447. end;
  449. {-- TMMReverbDlg --------------------------------------------------------}
  450. procedure TMMReverbDlg.edGainExit(Sender: TObject);
  451. begin
  452.    if (Sender = edInputGain) then
  453.    begin
  454.       SliderInputGain.Position := edInputGain.Value;
  455.    end
  456.    else if (Sender = edInputPan) then
  457.    begin
  458.       SliderInputPan.Position := edInputPan.Value;
  459.    end
  460.    else if (Sender = edOutputGain) then
  461.    begin
  462.       SliderOutputGain.Position := edOutputGain.Value;
  463.    end;
  464. end;
  466. {-- TMMReverbDialog -----------------------------------------------------}
  467. procedure TMMReverbDlg.edExit(Sender: TObject);
  468. var
  469.    spin: TMMSpinButton;
  470. begin
  471.    if TMMNumberEdit(Sender).Tag <> 0 then
  472.    begin
  473.       spin := TMMSpinButton(TMMNumberEdit(Sender).Tag);
  474.       spin.Value := TMMNumberEdit(Sender).Value;
  475.    end;
  476. end;
  478. {-- TMMReverbDialog -----------------------------------------------------}
  479. procedure TMMReverbDlg.spinChange(Sender: TObject);
  480. var
  481.    Val: integer;
  482. begin
  483.    if (TMMSpinButton(Sender).FocusControl <> nil) then
  484.    begin
  485.       Val := TMMSpinButton(Sender).Value;
  487.       TMMNumberEdit(TMMSpinButton(Sender).FocusControl).Value := Val;
  488.    end;
  489. end;
  491. {-- TMMReverbDlg --------------------------------------------------------}
  492. procedure TMMReverbDlg.CheckBoxLineClick(Sender: TObject);
  493. begin
  494.    with (Sender as TCheckBox) do
  495.    begin
  496.       if Checked then
  497.       begin
  498.          TMMSpinButton(Self.FindComponent('spinDelay'+Name[Length(Name)])).Enabled := True;
  499.          TMMSpinButton(Self.FindComponent('spinGain'+Name[Length(Name)])).Enabled := True;
  500.          TMMNumberEdit(Self.FindComponent('edDelay'+Name[Length(Name)])).Enabled := True;
  501.          TMMNumberEdit(Self.FindComponent('edGain'+Name[Length(Name)])).Enabled := True;
  502.       end
  503.       else
  504.       begin
  505.          TMMSpinButton(Self.FindComponent('spinDelay'+Name[Length(Name)])).Enabled := False;
  506.          TMMSpinButton(Self.FindComponent('spinGain'+Name[Length(Name)])).Enabled := False;
  507.          TMMNumberEdit(Self.FindComponent('edDelay'+Name[Length(Name)])).Enabled := False;
  508.          TMMNumberEdit(Self.FindComponent('edGain'+Name[Length(Name)])).Enabled := False;
  509.       end;
  510.    end
  511. end;
  513. {-- TMMReverbDlg --------------------------------------------------------}
  514. procedure TMMReverbDlg.btnPreviewClick(Sender: TObject);
  515. begin
  516.    UpdateReverb;
  517.    if (FReverb <> nil) then FReverb.assign(FTmpReverb);
  518. end;
  520. {-- TMMReverbDlg --------------------------------------------------------}
  521. procedure TMMReverbDlg.Overflow(Sender: TObject);
  522. begin
  523.    LED1.Enabled := True;
  524.    Timer1.Enabled := True;
  525. end;
  527. {-- TMMReverbDlg --------------------------------------------------------}
  528. procedure TMMReverbDlg.Timer1Timer(Sender: TObject);
  529. begin
  530.    LED1.Enabled := False;
  531.    Timer1.Enabled := False;
  532. end;
  534. {== TMMReverbDialog =====================================================}
  535. constructor TMMReverbDialog.Create(AOwner: TComponent);
  536. begin
  537.    inherited Create(AOwner);
  539.    FPreview := True;
  540.    FTitle := 'Reverb Editor';
  541.    FSource := nil;
  543.    ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  544.    if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  545. end;
  547. {-- TMMReverbDialog -----------------------------------------------------}
  548. procedure TMMReverbDialog.SetSource(aSource: TMMReverb);
  549. begin
  550.    if Longint(aSource) = Longint(Self) then exit;
  552.    if (aSource is TMMReverb) or (aSource = Nil) then
  553.    begin
  554.       if (FSource <> aSource) then
  555.       begin
  556.          FSource := aSource;
  557.       end;
  558.    end;
  559. end;
  561. {-- TMMReverbDialog -----------------------------------------------------}
  562. procedure TMMReverbDialog.Notification(AComponent: TComponent; Operation: TOperation);
  563. begin
  564.    inherited Notification(AComponent, Operation);
  566.    if (Operation = opRemove) and (AComponent = FSource) then
  567.       FSource := Nil;
  568. end;
  570. {-- TMMReverbDialog -----------------------------------------------------}
  571. function TMMReverbDialog.Execute: Boolean;
  572. begin
  573.    Result := False;
  574.    if assigned(FSource) then
  575.    begin
  576.       MMReverbDlg := TMMReverbDlg.Create(Application);
  577.       try
  578.          MMreverbDlg.btnPreview.Enabled := FPreview;
  579.          MMReverbDlg.Reverb := (FSource as TMMReverb);
  580.          MMReverbDlg.Title := FTitle;
  582.          Result := (MMReverbDlg.ShowModal = mrOK);
  584.       finally
  585.          MMReverbDlg.Free;
  586.       end;
  587.    end;
  588. end;
  590. end.