vrwavedlg.pas

作工控的好控件

{*****************************************************}
{                                                     }
{     Varian Component Workshop                       }
{                                                     }
{     Varian Software NL (c) 1996-2000                }
{     All Rights Reserved                             }
{                                                     }
{*****************************************************}

unit VrWaveDlg;

{$I VRLIB.INC}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, VrControls, VrAudio, StdCtrls, VrButtons;

type
  TVrWaveSoundDialog = class(TForm)
    VrShadowButton1: TVrShadowButton;
    VrShadowButton2: TVrShadowButton;
    VrShadowButton3: TVrShadowButton;
    VrShadowButton4: TVrShadowButton;
    VrShadowButton5: TVrShadowButton;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    OpenDialog: TOpenDialog;
    VrWave: TVrWave;
    Bevel1: TBevel;
    procedure VrShadowButton3Click(Sender: TObject);
    procedure VrShadowButton1Click(Sender: TObject);
    procedure VrShadowButton2Click(Sender: TObject);
    procedure VrShadowButton4Click(Sender: TObject);
    procedure VrShadowButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure UpdateControls;
  end;

var
  VrWaveSoundDialog: TVrWaveSoundDialog;

implementation

{$R *.DFM}


procedure TVrWaveSoundDialog.VrShadowButton3Click(Sender: TObject);
begin
  VrWave.Play;
end;

procedure TVrWaveSoundDialog.UpdateControls;
begin
  if VrWave.Sound.Empty then
    Panel1.Caption := ' Empty...'
  else Panel1.Caption := ' Loaded...';
  Panel2.Caption := Format(' %d bytes', [VrWave.Sound.Size]);
end;


procedure TVrWaveSoundDialog.VrShadowButton1Click(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    VrWave.Stop;
    VrWave.Sound.LoadFromFile(OpenDialog.FileName);
  end;
  UpdateControls;
end;

procedure TVrWaveSoundDialog.VrShadowButton2Click(Sender: TObject);
begin
  VrWave.Stop;
  VrWave.Sound.Clear;
  UpdateControls;
end;

procedure TVrWaveSoundDialog.VrShadowButton4Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TVrWaveSoundDialog.VrShadowButton5Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TVrWaveSoundDialog.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  VrWave.Stop;
end;

end.