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: USEFORM("BackUpTool.cpp", BackupForm1);
xue@0: USEFORM("EditorPanelUnit.cpp", EditorPanel);
xue@0: USEFORM("EventBoxUnit.cpp", EventBox);
xue@0: USEFORM("RecordingUnit.cpp", RecordingForm);
xue@0: USEFORM("SFDemoUnit.cpp", SFDemoForm);
xue@0: USEFORM("Unit1.cpp", Form1);
xue@0: USEFORM("UnitRangeEdit.cpp", RangeEdit);
xue@0: USEFORM("VibratoDemoUnit.cpp", VibratoDemoForm);
xue@0: //---------------------------------------------------------------------------
xue@0: WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
xue@0: {
xue@0:   try
xue@0:   {
xue@0:     Application->Initialize();
xue@0:     Application->CreateForm(__classid(TForm1), &Form1);
xue@0:     Application->CreateForm(__classid(TBackupForm1), &BackupForm1);
xue@0:     Application->CreateForm(__classid(TEditorPanel), &EditorPanel);
xue@0:     Application->CreateForm(__classid(TEventBox), &EventBox);
xue@0:     Application->CreateForm(__classid(TRecordingForm), &RecordingForm);
xue@0:     Application->CreateForm(__classid(TSFDemoForm), &SFDemoForm);
xue@0:     Application->CreateForm(__classid(TRangeEdit), &RangeEdit);
xue@0:     Application->CreateForm(__classid(TVibratoDemoForm), &VibratoDemoForm);
xue@0:     Application->Run();
xue@0:   }
xue@0:   catch (Exception &exception)
xue@0:   {
xue@0:     Application->ShowException(&exception);
xue@0:   }
xue@0:   catch (...)
xue@0:   {
xue@0:     try
xue@0:     {
xue@0:        throw Exception("");
xue@0:     }
xue@0:     catch (Exception &exception)
xue@0:     {
xue@0:        Application->ShowException(&exception);
xue@0:     }
xue@0:   }
xue@0:   return 0;
xue@0: }
xue@0: //---------------------------------------------------------------------------