VrWaveDlg.pas
上传用户:hbszzs
上传日期:2008-08-20
资源大小:628k
文件大小:3k
- {*****************************************************}
- { }
- { 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.