//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include "CSPIN.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE 管理のコンポーネント
    TPanel *Panel1;
    TTimer *Timer1;
    TPanel *Panel2;
    TLabel *Label1;
    TPopupMenu *PopupMenu1;
    TMenuItem *Exit1;
    TPaintBox *PaintBox1;
    TLabel *Label2;
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall Panel1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Panel1MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Panel2Click(TObject *Sender);
    void __fastcall Panel2MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Panel2MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Exit1Click(TObject *Sender);
    void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
    void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:	// ユーザー宣言
    float ay,vy,y;
    int x,lv,cl;    // 点の状態
    int MousePos[3];        // マウスの状態
    int score;
    int subscore;
    HMIDIOUT MidiOut;
    int MidiDev;
    int tone;

    void __fastcall Opening(TObject *Sender);
    void MidiOpen(void);
    void __fastcall ShortMsg(DWORD msg,DWORD val1,DWORD val2);
public:		// ユーザー宣言
    int Mode;

    void Wait(unsigned long);
    void Wait2(unsigned long);
    __fastcall TForm1(TComponent* Owner);
protected:
//    virtual void __fastcall CreateParams(TCreateParams& Params);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif