xue@0: /*
xue@0:     Harmonic Visualiser
xue@0: 
xue@0:     An audio file viewer and editor.
xue@0:     Centre for Digital Music, Queen Mary, University of London.
xue@0:     This file copyright 2011 Wen Xue.
xue@0: 
xue@0:     This program is free software; you can redistribute it and/or
xue@0:     modify it under the terms of the GNU General Public License as
xue@0:     published by the Free Software Foundation; either version 2 of the
xue@0:     License, or (at your option) any later version. 
xue@0: */
xue@0: //---------------------------------------------------------------------------
xue@0: 
xue@0: #include <vcl.h>
xue@0: #pragma hdrstop
xue@0: 
xue@0: #include "RecordingUnit.h"
xue@0: #include "Unit1.h"
xue@0: //---------------------------------------------------------------------------
xue@0: #pragma package(smart_init)
xue@0: #pragma resource "*.dfm"
xue@0: TRecordingForm *RecordingForm;
xue@0: //---------------------------------------------------------------------------
xue@0: __fastcall TRecordingForm::TRecordingForm(TComponent* Owner)
xue@0:   : TForm(Owner)
xue@0: {
xue@0: }
xue@0: //---------------------------------------------------------------------------
xue@0: void __fastcall TRecordingForm::SpeedButton1Click(TObject *Sender)
xue@0: {
xue@0:   Close();  
xue@0: }
xue@0: //---------------------------------------------------------------------------
xue@0: void __fastcall TRecordingForm::SpeedButton2Click(TObject *Sender)
xue@0: {
xue@0:   AnsiString FileName1=ExtractFilePath(Application->ExeName)+"noname.wav";
xue@0:   AnsiString FileName2=ExtractFilePath(Application->ExeName)+"noname"+Now().FormatString("yymmddhhmmss")+".wav";
xue@0:   Form1->RecentFile(Form1->WaveAudio1->FileName);
xue@0:   RenameFile(FileName1, FileName2);
xue@0:   Form1->WaveAudio1->LoadFromFile(FileName2);
xue@0:   Close();
xue@0: }
xue@0: //---------------------------------------------------------------------------
xue@0: void __fastcall TRecordingForm::FormDblClick(TObject *Sender)
xue@0: {
xue@0:   Form1->SpeedButtonRecordClick(Sender);
xue@0: }
xue@0: //---------------------------------------------------------------------------
xue@0: 
xue@0: void __fastcall TRecordingForm::SpeedButtonRecordClick(TObject *Sender)
xue@0: {
xue@0:   Form1->SpeedButtonRecordClick(Sender);
xue@0: }
xue@0: //---------------------------------------------------------------------------
xue@0: